Not quite sure what I was thinking.
temporary file, and if BODY completes, it is renamed to FILE."
(with-gensyms safe
`(safely (,safe)
temporary file, and if BODY completes, it is renamed to FILE."
(with-gensyms safe
`(safely (,safe)
- (let ((,stream (apply #'safely-open-output-stream
- ,safe ,file ,open-args)))
+ (let ((,stream (safely-open-output-stream ,safe ,file ,@open-args)))
,@body))))
;;;----- That's all, folks --------------------------------------------------
,@body))))
;;;----- That's all, folks --------------------------------------------------