diff options
Diffstat (limited to 'third_party/lisp/mime4cl/test/temp-file.lisp')
| -rw-r--r-- | third_party/lisp/mime4cl/test/temp-file.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/third_party/lisp/mime4cl/test/temp-file.lisp b/third_party/lisp/mime4cl/test/temp-file.lisp index 3e6765806c..554f35844b 100644 --- a/third_party/lisp/mime4cl/test/temp-file.lisp +++ b/third_party/lisp/mime4cl/test/temp-file.lisp @@ -63,7 +63,7 @@ file, otherwise *TMP-FILE-DEFAULTS* is used." "Execute BODY within a dynamic extent where STREAM is bound to a STREAM open on a unique temporary file name. OPEN-TEMP-ARGS are passed verbatim to OPEN-TEMP-FILE." - `(be ,stream (open-temp-file ,@open-temp-args) + `(let ((,stream (open-temp-file ,@open-temp-args))) (unwind-protect (progn ,@body) (close ,stream) |