faster SLOT-VALUE &co with variable slot names

[sbcl.git] / src / pcl / wrapper.lisp

diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index 1e8b2f8..ae181da 100644 (file)
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -187,6 +187,12 @@
 (defun check-obsolete-instance (instance)
   (when (invalid-wrapper-p (layout-of instance))
     (check-wrapper-validity instance)))
+
+(defun check-obsolete-instance/class-of (instance)
+  (let ((wrapper (wrapper-of instance)))
+    (when (invalid-wrapper-p wrapper)
+      (check-wrapper-validity instance))
+    (wrapper-class* wrapper)))
 \f
 ;;;  NIL: means nothing so far, no actual arg info has NILs in the
 ;;;  metatype.