cl-2sql

commit 3b9a79f8e0368d8bb9c2c43a8ac1cb0bf78c2918
parent 27c6dffc8d7a2cbf4106a2ac0ea5ab3945d4beb0
Author: Tomas Hlavaty <tom@logand.com>
Date:   Wed,  7 Sep 2011 00:04:23 +0200

query macro column accepts other arg for other specifiers

Diffstat:
M
macros.lisp
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/macros.lisp b/macros.lisp
@@ -443,10 +443,11 @@
            (clist ,@(cl:loop :for (k v) :in alist :collect `(lst " = " ,k ,v)))
            ,where))
 
-(defsyntax column (name type &optional nullable default)
+(defsyntax column (name type &optional nullable default other)
   `(prefix ,name ,type
            (nullable ,nullable)
-           ,@(cl:when default `(:default ,default))))
+           ,@(cl:when default `(:default ,default))
+           ,@(cl:when other (cl:list (cl:macroexpand other)))))
 
 (defsyntax columns (&body cols)
   `(clist ,@cols))