Skip to content

Instantly share code, notes, and snippets.

@hiredman

hiredman/gist:67d1cc3236b3732df852 Secret

Forked from anonymous/gist:b75be902b2b578e2e55b
Last active December 10, 2015 15: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 hiredman/67d1cc3236b3732df852 to your computer and use it in GitHub Desktop.
Save hiredman/67d1cc3236b3732df852 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(defn get-instance [m k]
(dosync
(alter m (fn [x] (if (contains? x k) x (assoc x k (create-some-instance)))))
(get @m k)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment