X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fdlisp.lisp;h=e0d23e75cf1faa9fbb312aaa0ec5fccced1cbb29;hb=0e03a9ac950b78d776c4869c809e202d9e929f39;hp=35433f27c1408cbe5e4cbb8b945e40373b41a5c4;hpb=7474a620a5538091b9c1cba877156f5645d78aa6;p=sbcl.git

diff --git a/src/pcl/dlisp.lisp b/src/pcl/dlisp.lisp
index 35433f2..e0d23e7 100644
--- a/src/pcl/dlisp.lisp
+++ b/src/pcl/dlisp.lisp
@@ -468,7 +468,7 @@
              (go ,miss-label))))
     (class
      (when slot (error "can't do a slot reg for this metatype"))
-     `(wrapper-of-macro ,argument))
+     `(wrapper-of ,argument))
     ((built-in-instance structure-instance)
      (when slot (error "can't do a slot reg for this metatype"))
      `(built-in-or-structure-wrapper