diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index d69c16a315395cd6687efb4ad3fb237897ee47d7..875626c9505cd30b7fd299fc0954497743ab53f2 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -1712,6 +1712,7 @@ (defun ir1-top-level (form tlf-num for-value) (declare (type index tlf-num)) (let* ((*current-path* (or (gethash form *source-paths*) + *current-path* (list 0 tlf-num))) (*inlines* ()) (*type-restrictions* ())