From 581e3910304b4054f41b0cb41105b03519af63b1 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg Date: Wed, 12 Dec 2007 13:34:49 -0700 Subject: [PATCH] * sql/expressions.lisp: Bind *in-subselect* when outputting selections --- ChangeLog | 4 ++++ sql/expressions.lisp | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 0762a7e..f11778a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +12 Dec 2007 Kevin Rosenberg + * sql/expressions.lisp: Bind *in-subselect* when outputting + selections (patch from unknown source). + 11 Dec 2007 Kevin Rosenberg * Version 4.0.3 * sql/metaclasses.lisp: Unify base-table processing by extracting diff --git a/sql/expressions.lisp b/sql/expressions.lisp index 91a46d7..6aaeded 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -571,7 +571,8 @@ uninclusive, and the args from that keyword to the end." (write-string "ON " *sql-stream*) (output-sql distinct database) (write-char #\Space *sql-stream*))) - (output-sql (apply #'vector selections) database) + (let ((*in-subselect* t)) + (output-sql (apply #'vector selections) database)) (when from (write-string " FROM " *sql-stream*) (flet ((ident-table-equal (a b) -- 2.34.1