Commit 305917d7 authored by ram's avatar ram
Browse files

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.
parent 23558d26
......@@ -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)))))))))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment