From acbba16803f0bda159616d49b315e8840344cc46 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 23 Jul 1993 11:09:31 +0000
Subject: [PATCH] Changed comf to load the object file instead of the original
 name.

---
 tools/setup.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/setup.lisp b/tools/setup.lisp
index 096fd2869..99d655626 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -183,7 +183,7 @@
 		(c::assemble-file src :output-file obj)
 		(compile-file src  :error-file nil  :output-file obj))
 	    (when load
-	      (load name :verbose t)))
+	      (load obj :verbose t)))
 	   (t
 	    (handler-bind
 		((error #'(lambda (condition)
@@ -205,7 +205,7 @@
 		  (c::assemble-file src :output-file obj)
 		  (compile-file src  :error-file nil  :output-file obj))
 	      (when load
-		(load name :verbose t))))))))))
+		(load obj :verbose t))))))))))
 
 
 
-- 
GitLab