Commits (2)
......@@ -5,6 +5,7 @@
(uiop:define-package #:clpi/object-store-file
(:use #:cl
#:alexandria
#:clpi/defs
#:clpi/object-store)
(:export #:file-object-store))
......@@ -83,15 +84,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)))
......