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

[lisp] / safely.lisp

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