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

Dual-index now automaticaly sets secondary-p on its secondary

parent 01fa0fc2
Loading
Loading
Loading
Loading
+4 −0
Original line number Diff line number Diff line
@@ -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)

+0 −1
Original line number Diff line number Diff line
@@ -25,7 +25,6 @@
    :documentation
    "Maps system names to system instances.")
   (secondary-p
    :initarg :secondary-p
    :initform nil
    :accessor index-secondary-p))
  (:documentation