diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index bd75e33ff4518b1a6a29de2f3c1c7d2d6ddc2c3f..375eb005bbec7bc873fc94484571bd393c6fe6d8 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