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

Some slot definitions were marked out of date due to the early definition of their class

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-10-12 12:13:58 +02:00
parent 53c7e292bc
commit 82bac13d72
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/clos/boot.lsp
View file

@ -117,7 +117,17 @@
;;
(mapc #'si::instance-sig-set all-classes)
;;
;; This is needed for further optimization
;; 4) This is needed for further optimization
;;
(setf (slot-value (find-class 'method-combination) 'sealedp) t)
;;
;; 5) This is needed so that slot-definition objects are not marked
;; obsolete and need to be updated
;;
(with-early-accessors (+standard-class-slots+)
(loop for c in all-classes
do (loop for s in (class-direct-slots c)
do (si::instance-sig-set s))
do (loop for s in (class-slots c)
do (si::instance-sig-set s))))
))