From ab987d727d4d1ecf25f87c2b271969de1fb1931a Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 11 Oct 1990 17:32:02 +0000 Subject: [PATCH] Changed the DEBUG-SOURCE-NAME to be a vector of the top-level forms for both :LISP and :STREAM. --- compiler/debug-dump.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index 11d1a9c80..957774dd3 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -295,9 +295,8 @@ (setf (debug-source-name res) name)) (t (setf (debug-source-from res) name) - (when (eq name :lisp) - (setf (debug-source-name res) - (aref (file-info-forms x) 0))))) + (setf (debug-source-name res) + (coerce (file-info-forms x) 'simple-vector)))) res)) (source-info-files info))) -- GitLab