boot.user=> (defrecord User [forename surname password])
boot.user.User
boot.user=> (->User "gordon" "freeman" "alyx")
#boot.user.User{:forename "gordon", :surname "freeman", :password "alyx"}
boot.user=> (defmethod print-method User [user ^java.io.Writer writer] (.write writer (str "[User] " (:forename user) \space (:surname user))))
#object[clojure.lang.MultiFn 0x3c3787a3 "clojure.lang.MultiFn@3c3787a3"]
boot.user=> (->User "gordon" "freeman" "alyx")
[User] gordon freeman
boot.user=>