From efdf5eca0ee238e9dd4d2705a291b57618ef16fa Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 11 Oct 1990 18:16:41 +0000 Subject: [PATCH] Changed comment on debug-source-name to describe new convention for :LISP and :STREAM. Added DEBUG-SOURCE-INFO slot for useful stuff. --- code/debug-info.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/code/debug-info.lisp b/code/debug-info.lisp index bd4698c31..d573584b9 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -323,8 +323,8 @@ ;; :Stream - from a non-file stream (Compile-From-Stream) (from nil :type (member :file :stream :lisp)) ;; - ;; If :File, the file name, if :Lisp, the form evaluated/compiled, otherwise - ;; some descriptive string. When from COMPILE, this is #'(LAMBDA ...). + ;; If :File, the file name, if :Lisp or :Stream, then a vector of the + ;; top-level forms. When from COMPILE, form 0 is #'(LAMBDA ...). (name nil) ;; ;; File comment for this file, if any. @@ -343,7 +343,12 @@ ;; The file-positions of each truly top-level form read from this file (if ;; applicable). The vector element type will be chosen to hold the largest ;; element. May be null to save space. - (start-positions nil :type (or (simple-array * (*)) null))) + (start-positions nil :type (or (simple-array * (*)) null)) + ;; + ;; If from :LISP, this is the function whose source is form 0. + ;; If from :STREAM, this is whatever was the :SOURCE-INFO argument to + ;; COMPILE-FROM-STREAM. + (info nil)) (defstruct debug-info) -- GitLab