X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=f36be4574c5aee6eb1efc679abf2789874b449e7;hb=3fe0010d2777b41e01ea9b4a0f894cfa40f7df1b;hp=ca2ab733f650c30e948097bdd6a82fe6db2b470f;hpb=9c9c68bd6e5e3c6d02e9f1bfd583b87bb9e85eea;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index ca2ab73..f36be45 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -153,24 +153,20 @@
   (declare (type stream s))
   (let ((info (sb-kernel:%code-debug-info code-obj)))
     (when info
-      (let ((sources (sb-c::debug-info-source info)))
-	(when sources
+      (let ((source (sb-c::debug-info-source info)))
+	(when source
 	  (format s "~&On ~A it was compiled from:"
 		  ;; FIXME: The FORMAT-UNIVERSAL-TIME calls in the system
 		  ;; should become more consistent, probably not using
 		  ;; any nondefault options.
-		  (format-universal-time nil
-					 (sb-c::debug-source-compiled
-					  (first sources))
+		  (format-universal-time nil (sb-c::debug-source-compiled source)
 					 :style :abbreviated))
-	  (dolist (source sources)
-	    (let ((name (sb-c::debug-source-name source)))
-	      (ecase (sb-c::debug-source-from source)
-		(:file
-		 (format s "~&~A~@:_  Created: " (namestring name))
-		 (format-universal-time s (sb-c::debug-source-created
-					   source)))
-		(:lisp (format s "~&~S" name))))))))))
+	  (let ((name (sb-c::debug-source-name source)))
+	    (ecase (sb-c::debug-source-from source)
+	      (:file
+	       (format s "~&~A~@:_  Created: " (namestring name))
+	       (format-universal-time s (sb-c::debug-source-created source)))
+	      (:lisp (format s "~&~S" name)))))))))
 
 ;;; Describe a compiled function. The closure case calls us to print
 ;;; the guts.