X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;h=0db908d0215b7f0aa63578757e86de92e7cb2958;hb=83659744f9caa97aa83eb562d872b1c0127403c0;hp=4e2d8fcc79cf43f280a27ea708ab57cec6911d2b;hpb=fb2f167e3ea360de1eb1c436de948df5086a6292;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 4e2d8fc..0db908d 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -767,7 +767,8 @@
             (:primitive
              (error "Cannot redefine standard type ~S." name))
             (:defined
-             (warn "Redefining DEFTYPE type to be a class: ~S" name)
+             (warn "redefining DEFTYPE type to be a class: ~
+                    ~/sb-impl::print-symbol-with-prefix/" name)
                 (setf (info :type :expander name) nil
                       (info :type :lambda-list name) nil
                       (info :type :source-location name) nil)))