diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-23 16:50:45 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-04-24 14:29:09 -0400 |
| commit | c487e48a65ee7cef66ef017c87a754fc88ba57e0 (patch) | |
| tree | 8271d576ef08b0ed23a0ba43b55db42e333ca1d2 /src | |
| parent | e0e0b6a2f192bf743e3629dff0b23a39ccf4f8db (diff) | |
java.util.Map for defrecord, #313
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core_deftype.clj | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj index 6e1d8d7e..0a90356e 100644 --- a/src/clj/clojure/core_deftype.clj +++ b/src/clj/clojure/core_deftype.clj @@ -196,8 +196,23 @@ `(without [~'this ~'k] (if (contains? #{~@(map keyword base-fields)} ~'k) (dissoc (with-meta (into {} ~'this) ~'__meta) ~'k) (new ~tagname ~@(remove #{'__extmap} fields) - (not-empty (dissoc ~'__extmap ~'k))))))])] - (let [[i m] (-> [interfaces methods] eqhash iobj ilookup imap)] + (not-empty (dissoc ~'__extmap ~'k))))))]) + (ijavamap [[i m]] + [(conj i 'java.util.Map) + (conj m + `(size [~'this] (.count ~'this)) + `(isEmpty [~'this] (= 0 (.count ~'this))) + `(containsValue [~'this ~'v] (-> ~'this vals (.contains ~'v))) + `(get [~'this ~'k] (.valAt ~'this ~'k)) + `(put [~'this ~'k ~'v] (throw (UnsupportedOperationException.))) + `(remove [~'this ~'k] (throw (UnsupportedOperationException.))) + `(putAll [~'this ~'m] (throw (UnsupportedOperationException.))) + `(clear [~'this] (throw (UnsupportedOperationException.))) + `(keySet [~'this] (set (keys ~'this))) + `(values [~'this] (vals ~'this)) + `(entrySet [~'this] (set ~'this)))]) + ] + (let [[i m] (-> [interfaces methods] eqhash iobj ilookup imap ijavamap)] `(deftype* ~tagname ~classname ~(conj hinted-fields '__meta '__extmap) :implements ~(vec i) ~@m))))) |