cl-2sql

commit db33734e00bf8553751490c047f0ddd86944a781
parent 8c4f2c24a2166e6e37744a806b5a0a706423d903
Author: Tomas Hlavaty <tom@logand.com>
Date:   Tue,  6 Sep 2011 23:10:34 +0200

fix delete-from query macro

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

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/macros.lisp b/macros.lisp
@@ -116,8 +116,8 @@
                      (:share '(:share)))
            ,@(cl:unless wait '(:nowait))))
 
-(defsyntax delete-from (tab &optional where)
-  `(prefix :delete :from ,tab ,@(cl:when where (cl:list where))))
+(defsyntax delete-from (tab &body where)
+  `(prefix :delete :from ,tab ,@where))
 
 (cl:macrolet ;; join
     ((defop (name &rest rest)