made debugger handle errors in printing *DEBUG-CONDITION*

[sbcl.git] / src / code / describe.lisp

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index d53dcc6..56f3349 100644 (file)
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -84,6 +84,9 @@
          (format s "~:_...")
          (return))
        (format s "~:_(~S ~S)" k v)))))
+
+(defmethod describe-object ((condition condition) s)
+  (sb-conditions::describe-condition condition s))
 \f
 ;;;; DESCRIBE-OBJECT methods for symbols and functions, including all
 ;;;; sorts of messy stuff about documentation, type information,