projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fa8bab0
)
r9528: move special variable declaration
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 30 May 2004 10:00:34 +0000
(10:00 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sun, 30 May 2004 10:00:34 +0000
(10:00 +0000)
sql/expressions.lisp
patch
|
blob
|
history
diff --git
a/sql/expressions.lisp
b/sql/expressions.lisp
index de8124d40432645443244ba0ea79e8b5c3b90b23..cc2e53b20fcab7f189b85ebd14fdd9a937607a99 100644
(file)
--- 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))))))
: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)
(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))))))
: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)
(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)