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