(string-equal (slot-value a 'alias)
(slot-value b 'alias))
t)
- (string-equal (symbol-name (slot-value a 'name))
- (symbol-name (slot-value b 'name))))))
+ (string-equal (sql-escape (slot-value a 'name))
+ (sql-escape (slot-value b 'name))))))
(typecase from
(list (output-sql (apply #'vector
(remove-duplicates from
:test #'ident-table-equal))
database))
(string (write-string from *sql-stream*))
- (t (output-sql from database)))))
+ (t (let ((*in-subselect* t))
+ (output-sql from database))))))
(when inner-join
(write-string " INNER JOIN " *sql-stream*)
(output-sql inner-join database))
database))))
(defmethod database-output-sql ((tee (eql t)) database)
+ (if database
+ (let ((val (database-output-sql-as-type 'boolean t database (database-type database))))
+ (when val
+ (typecase val
+ (string (format nil "'~A'" val))
+ (integer (format nil "~A" val)))))
+ "'Y'"))
+
+#+nil(defmethod database-output-sql ((tee (eql t)) database)
(declare (ignore database))
"'Y'")