From e520ca44fbd7999a3185f34e68f656b954707993 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 30 May 2004 10:00:34 +0000 Subject: [PATCH] r9528: move special variable declaration --- sql/expressions.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/sql/expressions.lisp b/sql/expressions.lisp index de8124d..cc2e53b 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -374,6 +374,7 @@ :test (lambda (tab1 tab2) (equal (slot-value tab1 'name) (slot-value tab2 'name)))))) +(defvar *in-subselect* nil) (defmethod output-sql ((expr sql-function-exp) database) (with-slots (name args) @@ -564,8 +565,6 @@ uninclusive, and the args from that keyword to the end." :group-by group-by :having having :order-by order-by :inner-join inner-join :on on)))))) -(defvar *in-subselect* nil) - (defmethod output-sql ((query sql-query) database) (with-slots (distinct selections from where group-by having order-by limit offset inner-join on all set-operation) -- 2.34.1