An actual running implementation, which makes code that compiles.

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

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index 68c989b..3a5b5cd 100644 (file)
--- a/src/class-layout-impl.lisp
+++ b/src/class-layout-impl.lisp
@@ -130,6 +130,7 @@
 
 (defmethod slot-unbound
     (clos-class (class sod-class) (slot-name (eql 'effective-methods)))
+  (declare (ignore clos-class))
   (setf (slot-value class 'effective-methods)
        (compute-effective-methods class)))
 
@@ -207,6 +208,7 @@
 
 (defmethod slot-unbound
     (clos-class (class sod-class) (slot-name (eql 'ilayout)))
+  (declare (ignore clos-class))
   (setf (slot-value class 'ilayout)
        (compute-ilayout class)))
 
@@ -389,6 +391,7 @@
 
 (defmethod slot-unbound
     (clos-class (class sod-class) (slot-name (eql 'vtables)))
+  (declare (ignore clos-class))
   (setf (slot-value class 'vtables)
        (compute-vtables class)))