(let* ((owrapper (wrapper-of instance)))
(if (not (invalid-wrapper-p owrapper))
owrapper
- (let* ((state (wrapper-state wrapper))
+ (let* ((state (wrapper-state owrapper))
(nwrapper
(ecase (car state)
(:flush
((invalid-wrapper-p nwrapper)
(error "wrapper returned from trap invalid")))
nwrapper))))
-
-(defmacro check-wrapper-validity1 (object)
- (let ((owrapper (gensym)))
- `(let ((,owrapper (sb-kernel:layout-of object)))
- (if (sb-kernel:layout-invalid ,owrapper)
- (check-wrapper-validity ,object)
- ,owrapper))))
\f
(defvar *free-caches* nil)