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

        * Version 3.4.1
        * sql/expressions.lisp: Escape numbers to SQL strings
        at expression level.

diff --git a/ChangeLog b/ChangeLog
index 29a649694f72db3e1e33ace79cdfad0caa66ddb6..fb6c073b30facbb00bf3c0f1b4343c5726fec15c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+12 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
+       * Version 3.4.1
+       * sql/expressions.lisp: Escape numbers to SQL strings
+       at expression level.
+       
 11 Nov 2005  Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.4: Add MySQL 5 support
        * db-mysql/mysql-client-info.lisp: Recognize MySQL 5

diff --git a/debian/changelog b/debian/changelog
index 617f9eecbd147b6a84011e3ff2dd4d6923c55720..c9301c7f5f9df063c739706ae3c4f739106a05b8 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-sql (3.4.1-1) unstable; urgency=low
+
+  * New upstream
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 11 Nov 2005 09:24:48 -0700
+
 cl-sql (3.4.0-1) unstable; urgency=low
 
   * New upstream

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)

diff --git a/sql/utils.lisp b/sql/utils.lisp
index ef4f990e456afe391266e97f42ebbc14cccc19fe..d0402e8954a7fb7b85a96f77887a5f0ad62cdd08 100644 (file)
--- a/sql/utils.lisp
+++ b/sql/utils.lisp
@@ -21,7 +21,7 @@
 (defun number-to-sql-string (num)
   (etypecase num
     (integer
-     num)
+     (princ-to-string num))
     (rational
      (float-to-sql-string (coerce num 'double-float)))
     (number