make SqlArray a record too

This commit is contained in:
Mike Blume 2015-04-15 09:53:15 -07:00
parent e047829046
commit 441c109b65

View file

@ -60,18 +60,12 @@
;;;; ;;;;
(deftype SqlArray [values _meta] (defrecord SqlArray [values])
Object
(hashCode [this] (hash-combine (hash (class this)) (hash values)))
(equals [_ x] (and (instance? SqlArray x) (= values (.values ^SqlArray x))))
clojure.lang.IObj
(meta [_] _meta)
(withMeta [_ m] (SqlArray. values m)))
(defn array (defn array
"Represents a SQL array." "Represents a SQL array."
[values] [values]
(SqlArray. values nil)) (SqlArray. values))
(defn array-vals [^SqlArray a] (defn array-vals [^SqlArray a]
(.values a)) (.values a))