cl-2sql

commit 333c47efc9a05b1c055b0faecad71d00c94b7cf2
parent 989f74766e9f8a3e7ea6e7d6b3798546df231ddb
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 13 Aug 2011 17:47:13 +0200

better indenting in query macro

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

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/compiler.lisp b/compiler.lisp
@@ -35,8 +35,9 @@
 
 ;;(compiled-query-lambda '(a b) '(q:+ (q:qvar a) (q:qvar b)))
 
-(defmacro query (args form)
-  `(funcall (compiled-query-lambda ',args ,form) ,@args))
+(defmacro query (args &body form)
+  (assert (not (cdr form)))
+  `(funcall (compiled-query-lambda ',args ,(car form)) ,@args))
 
 ;;(let ((a 1) (b 2)) (query (a b) '(q:+ (q:qvar a) (q:qvar b))))