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

Changed IR1-TOP-LEVEL to use the current value of *CURRENT-PATH* when Form has

no known path.
parent 36bb139c
No related branches found
No related tags found
No related merge requests found
...@@ -1712,6 +1712,7 @@ ...@@ -1712,6 +1712,7 @@
(defun ir1-top-level (form tlf-num for-value) (defun ir1-top-level (form tlf-num for-value)
(declare (type index tlf-num)) (declare (type index tlf-num))
(let* ((*current-path* (or (gethash form *source-paths*) (let* ((*current-path* (or (gethash form *source-paths*)
*current-path*
(list 0 tlf-num))) (list 0 tlf-num)))
(*inlines* ()) (*inlines* ())
(*type-restrictions* ()) (*type-restrictions* ())
......
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