From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 28 Apr 2009 10:19:09 +0000 (+0100)
Subject: safely: Fix useless use of APPLY in SAFELY-WRITING.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/7413889adaf31a00d1f71598f221f0155d015dab

safely: Fix useless use of APPLY in SAFELY-WRITING.

Not quite sure what I was thinking.
---

diff --git a/safely.lisp b/safely.lisp
index b5d7ff8..2477f9a 100644
--- a/safely.lisp
+++ b/safely.lisp
@@ -237,8 +237,7 @@
    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 --------------------------------------------------