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