diff --git a/code/debug-info.lisp b/code/debug-info.lisp index c21e795a2b4c397fff93721d02ecedb01815c973..bd4698c31d426f1643eabfba7518a62697f79f51 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -323,9 +323,9 @@ ;; :Stream - from a non-file stream (Compile-From-Stream) (from nil :type (member :file :stream :lisp)) ;; - ;; If :File, the file name, if :Lisp, the lambda compiled, otherwise some - ;; descriptive string. - (name nil :type (or pathname list simple-string)) + ;; If :File, the file name, if :Lisp, the form evaluated/compiled, otherwise + ;; some descriptive string. When from COMPILE, this is #'(LAMBDA ...). + (name nil) ;; ;; File comment for this file, if any. (comment nil :type (or simple-string null))