Method: (DB-GET-TYPE DB)

Source

(defmethod db-get-type ((db db))
  (let ((val (%db-get-type db)))
    (with-flag-system (find-flag-system :bdb-flags)
      (flag-list val
		 :flags '(:db-btree
			  :db-hash
			  :db-recno
			  :db-queue
			  :db-unknown)))))