records.clj

(defprotocol Talker 
  (talk [this msg]))
    
(defrecord Hero
  [name type position health objects]
  Talker
  (talk [this msg]
    (println (:name this) ":" msg)))
   
(->Hero "Bad Guy" :warrior {:x 11 :y 344} 93 [:sword :dagger])
(map->Hero {:name "Bad Guy" :type :warrior})
(->Hero "Bad Guy" :warrior {:x 11 :y 344} 93 [:sword :dagger])

(map->Hero {:name "Bad Guy" :type :warrior})
{:health nil, :name "Bad Guy", :objects nil, :position nil, :type :warrior}
(Hero.)
   
(Hero. "Bad Guy" :warrior {:x 11 :y 344} 93 [:sword :dagger])
(let [max (Hero. "Bad Guy" :warrior {:x 11 :y 344} 93 [:sword :dagger])]
(talk max "Don't mess with me."))