diff --git a/uiop/stream.lisp b/uiop/stream.lisp index 464e933e678cd8c4253171beb22b0d20bc07013d..1590b71c4cc3927544e50b65c807bd336d597468 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))