Loading src/dual-index.lisp +4 −0 Original line number Diff line number Diff line Loading @@ -31,6 +31,10 @@ secondary. Additionally, any metadata file and the project/system indices will be read from the primary on first access if the local copies are older than 10 minutes old.")) (defmethod initialize-instance :after ((index dual-index) &rest initargs) (declare (ignore initargs)) (setf (index-secondary-p (dual-index-secondary index)) t)) (defmethod index-backing-objects-exist-p ((index dual-index)) t) Loading src/index.lisp +0 −1 Original line number Diff line number Diff line Loading @@ -25,7 +25,6 @@ :documentation "Maps system names to system instances.") (secondary-p :initarg :secondary-p :initform nil :accessor index-secondary-p)) (:documentation Loading Loading
src/dual-index.lisp +4 −0 Original line number Diff line number Diff line Loading @@ -31,6 +31,10 @@ secondary. Additionally, any metadata file and the project/system indices will be read from the primary on first access if the local copies are older than 10 minutes old.")) (defmethod initialize-instance :after ((index dual-index) &rest initargs) (declare (ignore initargs)) (setf (index-secondary-p (dual-index-secondary index)) t)) (defmethod index-backing-objects-exist-p ((index dual-index)) t) Loading
src/index.lisp +0 −1 Original line number Diff line number Diff line Loading @@ -25,7 +25,6 @@ :documentation "Maps system names to system instances.") (secondary-p :initarg :secondary-p :initform nil :accessor index-secondary-p)) (:documentation Loading