cl-rw

commit e91a21ccd63f570e7d61ede6fb2d286899a97bba
parent faaea200a6af5cbfb46fe09c1c3daa347ec4a66b
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat,  1 Nov 2014 10:06:25 +0100

fix with-temporary-file

Diffstat:
M
os.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))))