X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcache.lisp;h=766e7e7f70f2b69eba7d9c8ea3741add3e29133f;hb=3a618201c9f2370bb8784217a866d000371769e5;hp=ed83efde42e7e6e04dddb23de9776e395eee3c93;hpb=e13730f246bc1f6b4fab39479f4e50534283dac1;p=sbcl.git

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index ed83efd..766e7e7 100644
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -204,6 +204,7 @@
 (defmacro wrapper-no-of-instance-slots (wrapper)
   `(layout-length ,wrapper))
 
+;;; FIXME: Why are these macros?
 (defmacro wrapper-instance-slots-layout (wrapper)
   `(%wrapper-instance-slots-layout ,wrapper))
 (defmacro wrapper-class-slots (wrapper)
@@ -367,9 +368,8 @@
       ;;    INSTANCE's class.  See also the comment above
       ;;    FORCE-CACHE-FLUSHES.  Paul Dietz has test cases for this.
       ((member t)
-       (let ((class (class-of instance)))
-	 (force-cache-flushes class)
-	 (class-wrapper class)))
+       (force-cache-flushes (class-of instance))
+       (check-wrapper-validity instance))
       (cons
        (ecase (car state)
 	 (:flush