cl-2sql

Lisp to SQL compiler for Common Lisp
git clone https://logand.com/git/cl-2sql.git/
Log | Files | Refs | README | LICENSE

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:
Mmacros.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))