(defmethod db-env-close ((db-env db-env)) (%db-env-close db-env) (setf (slot-value db-env 'db-env-handle) nil))