From a35201aa6d5416b4372b80f708b2ed58ff4ee54f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sun, 21 Apr 1991 12:55:37 +0000
Subject: [PATCH] Changed WITH-COMPILER-LOG-FILE to pass through any keyword
 arguments to WITH-COMPILATION-UNIT.

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

diff --git a/tools/setup.lisp b/tools/setup.lisp
index 8e7fc1875..4f67f905b 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -124,9 +124,9 @@
 (defvar *log-file* nil)
 (defvar *last-file-position*)
 
-(defmacro with-compiler-log-file ((name) &body forms)
+(defmacro with-compiler-log-file ((name &rest wcu-keys) &body forms)
   `(if *interactive*
-       (with-compilation-unit ()
+       (with-compilation-unit (,@wcu-keys)
 	 ,@forms)
        (let ((*log-file* (open ,name :direction :output
 			       :if-exists :append
@@ -134,7 +134,7 @@
 	 (unwind-protect
 	     (let ((*error-output* *log-file*)
 		   (*last-file-position* (file-position *log-file*)))
-	       (with-compilation-unit ()
+	       (with-compilation-unit (,@wcu-keys)
 		 ,@forms))
 	   (close *log-file*)))))
 
-- 
GitLab