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
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment