diff --git a/code/describe.lisp b/code/describe.lisp index f47d9be184a3e6ef4661144f768c9dca30c1cf46..f63e49bed0fce1528253923d9a3c3ef8e584d9fe 100644 --- a/code/describe.lisp +++ b/code/describe.lisp @@ -264,8 +264,11 @@ (let ((name (c::debug-source-name source))) (ecase (c::debug-source-from source) (:file - (format t "~&~A " (namestring name)) - (ext:format-universal-time t (c::debug-source-created source))) + (format t "~&~A~% Created: " (namestring name)) + (ext:format-universal-time t (c::debug-source-created source)) + (let ((comment (c::debug-source-comment source))) + (when comment + (format t "~& Comment: ~A" comment)))) (:stream (format t "~&~S" name)) (:lisp (format t "~&~S" name)))))))))