From 7413889adaf31a00d1f71598f221f0155d015dab Mon Sep 17 00:00:00 2001 Message-Id: <7413889adaf31a00d1f71598f221f0155d015dab.1715705728.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 28 Apr 2009 11:19:09 +0100 Subject: [PATCH] safely: Fix useless use of APPLY in SAFELY-WRITING. Organization: Straylight/Edgeware From: Mark Wooding Not quite sure what I was thinking. --- safely.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/safely.lisp b/safely.lisp index b5d7ff8..2477f9a 100644 --- a/safely.lisp +++ b/safely.lisp @@ -237,8 +237,7 @@ (defmacro safely-writing ((stream file &rest open-args) &body body) 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 -------------------------------------------------- -- [mdw]