X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=8a97208c81f2cb1684bb6f54b7f55b0697c905a1;hb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;hp=eb87312998a9db34ab8922dc3588fa24b1e83028;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git diff --git a/src/code/describe.lisp b/src/code/describe.lisp index eb87312..8a97208 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, @@ -172,7 +172,7 @@ (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))))))))))