Method: (DB-CLOSE DB)

Source

(defmethod db-close ((db db) &key no-sync)
  (%db-close (db-handle db) :no-sync no-sync)
  (setf (slot-value db 'db-handle) nil))