1.1 --- a/clojure/com/aurellem/gb/pokemon.clj	Thu Mar 22 22:35:57 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/pokemon.clj	Thu Mar 22 22:37:35 2012 -0500
     1.3 @@ -219,25 +219,22 @@
     1.4             stats (read-stats state poke-num)
     1.5             experience (read-experience state poke-num)
     1.6             OT-name (read-OT-name state poke-num)
     1.7 -           ID (read-OT-id state poke-num)
     1.8 -           ]
     1.9 -
    1.10 -       {:name nickname
    1.11 +           ID (read-OT-id state poke-num)]
    1.12 +       {;; persistent 
    1.13 +        :name nickname
    1.14          :species species
    1.15          :species2 species2
    1.16          :type type
    1.17          :dv dv-values
    1.18          :original-trainer OT-name
    1.19          :ID ID
    1.20 -        
    1.21          :moves (zipmap moves moves-pp)
    1.22  
    1.23 +        ;; ephemerial
    1.24          :satus status
    1.25          :stats stats
    1.26          :experience experience
    1.27 -
    1.28 -        }
    1.29 -       ))
    1.30 +        }))
    1.31    ([poke-num]
    1.32       (pokemon-info @current-state poke-num)))
    1.33