1 files changed, 16 insertions, 0 deletions
diff --git a/src/primmath.clj b/src/primmath.clj
index 87f78ccb..877968ba 100644
--- a/src/primmath.clj
+++ b/src/primmath.clj
@@ -27,6 +27,10 @@
 (definline negate [x] `(. Numbers$I negate ~x))
 
 (definline aget [xs i] `(. Numbers$I aget ~xs ~i))
+
+(definline aset! [xs i v] `(. Numbers$I aset ~xs ~i ~v))
+(definline aclone [xs] `(. Numbers$I aclone ~xs))
+
 (definline alength [xs] `(. Numbers$I alength ~xs))
 
 (defn array 
@@ -103,6 +107,10 @@
 (definline negate [x] `(. Numbers$L negate ~x))
 
 (definline aget [xs i] `(. Numbers$L aget ~xs ~i))
+
+(definline aset! [xs i v] `(. Numbers$L aset ~xs ~i ~v))
+(definline aclone [xs] `(. Numbers$L aclone ~xs))
+
 (definline alength [xs] `(. Numbers$L alength ~xs))
 
 (defn array 
@@ -179,6 +187,10 @@
 (definline negate [x] `(. Numbers$F negate ~x))
 
 (definline aget [xs i] `(. Numbers$F aget ~xs ~i))
+
+(definline aset! [xs i v] `(. Numbers$F aset ~xs ~i ~v))
+(definline aclone [xs] `(. Numbers$F aclone ~xs))
+
 (definline alength [xs] `(. Numbers$F alength ~xs))
 
 (defn array 
@@ -255,6 +267,10 @@
 (definline negate [x] `(. Numbers$D negate ~x))
 
 (definline aget [xs i] `(. Numbers$D aget ~xs ~i))
+
+(definline aset! [xs i v] `(. Numbers$D aset ~xs ~i ~v))
+(definline aclone [xs] `(. Numbers$D aclone ~xs))
+
 (definline alength [xs] `(. Numbers$D alength ~xs))
 
 (defn array