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 @@
(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*)))))
......
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