Commit e975cf39 authored by Eric Timmons's avatar Eric Timmons
Browse files

Fix bug in index-backin-objects-exist-p for file-index

parent ffdb139b
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -27,7 +27,7 @@
    (error ":ROOT must be a directory pathname")))

(defmethod index-backing-objects-exist-p ((index file-index))
  (probe-file (metadata-path index)))
  (probe-file (merge-pathnames (metadata-path index) (file-index-root index))))

(defmethod index-object-append ((index file-index) path in-stream)
  (let ((pn (merge-pathnames path (file-index-root index))))