From 6045978013d857314f49462f6ec91110050a6cf5 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 2 Oct 1990 14:13:02 +0000 Subject: [PATCH] Fixed use of IR1-FINALIZE, now use MAPHASH of CHECK-FREE-FUNCTION. --- compiler/eval-comp.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index a12f40fff..09d40f12f 100644 --- a/compiler/eval-comp.lisp +++ b/compiler/eval-comp.lisp @@ -103,7 +103,7 @@ (when *check-consistency* (maybe-mumble "[Check]~%") (check-ir1-consistency *all-components*)))) - (ir1-finalize) + (maphash #'check-free-function *free-functions*) (car lambdas)))))) -- GitLab