From c405117e7056f6d8711bc738b5c3301d7b273dc7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 23 Jul 1990 13:30:30 +0000 Subject: [PATCH] Changed the DEBUG-SOURCE-NAME to be of any type, since it can be the form passed to eval. --- code/debug-info.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/debug-info.lisp b/code/debug-info.lisp index c21e795a2..bd4698c31 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)) -- GitLab