X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;fp=src%2Fpcl%2Flow.lisp;h=0949623e8967f862cae5a320dc690c7c72bdcb66;hb=62f25b3b18b66ae67d555ca8a05026dbf03d89e1;hp=a825d5c6c427f19b2cc99b70b376ce9b2b80d1dc;hpb=c9674c84337b4664d6554a51e7ff11a5433102bc;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index a825d5c..0949623 100644
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -66,7 +66,9 @@
                       ;; default of WRAPPER-INVALID. Instead of trying
                       ;; to find out, I just overrode the LAYOUT
                       ;; default here. -- WHN 19991204
-                      (invalid nil))
+                      (invalid nil)
+                      ;; This allows quick testing of wrapperness.
+                      (for-std-class-p t))
             (:constructor make-wrapper-internal)
             (:copier nil))
   (instance-slots-layout nil :type list)