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