Method: (DB-DISASSOCIATE DB-TXN DB-TXN)

Source

(defmethod db-disassociate ((primary db-txn) (secondary db-txn))
  (with-slots (db-assoc) primary
    (setf db-assoc
	  (filter (lambda (arg)
		    (eq (car arg) secondary))
		  db-assoc))))