From 1104b51e8ec85fe1191f6899ac6fc8b959a78dd6 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 17 May 1990 13:33:07 +0000
Subject: [PATCH] Changed COMPILE-FOR-EVAL to bind *CURRENT-PATH* to nil.

---
 compiler/eval-comp.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index a579e2570..f15535289 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -58,6 +58,7 @@
 	   (*compiler-error-bailout*
 	    #'(lambda () (error "Fatal error, aborting evaluation.")))
 	   ;;
+	   (*current-path* nil)
 	   (*last-source-context* nil)
 	   (*last-original-source* nil)
 	   (*last-source-form* nil)
-- 
GitLab