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