From e75e62c7127f074ef2b2add3d2850c42dfaf590e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 11 Nov 2005 16:26:08 +0000 Subject: [PATCH] r10820: 12 Nov 2005 Kevin Rosenberg * Version 3.4.1 * sql/expressions.lisp: Escape numbers to SQL strings at expression level. --- ChangeLog | 5 +++++ debian/changelog | 6 ++++++ sql/expressions.lisp | 2 +- sql/utils.lisp | 2 +- 4 files changed, 13 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 29a6496..fb6c073 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +12 Nov 2005 Kevin Rosenberg + * Version 3.4.1 + * sql/expressions.lisp: Escape numbers to SQL strings + at expression level. + 11 Nov 2005 Kevin Rosenberg * 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 617f9ee..c9301c7 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (3.4.1-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg 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 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) diff --git a/sql/utils.lisp b/sql/utils.lisp index ef4f990..d0402e8 100644 --- 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 -- 2.34.1