X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=3ca15e08e97722ed9f5294d5c964a48175273b74;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=1eb50380bc4139fad04f5d2d09dfa73298b47e0a;hpb=bea5b384106a6734a4b280a76e8ebdd4d51b5323;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 1eb5038..3ca15e0 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -232,8 +232,10 @@
 ;;; to at least know which function is an XEP for the real function
 ;;; (which would be useful info anyway).
 
-;;;; debug source
+;;;; DEBUG SOURCE
 
+;;; There is one per compiled file and one per function compiled at
+;;; toplevel or loaded from source.
 (def!struct (debug-source #-sb-xc-host (:pure t))
   ;; This slot indicates where the definition came from:
   ;;    :FILE - from a file (i.e. COMPILE-FILE)
@@ -257,7 +259,9 @@
   ;; :DEBUG-SOURCE-FORM is :LISP.
   (start-positions nil :type (or (simple-array * (*)) null))
   ;; If from :LISP, this is the function whose source is form 0.
-  (info nil))
+  (function nil)
+  ;; Additional information from (WITH-COMPILATION-UNIT (:SOURCE-PLIST ...))
+  (plist *source-plist*))
 
 ;;;; DEBUG-INFO structures
 
@@ -271,7 +275,7 @@
   ;;   *** NOTE: the offset of this slot is wired into the fasl dumper 
   ;;   *** so that it can backpatch the source info when compilation
   ;;   *** is complete.
-  (source nil :type list))
+  (source nil))
 
 (def!struct (compiled-debug-info
 	     (:include debug-info)