Berkley DB CFFI-Bindings

BDB Locking system 

(defmethod+ ("db_env_set_lk_detect" db-env-set-lk-detect) :int
  (dbenv :pointer :class (db-env db-env-handle))
  (detect :flag (:default :expire
		 :max-locks :max-write
		 :min-locks :min-write
		 :oldest :random
		 :youngest)))
(defmethod+ ("db_env_lock_detect" db-env-lock-detect) :int
  (env :pointer :class (db-env db-env-handle))
  (flags :uint32 :const 0)
  (atype :flag (:default :expire
		 :max-locks :max-write
		 :min-locks :min-write
		 :oldest :random
		 :youngest))
  (aborted :out :int))