From 82bac13d72c5d3d9bd3755beed83bde4a5fc3c4e Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 12 Oct 2012 12:13:58 +0200 Subject: [PATCH] Some slot definitions were marked out of date due to the early definition of their class --- src/clos/boot.lsp | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/clos/boot.lsp b/src/clos/boot.lsp index f54b0c62d..287318003 100644 --- a/src/clos/boot.lsp +++ b/src/clos/boot.lsp @@ -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)))) ))