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