From 53fe0a4f0cf4dae0194f8024a8b0f27e3afead15 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Wed, 7 Sep 2016 20:28:36 -0700
Subject: [PATCH] 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.
---
 src/code/describe.lisp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index b1bd93f8c..3616b3616 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -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)
-- 
GitLab