r9312: * sql/relations.lisp: Remove functions since they don't support

[clsql.git] / db-odbc / odbc-api.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)))