From 6c813a0543182a94859d01a6af85d5e08d23ec35 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Tue, 25 Aug 2009 09:36:19 -0400 Subject: [PATCH] in output-sql (sql-relational-exp)-> made it not output anything if the relation has no subexpressions --- sql/expressions.lisp | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/sql/expressions.lisp b/sql/expressions.lisp index aa9edca..d7a95ef 100644 --- a/sql/expressions.lisp +++ b/sql/expressions.lisp @@ -243,18 +243,20 @@ (defmethod output-sql ((expr sql-relational-exp) database) (with-slots (operator sub-expressions) - expr - (let ((subs (if (consp (car sub-expressions)) - (car sub-expressions) - sub-expressions))) - (write-char #\( *sql-stream*) - (do ((sub subs (cdr sub))) - ((null (cdr sub)) (output-sql (car sub) database)) - (output-sql (car sub) database) - (write-char #\Space *sql-stream*) - (output-sql operator database) - (write-char #\Space *sql-stream*)) - (write-char #\) *sql-stream*))) + expr + (when sub-expressions + (let ((subs (if (consp (car sub-expressions)) + (car sub-expressions) + sub-expressions))) + (write-char #\( *sql-stream*) + (do ((sub subs (cdr sub))) + ((null (cdr sub)) + (output-sql (car sub) database)) + (output-sql (car sub) database) + (write-char #\Space *sql-stream*) + (output-sql operator database) + (write-char #\Space *sql-stream*)) + (write-char #\) *sql-stream*)))) t) (defclass sql-array-exp (sql-relational-exp) -- 2.34.1