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
......@@ -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))))
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