X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdlisp.lisp;h=e0d23e75cf1faa9fbb312aaa0ec5fccced1cbb29;hb=e3932d9a8cf3b8d2272cf75d1c40173af48747be;hp=35433f27c1408cbe5e4cbb8b945e40373b41a5c4;hpb=cececc9ace31c1f0c624af1d3a8bafae9beb5348;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