(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,
(ecase (sb-c::debug-source-from source)
(:file
(format s "~@:_~A~@:_ Created: " (namestring name))
- (sb-int:format-universal-time t (sb-c::debug-source-created
+ (sb-int:format-universal-time s (sb-c::debug-source-created
source)))
(:lisp (format s "~@:_~S" name))))))))))