Skip to content
Snippets Groups Projects
Commit 01cf051c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix yet another bug in with-temporary-file, found while extending lisp-invocation.

parent 48dec773
No related branches found
No related tags found
No related merge requests found
...@@ -627,7 +627,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev ...@@ -627,7 +627,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev
(check-type pathname symbol) (check-type pathname symbol)
(assert (or streamp pathnamep)) (assert (or streamp pathnamep))
(let* ((afterp (position :close-stream body)) (let* ((afterp (position :close-stream body))
(before (if afterp (subseq body 0 (1- afterp)) body)) (before (if afterp (subseq body 0 afterp) body))
(after (when afterp (subseq body (1+ afterp)))) (after (when afterp (subseq body (1+ afterp))))
(beforef (gensym "BEFORE")) (beforef (gensym "BEFORE"))
(afterf (gensym "AFTER"))) (afterf (gensym "AFTER")))
...@@ -647,7 +647,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev ...@@ -647,7 +647,7 @@ Upon success, the KEEP form is evaluated and the file is is deleted unless it ev
,@(when suffix `(:suffix ,suffix)) ,@(when suffix `(:suffix ,suffix))
,@(when type `(:type ,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))
,@(when external-format `(:external-format ,external-format)))))) ,@(when external-format `(:external-format ,external-format))))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment