(defmethod registry-search ((db registry-db) &rest spec)
"Search for SPEC across the registry-db THIS.
(defmethod registry-search ((db registry-db) &rest spec)
"Search for SPEC across the registry-db THIS.
The test order is to check :all first, then :member, then :regex."
(when db
(let ((all (plist-get spec :all))
The test order is to check :all first, then :member, then :regex."
(when db
(let ((all (plist-get spec :all))
(dolist (val (cdr-safe (assq tr v)))
(let* ((value-keys (registry-lookup-secondary-value db tr val)))
(push key value-keys)
(dolist (val (cdr-safe (assq tr v)))
(let* ((value-keys (registry-lookup-secondary-value db tr val)))
(push key value-keys)