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

ENSURE-UP-TO-DATE-INSTANCE is unsafe.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-07 16:16:57 +02:00
parent 9db8116248
commit d35e40d525
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/std-slot-value.lsp
View file

@ -104,9 +104,10 @@
`(let* ((i ,instance)
(s (si::instance-sig i)))
(declare (:read-only i s))
(when (si:sl-boundp s)
(unless (eq s (class-slots (si::instance-class i)))
(update-instance i))))))
(with-early-accessors (+standard-class-slots+)
(when (si:sl-boundp s)
(unless (eq s (class-slots (si::instance-class i)))
(update-instance i)))))))
;;;
;;; STANDARD-CLASS INTERFACE