about summary refs log tree commit diff
path: root/third_party/lisp/mime4cl/test/temp-file.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/lisp/mime4cl/test/temp-file.lisp')
-rw-r--r--third_party/lisp/mime4cl/test/temp-file.lisp2
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 3e6765806c4e..554f35844b46 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)