gistfile1.txt

Uncaught Error: No protocol method ILookup.-lookup defined for type object: [object Object] 

test.clj

(defrecord Test [foo bar])

(defn test2 [map]
  (reify
    IAssociative
    (-assoc [coll k v]
      (.log js/console (str "setting " (pr-str k) " to " (pr-str v)))
      (test2 (-assoc map k v)))
    (-contains-key? [coll k] (-contains-key? map k))))

(defn ^:export init []
  (let [t (Test. 1 2)
        a (test2 t)]
    (assoc-in (assoc a :foo 3) [:bar] 4)
    (.log js/console (pr-str (:foo a)))))