     (fn [game group-id]
       (let [current-pe (political-entity-at history t group-id)
             prev-pe    (political-entity-at history prev-t group-id)]
-        (if (not (nil? prev-pe))
+        (if-not (nil? prev-pe)
           (if (= (.culture current-pe) (.culture prev-pe))
             (let [updated-pe (assoc current-pe :culture :unchanged)]
               (update-political-entity game (.id updated-pe) (fn [_ _]  updated-pe)))

    fress/inheritance-lookup))

(defn- fress-read-handlers [resolve]
  (-> (merge {
               world-ftag    (world-freader resolve)
               language-ftag (language-freader)
             } fress/clojure-read-handlers)
          fress/associative-lookup))

(defn to-serialized-bytes [data]
  (let [os (java.io.ByteArrayOutputStream.)

(defn prepare-history-for-serialization
  "We replace elements unchanged from turn to turn with :unchanged"
  [history]
  (reduce prepare-history-turn-for-serialization history (rest (turns history))))

(defn- restore-game-from-serialization
  "Return game, updated"
