mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-05 07:00:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

UPDATE-INSTANCE-FOR-REDEFINED-CLASS received an alist instead of a propertly-list as last argument

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-01-11 23:52:55 +01:00
parent 54372deb73
commit f7e1919eef
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/change.lsp
View file

@ -158,8 +158,8 @@
(mapcar #'slot-definition-name new-local-slotds)))
(dolist (slot-name discarded-slots)
(let* ((ndx (position slot-name old-local-slotds :key #'slot-definition-name)))
(push (cons slot-name (si::instance-ref old-instance ndx))
property-list)))
(setf property-list
(list* slot-name (si::instance-ref old-instance ndx) property-list))))
(dolist (new-slot new-local-slotds)
(let* ((name (slot-definition-name new-slot))
(old-i (position name old-local-slotds :key #'slot-definition-name)))