Major effort to plug slot-name leaks.

[sod] / src / class-layout-impl.lisp

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index 950db2b54bb0d9dcb400f5a6fe416ebe3d6bd61a..26782e27da1bd7de7a519d131c883cc5c3c801af 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -208,10 +208,9 @@ (defmethod compute-ilayout ((class sod-class))
                                  (sod-class-chains class))))
 
 (defmethod slot-unbound
-    (clos-class (class sod-class) (slot-name (eql 'ilayout)))
+    (clos-class (class sod-class) (slot-name (eql '%ilayout)))
   (declare (ignore clos-class))
-  (setf (slot-value class 'ilayout)
-       (compute-ilayout class)))
+  (setf (slot-value class '%ilayout) (compute-ilayout class)))
 
 ;;;--------------------------------------------------------------------------
 ;;; Vtable layout.