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 950db2b..26782e2 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -208,10 +208,9 @@
                                  (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.