1.1 --- a/clojure/com/aurellem/exp/pokemon.clj	Sat Mar 24 05:38:17 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/pokemon.clj	Sat Mar 24 05:45:06 2012 -0500
     1.3 @@ -90,14 +90,14 @@
     1.4                                               character)))
     1.5  
     1.6  
     1.7 -(def end-of-name-marker 0x50)
     1.8 -(def max-name-length 10)
     1.9 -(def name-width 11)
    1.10 +;;(def end-of-name-marker 0x50)
    1.11 +;;(def max-name-length 10)
    1.12 +;;(def name-width 11)
    1.13  
    1.14 -(defn read-name [codes]
    1.15 -  (character-codes->str
    1.16 -   (take-while
    1.17 -    (partial not= end-of-name-marker) codes)))
    1.18 +;; (defn read-name [codes]
    1.19 +;;   (character-codes->str
    1.20 +;;    (take-while
    1.21 +;;     (partial not= end-of-name-marker) codes)))
    1.22      
    1.23  
    1.24  (defn sixth-pokemon-name [^SaveState state]