(defmethod db-sequ-remove ((sequ db-sequence-txn) &key txn no-sync) (with-txn (txn (db-get-env sequ) :txn txn) (call-next-method sequ :txn txn :no-sync no-sync)))