X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcondition.lisp;h=b89d6d80270143dd9f073261d46a74b25cdeb693;hb=568214ddf4c8ecc881caec98e20848d017974ec0;hp=29c854a2b3f380e728a003895527157a5db0bf50;hpb=f3f677703e37f5a335b3be7fa64f7748ad969517;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 29c854a..b89d6d8 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -648,6 +648,12 @@
 (define-condition cell-error (error)
   ((name :reader cell-error-name :initarg :name)))
 
+(def!method print-object ((condition cell-error) stream)
+  (if *print-escape*
+      (print-unreadable-object (condition stream :type t :identity t)
+	(princ (cell-error-name condition) stream))
+      (call-next-method)))
+
 (define-condition unbound-variable (cell-error) ()
   (:report
    (lambda (condition stream)