cl-rw

Layered streams for Common Lisp
git clone https://logand.com/git/cl-rw.git/
Log | Files | Refs
commit e91a21ccd63f570e7d61ede6fb2d286899a97bba
parent faaea200a6af5cbfb46fe09c1c3daa347ec4a66b
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat,  1 Nov 2014 10:06:25 +0100

fix with-temporary-file

Diffstat:

Mos.lisp | 2+-


1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/os.lisp b/os.lisp
@@ -217,7 +217,7 @@
 ;;(make-temporary-file :template "hi-XXXXX.log") ;; TODO fix error
 
 (defmacro with-temporary-file ((var &key directoryp template) &body body)
-  `(let ((,var (make-temporary-file :directoryp directoryp :template template)))
+  `(let ((,var (make-temporary-file :directoryp ,directoryp :template ,template)))
      (unwind-protect (progn ,@body)
        (delete-file ,var))))