mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

In with-early-make-instance, only collect initialization forms from slots that are not initially unbound

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 14:53:27 +02:00
parent 864810c3a6
commit 6459061654
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/clos/boot.lsp
View file

@ -35,13 +35,14 @@
(not (eq (getf list name 'wrong) 'wrong))))
(loop for (name . slotd) in slots
for initarg = (getf slotd :initarg)
for initform = (getf slotd :initform)
for initform = (getf slotd :initform (si::unbound))
for initvalue = (getf key-value-pairs initarg)
for index from 0
do (cond ((and initarg (initializerp initarg key-value-pairs))
(setf initform (getf key-value-pairs initarg)))
((initializerp name key-value-pairs)
(setf initform (getf key-value-pairs name))))
when (si:sl-boundp initform)
collect `(si::instance-set ,object ,index ,initform)))
(when %class
(si::instance-sig-set ,object))