mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

src/clos/standard.lsp: a previous patch prevented class slots to be reinitialized.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-15 11:02:26 +01:00
parent 2d675630e7
commit 67224a4d49
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/standard.lsp
View file

@ -70,7 +70,6 @@
(when (and slot-names
(or (eq slot-names 'T)
(member slot-name slot-names))
(not (eq (slot-definition-allocation slotd) :class))
(not (slot-boundp instance slot-name)))
(let ((initfun (slot-definition-initfunction slotd)))
(when initfun