Loading src/file-index.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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)))) Loading Loading
src/file-index.lisp +1 −1 Original line number Diff line number Diff line Loading @@ -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)))) Loading