X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fclass.lisp;fp=src%2Fcode%2Fclass.lisp;h=0db908d0215b7f0aa63578757e86de92e7cb2958;hb=4d31006db24db375cdb83a5726d66c524b36689c;hp=4e2d8fcc79cf43f280a27ea708ab57cec6911d2b;hpb=829d76d5f12e1c1b6b21ca4c71b34719b8fed5e1;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)))