0.6.9.12:
[sbcl.git] / src / code / describe.lisp
index eb87312..333aa33 100644 (file)
        (when (and *print-length* (> n *print-length*))
          (format s "~:_...")
          (return))
-       (format s "~:_(~S ~S)" k v)))))
+       (format s "~:_(~@<~S ~:_~S~:>)" k v)))))
 
 (defmethod describe-object ((condition condition) s)
-  (sb-conditions::describe-condition condition s))
+  (sb-kernel:describe-condition condition s))
 \f
 ;;;; DESCRIBE-OBJECT methods for symbols and functions, including all
 ;;;; sorts of messy stuff about documentation, type information,