X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=57afac1b391084aaf658ec4d3511d6573ceaeb2e;hb=11261eca2090842638d1b3b7c12b7cc1f6d58f09;hp=e04180c615f662fe077bd9318acd61340b7bab0e;hpb=89b40554349ff77e986d1c6f584b9c9a28cf36af;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index e04180c..57afac1 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -597,7 +597,8 @@ uninclusive, and the args from that keyword to the end."
                                                       :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))
@@ -902,7 +903,7 @@ uninclusive, and the args from that keyword to the end."
 
 (defmethod database-output-sql ((num number) database)
   (declare (ignore database))
-  (princ-to-string num))
+  (number-to-sql-string num))
 
 (defmethod database-output-sql ((arg list) database)
   (if (null arg)