Skip to content

Instantly share code, notes, and snippets.

@belun

belun/gist:1243395

Created September 26, 2011 20:58
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save belun/1243395 to your computer and use it in GitHub Desktop.
Save belun/1243395 to your computer and use it in GitHub Desktop.
Download ZIP
auto-vals inside protocol from record
Raw
gistfile1.txt
user=> (defprotocol Fun-Time (drinky-drinky [_]))
Fun-Time
user=> (defrecord Someone [nick-name preffered-drink] Fun-Time (drinky-drinky [_] (str nick-name " (having " preffered-drink ") : uuumm")))
user.Someone
user=> (def dude (Someone. "belun" "daiquiri"))
#'user/dude
user=> (drinky-drinky dude)
"belun (having daiquiri) : uuumm"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment