X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/ea578bb4b9eb4a03b2eb4ed151e058d699c216ea..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/class-layout-impl.lisp?ds=sidebyside

diff --git a/src/class-layout-impl.lisp b/src/class-layout-impl.lisp
index 68c989b..3a5b5cd 100644
--- 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)))