Method: (DB-SEQU-GET-FLAGS DB-SEQUENCE)

Source

(defmethod db-sequ-get-flags ((sequ db-sequence))
  (let ((value (%db-sequ-get-flags sequ)))
    (with-flag-system (find-flag-system :bdb-flags)
      (flag-list value
		 '(:seq-dec :seq-inc :seq-wrap)))))