X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffast-init.lisp;h=88219f56714dfc516f60497e180091eb17e97071;hb=a74b0bdb483504f6faddf8089f848f61ed94b92a;hp=b43537601a6b7cf5c0f09e78716c9542b254bde7;hpb=0704fd3f3f027ec1be05ddb986b6ca538aa165ca;p=sbcl.git

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index b435376..88219f5 100644
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -64,7 +64,7 @@
 	  ;;   1. Don't worry, I know what I'm doing.
 	  ;;   2. You and what army?
 	  ;;   3. If you were as smart as you think you are, you
-	  ;;      wouldn't be a copy.
+	  ;;      wouldn't be a cop.
 	  ;; This is case #1.:-) Even if SYM hasn't been defined yet,
 	  ;; it must be an implementation function, or we we wouldn't
 	  ;; have expanded into it. So declare SYM as defined, so that
@@ -128,8 +128,9 @@
 		(*print-case* :upcase)
 		(*print-pretty* nil))
 	    (intern (format nil
-			    "MAKE-INSTANCE ~S ~S ~S"
-			    class-name
+			    "MAKE-INSTANCE ~A::~A ~S ~S"
+			    (package-name (symbol-package class-name))
+			    (symbol-name class-name)
 			    keys
 			    allow-other-keys-p))))))))