Method: (DB-ENV-GET-LK-DETECT DB-ENV)

Source

(defmethod db-env-get-lk-detect ((db-env db-env))
  (first
   (let ((val (%db-env-get-lk-detect db-env)))
     (with-flag-system (find-flag-system :bdb-flags)
       (flag-list val '(:default :expire
		 :max-locks :max-write
		 :min-locks :min-write
		 :oldest :random
		 :youngest))))))