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