r10820: 12 Nov 2005 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index e04180c615f662fe077bd9318acd61340b7bab0e..766da12e6a3c9dba19b628aa608617d186c4da76 100644 (file)
--- 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)