From d21fe86cc709085fd2d3981172474c7b47f87fc9 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 17 May 1990 13:31:00 +0000 Subject: [PATCH] Changed IR1-TOP-LEVEL to use the current value of *CURRENT-PATH* when Form has no known path. --- compiler/ir1tran.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index d69c16a31..875626c95 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* ()) -- GitLab