luciano/honeysql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge f8127e3aac into 0c3f3d0403

Browse source
This commit is contained in:
Michael Blume 2015-01-23 00:21:41 +00:00
commit 9ea98b6f5d
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/honeysql/format.clj
View file

@ -260,11 +260,19 @@
nil nil
(-to-sql [x] "NULL")) (-to-sql [x] "NULL"))
(def class-cache (atom nil))
(defn sqlable? [x] (defn sqlable? [x]
(satisfies? ToSql x)) (let [c (class x)
cache @class-cache]
(if (contains? cache c)
(cache c)
(let [result (satisfies? ToSql x)]
(swap! class-cache assoc c result)
result))))
(defn to-sql [x] (defn to-sql [x]
(if (satisfies? ToSql x) (if (sqlable? x)
(-to-sql x) (-to-sql x)
(let [[x pname] (if (instance? SqlParam x) (let [[x pname] (if (instance? SqlParam x)
(let [pname (param-name x)] (let [pname (param-name x)]