Method: (IS-PRIMARY DB-TXN)

Source

(defmethod is-primary ((db db-txn))
  (and (null (db-sec-handle db))
       (listp (db-assoc db))))