X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=61ea19fbddef38b2da7e01d6a830f3663badb68b;hb=bee53328c93be3433477821131ab805557476c8b;hp=f1ed9e00b44bf4f80cead118ecb82a411a838f3e;hpb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index f1ed9e0..61ea19f 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -262,8 +262,8 @@ function (which would be useful info anyway).
 
 (def!struct (debug-source #-sb-xc-host (:pure t))
   ;; This slot indicates where the definition came from:
-  ;;    :FILE - from a file (COMPILE-FILE)
-  ;;    :LISP - from Lisp (COMPILE)
+  ;;    :FILE - from a file (i.e. COMPILE-FILE)
+  ;;    :LISP - from Lisp (i.e. COMPILE)
   (from (required-argument) :type (member :file :lisp))
   ;; If :FILE, the file name, if :LISP or :STREAM, then a vector of
   ;; the top-level forms. When from COMPILE, form 0 is #'(LAMBDA ...).
@@ -279,7 +279,8 @@ function (which would be useful info anyway).
   (source-root 0 :type index)
   ;; The FILE-POSITIONs of the truly top-level forms read from this
   ;; file (if applicable). The vector element type will be chosen to
-  ;; hold the largest element. May be null to save space.
+  ;; hold the largest element. May be null to save space, or if
+  ;; :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))