X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=766da12e6a3c9dba19b628aa608617d186c4da76;hb=0b4cd1d96605598f9c7ff1adfe104474c3385e44;hp=e04180c615f662fe077bd9318acd61340b7bab0e;hpb=89b40554349ff77e986d1c6f584b9c9a28cf36af;p=clsql.git

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index e04180c..766da12 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -902,7 +902,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)