Commit 0145be3e authored by Eric Timmons's avatar Eric Timmons

Be less aggressive passing :if-does-not-exist around

Was accidentally providing :if-does-not-exist to OPEN even if the user did not
specify it. This seems to cause some consternation on Windows when installing.
parent 4b526715
......@@ -83,15 +83,16 @@
thunk args)))))
(defmethod open-object-stream ((object-store file-object-store) path (direction (eql :output))
&rest open-args
&key binary-p offset
if-does-not-exist (if-exists :error))
(assert (null offset))
(let* ((pn (merge-pathnames path (file-object-store-root object-store)))
(open-args nil))
(open-args (remove-from-plist open-args :binary-p :offset :if-exists)))
(when binary-p
(push '(unsinged-byte 8) open-args)
(push :element-type open-args))
(apply #'open pn :direction :output :if-does-not-exist if-does-not-exist
(apply #'open pn :direction :output
:if-exists if-exists
open-args)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment