(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)
;; 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