X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Flow.lisp;h=0949623e8967f862cae5a320dc690c7c72bdcb66;hb=284c8f6833589a6bddf22a5af30d3ac4eafcd2cc;hp=4ace2055fd1b136f788ea0af8be30cc688d87db6;hpb=085501b44cc1cbdd9e260139d30b383372ddd1b8;p=sbcl.git

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index 4ace205..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)
@@ -260,8 +262,6 @@
   (when (pcl-instance-p instance)
     (get-slots instance)))
 
-(defmacro built-in-or-structure-wrapper (x) `(layout-of ,x))
-
 (defmacro get-wrapper (inst)
   (once-only ((wrapper `(wrapper-of ,inst)))
     `(progn