r9213: fix odbc/postgresql null value for strings

diff --git a/ChangeLog b/ChangeLog
index 1d2073411e901306975d228a6e246dcb5cf23fdd..c25285614315548ea9a57c6b47ac6b52301fa4db 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 3 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
-       * Version 2.10.8
+       * db-odbc/odbc-api.lisp: Fix changing nil to "NIL" 
+       for odbc/postgresql backend.
+
+3 May 2004 Kevin Rosenberg (kevin@rosenberg.net)
+       * Version 2.10.8        
        * base/conditions.lisp: Add *backend-warning-behavior*
        special variable.
        * db-postgresql-socket/postgresql-socket-sql.lisp:

diff --git a/db-odbc/odbc-api.lisp b/db-odbc/odbc-api.lisp
index e51f2483b1c4cebc026651dff63ae2d4858bc507..befda147934916cbcd33c783ee82f93f44635875 100644 (file)
--- a/db-odbc/odbc-api.lisp
+++ b/db-odbc/odbc-api.lisp
@@ -663,6 +663,7 @@ as possible second argument) to the desired representation of date/time/timestam
     ;; FIXME: this could be better optimized for types which use READ-FROM-STRING above
     
     (if (and (or (eq result-type t) (eq result-type :string))
+            value
             (not (stringp value)))
        (write-to-string value)
       value)))