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

[lisp] / safely.lisp

diff --git a/safely.lisp b/safely.lisp
index b5d7ff8..2477f9a 100644 (file)
--- 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 --------------------------------------------------