X-Git-Url: http://git.boinkor.net/gitweb/sbcl.git/blobdiff_plain/829d76d5f12e1c1b6b21ca4c71b34719b8fed5e1..4d31006db24db375cdb83a5726d66c524b36689c:/src/pcl/macros.lisp

diff --git a/src/pcl/macros.lisp b/src/pcl/macros.lisp
index 996e05f..80dab6b 100644
--- a/src/pcl/macros.lisp
+++ b/src/pcl/macros.lisp
@@ -96,7 +96,8 @@
                   (ensure-non-standard-class symbol classoid))))))
       (cond ((null errorp) nil)
             ((legal-class-name-p symbol)
-             (error "There is no class named ~S." symbol))
+             (error "There is no class named ~
+                     ~/sb-impl::print-symbol-with-prefix/." symbol))
             (t
              (error "~S is not a legal class name." symbol)))))