X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=333aa33d2bdbdcd840af88a482786a8fea0a480b;hb=f392742d2781f42b3bb15b637e5008e10fbbe092;hp=eb87312998a9db34ab8922dc3588fa24b1e83028;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index eb87312..333aa33 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -83,10 +83,10 @@
 	(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))
 
 ;;;; DESCRIBE-OBJECT methods for symbols and functions, including all
 ;;;; sorts of messy stuff about documentation, type information,