r8942: add :query to sql recording, support describe-table

[clsql.git] / base / utils.lisp

diff --git a/base/utils.lisp b/base/utils.lisp
index 98ada92fca4932c6658100063ca9d59d78d2f623..8997c30c9e5798b06fd6c4b1ef42f8663edcf902 100644 (file)
--- a/base/utils.lisp
+++ b/base/utils.lisp
@@ -231,3 +231,10 @@ returns (VALUES string-output error-output exit-status)"
     (keyword name)
     (string (nth-value 0 (intern (string-default-case name) :keyword)))
     (symbol (nth-value 0 (intern (symbol-name name) :keyword)))))
+
+;; From KMRCL
+(defmacro in (obj &rest choices)
+  (let ((insym (gensym)))
+    `(let ((,insym ,obj))
+       (or ,@(mapcar #'(lambda (c) `(eql ,insym ,c))
+                     choices)))))