Commit eeed71be authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix bug in with-temporary-file, found by Jocelyn Fréchot.

parent e8714648
...@@ -645,7 +645,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev ...@@ -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 directory `(:directory ,directory))
,@(when prefix `(:prefix ,prefix)) ,@(when prefix `(:prefix ,prefix))
,@(when suffix `(:suffix ,suffix)) ,@(when suffix `(:suffix ,suffix))
,@(when type `(:suffix ,type)) ,@(when type `(:type ,type))
,@(when keep `(:keep ,keep)) ,@(when keep `(:keep ,keep))
,@(when after `(:after `#',afterf)) ,@(when after `(:after `#',afterf))
,@(when element-type `(:element-type ,element-type)) ,@(when element-type `(:element-type ,element-type))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment