gistfile1.txt

(deftype Node [name table]
  Object
  (equals [this other]
    (= (:name this) (:name other)))
  (hashCode [this]
    (.hashCode (:name this))))

;; if i try

(set [(Node. :a "mmm") (Node. :a "bbbb")])

;; I get Evaluation aborted