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

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
Loading
Loading
Loading
Loading
+3 −2
Original line number Diff line number Diff line
@@ -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)))