X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fprint-object.lisp;h=c1cde7e2b7c466f1326ae3a5308907f948eb8fba;hb=a41e7cf8667de9ae078a8e318e8c5c045cdee87d;hp=ed8be04f81da26e234b97668dbf5d39b5777a79c;hpb=81ce38f2e03e4f569d7a95bb18efb25bb16fc269;p=sbcl.git

diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp
index ed8be04..c1cde7e 100644
--- a/src/pcl/print-object.lisp
+++ b/src/pcl/print-object.lisp
@@ -67,7 +67,7 @@
 
 (defmethod print-object ((method standard-method) stream)
   (print-unreadable-object (method stream :type t :identity t)
-    (if (slot-boundp method 'generic-function)
+    (if (slot-boundp method '%generic-function)
         (let ((generic-function (method-generic-function method)))
           (format stream "~S ~{~S ~}~:S"
                   (and generic-function
@@ -80,7 +80,7 @@
 
 (defmethod print-object ((method standard-accessor-method) stream)
   (print-unreadable-object (method stream :type t :identity t)
-    (if (slot-boundp method 'generic-function)
+    (if (slot-boundp method '%generic-function)
         (let ((generic-function (method-generic-function method)))
           (format stream "~S, slot:~S, ~:S"
                   (and generic-function
@@ -93,7 +93,7 @@
   (print-unreadable-object (mc stream :type t :identity t)
     (format stream
             "~S ~S"
-            (slot-value-or-default mc 'type)
+            (slot-value-or-default mc 'type-name)
             (slot-value-or-default mc 'options))))
 
 (defun named-object-print-function (instance stream