Do not check for duplicates in destructuring map creation

Signed-off-by: Stuart Halloway <[email protected]>

Author: kotarak

src/clj/clojure/core.clj

@@ -3932,7 +3932,7 @@
                        (let [gmap (gensym "map__")
                              defaults (:or b)]
                          (loop [ret (-> bvec (conj gmap) (conj v)
-                                        (conj gmap) (conj `(if (seq? ~gmap) (apply hash-map ~gmap) ~gmap))
+                                        (conj gmap) (conj `(if (seq? ~gmap) (clojure.lang.PersistentHashMap/create ~gmap) ~gmap))
                                         ((fn [ret]
                                            (if (:as b)
                                              (conj ret (:as b) gmap)

test/clojure/test_clojure/special.clj

@@ -22,3 +22,8 @@
 ; var
 ; fn
 
+(deftest multiple-keys-in-destructuring
+  (let [foo (fn [& {:keys [x]}] x)
+        bar (fn [& options] (apply foo :x :b options))]
+    (is (= (bar) :b))
+    (is (= (bar :x :a) :a))))