Skip to content

Instantly share code, notes, and snippets.

Avatar

Kevin Downey hiredman

View GitHub Profile
View gist:1204834
;; src/beta3/trial.clj:
(ns beta3.trial)
(defrecord TrialRecord [first last])
;; src/beta3/core.clj:
(ns beta3.core
;; fails if this require is removed:
(:import beta3.trial.TrialRecord))
View gist:990194
(deftype Foo []
Object
(equals [this x] (instance? (resolve 'Foo) x)))
(let [f (Foo.)]
(.equals f f)) ; false, creates problems when looking up items in map
You can’t perform that action at this time.