From 7413889adaf31a00d1f71598f221f0155d015dab Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 28 Apr 2009 11:19:09 +0100
Subject: [PATCH] safely: Fix useless use of APPLY in SAFELY-WRITING.

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 @@
    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 --------------------------------------------------
-- 
2.11.0