Method: (DB-CLOSE DB-TXN)

Source

(defmethod db-close ((db db-txn) &key no-sync)
  (when (not (null (db-sec-handle db)))
    (%db-close (db-sec-handle db) :no-sync no-sync))
  (setf (slot-value db 'sec-handle) nil)
  (call-next-method)
  (when-bind assoc (db-assoc db)
    (when (and assoc (not (listp assoc)))
      (db-disassociate assoc db)))
  t)