Skip to content

Instantly share code, notes, and snippets.

@hiredman

hiredman/core.clj

Created October 8, 2010 05:23
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 hiredman/616395 to your computer and use it in GitHub Desktop.
Save hiredman/616395 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(with-db
(st-return (uuid)) :as client-id
(store :foo :bar :baz)
(retrieve :foo :bar) :as x
(store :foo :bar 10)
(retrieve :foo :bar) :as w
(st-return (println x w))
(store :foo :bar [x w])
(retrieve :foo :bar) :as w
(store :bar :foo [x w])
(retrieve :foo :bar) :as x
(st-return (println client-id)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment