CLJS-3095: apply vector with array acts as vec

In this case, clone the array.

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -5721,7 +5721,7 @@ reduces them without incurring seq initialization"
   "Creates a new vector containing the args."
   [& args]
   (if (and (instance? IndexedSeq args) (zero? (.-i args)))
-    (.fromArray PersistentVector (.-arr args) true)
+    (.fromArray PersistentVector (.-arr args) (not (array? (.-arr args))))
     (vec args)))
 
 (declare subvec)

src/test/cljs/cljs/core_test.cljs

@@ -1789,3 +1789,9 @@
   (is (= [] (subvec [1 2 3 4] 1.7 1.3)))
   (is (thrown-with-msg? js/Error #"Index out of bounds" (subvec [1 2 3 4] 0 5)))
   (is (= [1 2 3 4] (subvec [1 2 3 4] 0 4.9))))
+
+(deftest test-cljs-3095
+  (let [a #js [:original]
+        v (apply vector a)]
+    (aset a 0 :modified)
+    (is (= :original (v 0)))))