Skip to content
Snippets Groups Projects
Commit a35201aa authored by ram's avatar ram
Browse files

Changed WITH-COMPILER-LOG-FILE to pass through any keyword arguments to

WITH-COMPILATION-UNIT.
parent 6352a34c
No related branches found
No related tags found
No related merge requests found
...@@ -124,9 +124,9 @@ ...@@ -124,9 +124,9 @@
(defvar *log-file* nil) (defvar *log-file* nil)
(defvar *last-file-position*) (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* `(if *interactive*
(with-compilation-unit () (with-compilation-unit (,@wcu-keys)
,@forms) ,@forms)
(let ((*log-file* (open ,name :direction :output (let ((*log-file* (open ,name :direction :output
:if-exists :append :if-exists :append
...@@ -134,7 +134,7 @@ ...@@ -134,7 +134,7 @@
(unwind-protect (unwind-protect
(let ((*error-output* *log-file*) (let ((*error-output* *log-file*)
(*last-file-position* (file-position *log-file*))) (*last-file-position* (file-position *log-file*)))
(with-compilation-unit () (with-compilation-unit (,@wcu-keys)
,@forms)) ,@forms))
(close *log-file*))))) (close *log-file*)))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment