;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;;
-;;;; $Id: $
+;;;; $Id$
;;;;
;;;; Classes defining SQL expressions and methods for formatting the
;;;; appropriate SQL commands.
(with-slots (name args)
expr
(output-sql name database)
- (when args (output-sql args database)))
+ (let ((*in-subselect* nil)) ;; aboid double parens
+ (when args (output-sql args database))))
t)