Skip to content
Snippets Groups Projects
Commit ab987d72 authored by ram's avatar ram
Browse files

Changed the DEBUG-SOURCE-NAME to be a vector of the top-level forms

for both :LISP and :STREAM.
parent 6c255f84
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment