Commit bd1f79ba authored by Eric Timmons's avatar Eric Timmons

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

parent 01fa0fc2
......@@ -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)
......
......@@ -25,7 +25,6 @@
:documentation
"Maps system names to system instances.")
(secondary-p
:initarg :secondary-p
:initform nil
:accessor index-secondary-p))
(:documentation
......
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