0.pre7.99:

[sbcl.git] / src / pcl / print-object.lisp

diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp
index 964c84b..b31d7c8 100644 (file)
--- a/src/pcl/print-object.lisp
+++ b/src/pcl/print-object.lisp
@@ -125,9 +125,8 @@
 (defmethod print-object ((constructor constructor) stream)
   (print-unreadable-object (constructor stream :type t :identity t)
     (format stream
-           "~S (~S)"
-           (slot-value-or-default constructor 'name)
-           (slot-value-or-default constructor 'code-type))))
+           "~S"
+           (slot-value-or-default constructor 'name))))
 
 (defmethod print-object ((cache cache) stream)
   (print-unreadable-object (cache stream :type t :identity t)