Method: (DB-ASSOCIATE DB-TXN DB-TXN T)

Source

(defmethod db-associate ((primary db-txn) (secondary db-txn) callback
			 &key txn callback-maker create)
  (with-txn (txn (db-get-env primary) :txn txn)
    (%db-dummy-associate primary
			 txn
			 (db-sec-handle (db-open-sec secondary
						     :txn txn))
			 :create create)
    (push (cons secondary
		       (if (functionp callback-maker)
			   (funcall callback-maker callback)
			   callback))
		 (db-assoc primary))
    (setf (db-assoc secondary) primary)
    primary))