added list-of-db-strings

AccelerationNet · Jul 29, 2013 · 6910991 · 6910991
1 parent aeca964
commit 6910991
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/clsql-helper.asd b/clsql-helper.asd
@@ -22,7 +22,7 @@
                (:file "migrations"))
   :depends-on (:iterate :clsql :closer-mop :cl-ppcre
                 :cl-interpol :symbol-munger :alexandria
-                :md5 :access))
+                :md5 :access :collectors))
 
 (defsystem :clsql-helper-test
   :description "Tests for a library providing a clutch of utilities to make

diff --git a/clsql.lisp b/clsql.lisp
@@ -81,6 +81,13 @@
     (when s
       #?"'${prefix}${wrapper}${(clsql-sys:sql-escape-quotes s)}${wrapper}${postfix}'")))
 
+(defun list-of-db-strings (list)
+  "For use in creating `column IN (${stuff})` type of clauses"
+  (when list
+    (collectors:with-string-builder-output (out :delimiter ", ")
+      (iter (for i in (alexandria:ensure-list list))
+        (out (db-string i))))))
+
 (defun %clsql-subclauses (clauses)
   (iter (for c in clauses)
     (when c

diff --git a/package.lisp b/package.lisp
@@ -53,7 +53,7 @@
 
    ;; rest
    #:join-slot?
-   #:clsql-get-val #:clsql-exp #:db-string
+   #:clsql-get-val #:clsql-exp #:db-string #:list-of-db-strings
    #:clsql-ands #:clsql-and
    #:clsql-ors #:clsql-or
    #:clsql-column-name