From eeed71be651f1d6290f1cd110a1a6cefbe40601f Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <tunes@google.com> Date: Fri, 21 Mar 2014 13:08:39 -0400 Subject: [PATCH] =?UTF-8?q?Fix=20bug=20in=20with-temporary-file,=20found?= =?UTF-8?q?=20by=20Jocelyn=20Fr=C3=A9chot.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- uiop/stream.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/uiop/stream.lisp b/uiop/stream.lisp index 464e933e..1590b71c 100644 --- a/uiop/stream.lisp +++ b/uiop/stream.lisp @@ -645,7 +645,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev ,@(when directory `(:directory ,directory)) ,@(when prefix `(:prefix ,prefix)) ,@(when suffix `(:suffix ,suffix)) - ,@(when type `(:suffix ,type)) + ,@(when type `(:type ,type)) ,@(when keep `(:keep ,keep)) ,@(when after `(:after `#',afterf)) ,@(when element-type `(:element-type ,element-type)) -- GitLab