mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 14:40:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

Rename: s/SLOT-DEFINITION-TO-LIST/SLOT-DEFINITION-TO-PLIST/

Browse source
This commit is contained in:
Samium Gromoff 2009-04-08 19:57:19 +04:00 • committed by Juan Jose Garcia Ripoll
parent 9105f1963f
commit 2e97251a96
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/fixup.lsp
View file

@ -33,13 +33,13 @@
(loop for x in direct-slots
collect (if (consp x)
(apply #'make-instance 'standard-direct-slot-definition
(slot-definition-to-list x))
(slot-definition-to-plist x))
x)))
(new-effective-slots
(loop for x in effective-slots
collect (if (consp x)
(apply #'make-instance 'standard-effective-slot-definition
(slot-definition-to-list x))
(slot-definition-to-plist x))
x))))
(map-into direct-slots #'identity new-direct-slots)
(map-into effective-slots #'identity new-effective-slots)

4
src/clos/standard.lsp
View file

@ -319,7 +319,7 @@ because it contains a reference to the undefined class~% ~A"
:test-not #'eq))
output)))))
(defun slot-definition-to-list (slotd)
(defun slot-definition-to-plist (slotd)
(list :name (slot-definition-name slotd)
:initform (slot-definition-initform slotd)
:initfunction (slot-definition-initfunction slotd)
@ -340,7 +340,7 @@ because it contains a reference to the undefined class~% ~A"
(flet ((direct-to-effective (old-slot)
(if (consp old-slot)
(copy-list old-slot)
(let ((initargs (slot-definition-to-list old-slot)))
(let ((initargs (slot-definition-to-plist old-slot)))
(apply #'make-instance
(apply #'effective-slot-definition-class class initargs)
initargs))))