From 305917d7ad06df548c4186d3cc3f36fb673a3a43 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 16 Apr 1990 11:09:55 +0000 Subject: [PATCH] Merged non-descriptor changes: revision 1.2.1.1 date: 90/03/27 13:15:50; author: ram; state: Exp; lines added/del: 5/2 When describing a compiled function, print the file comment (if any.) ALso, changed format to put the create date on a separate line from the source file to reduce wrapping problems. --- code/describe.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/describe.lisp b/code/describe.lisp index f47d9be18..f63e49bed 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))))))))) -- GitLab