I have a type Book defined with defrecord, and a function to convert it into a string:
(defrecord Book [title author])
(defn book->string [book] (str (:title book) " by " (:author book)))
(book->string (->Book "Foo" "Bar")) ;; "Foo by Bar"
Is it possible to extend the record so that I can call (str (->Book "Foo" "Bar")) instead?