hiredman

(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

hiredman

;; 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))