(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,