From 53b63b7f95a1ff9d299da44026f9186615704abe Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 19 Feb 1990 12:32:00 +0000
Subject: [PATCH] Changed COMPILE-FOR-EVAL to call FIND-SOURCE-PATHS, now that
 IR1-TOP-LEVEL no longer does this.  Also, changed the PATH arg to
 IR1-TOP-LEVEL to be a TLF number (i.e. 0 instead of '(0)).

---
 compiler/eval-comp.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index bd75e33ff..375eb005b 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -71,11 +71,12 @@
 	   (*compiler-note-count* 0)
 	   (*source-info* (make-lisp-source-info form)))
       (clear-stuff)
+      (find-source-paths form 0)
       ;;
       ;; This LET comes from COMPILE-TOP-LEVEL.
       ;; The noted DOLIST is a splice from a call that COMPILE-TOP-LEVEL makes.
       (let* ((*converting-for-interpreter* t)
-	     (lambdas (list (ir1-top-level form '(0) t))))
+	     (lambdas (list (ir1-top-level form 0 t))))
 	(declare (list lambdas))
 	(dolist (lambda lambdas)
 	  (let* ((component
-- 
GitLab