Skip to content
Snippets Groups Projects
Commit 53fe0a4f authored by Raymond Toy's avatar Raymond Toy
Browse files

Fix #30: compilation of (describe 'foo)

The debug-info-source isn't available until later in the fasl, so
don't try to print where the source was compiled from.  This seems
like a small oversight since the next bit of code does nothing if the
debug-info-source isn't available.
parent a5175917
No related branches found
No related tags found
No related merge requests found
......@@ -313,11 +313,12 @@
(let ((info (kernel:%code-debug-info code-obj)))
(when info
(let ((sources (c::debug-info-source info)))
(format t (intl:gettext "~&On ~A it was compiled from:")
(format-universal-time nil
(c::debug-source-compiled
(first sources))
:style :iso8601))
(when sources
(format t (intl:gettext "~&On ~A it was compiled from:")
(format-universal-time nil
(c::debug-source-compiled
(first sources))
:style :iso8601)))
(dolist (source sources)
(let ((name (c::debug-source-name source)))
(ecase (c::debug-source-from source)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment