r9211: add *backend-warning-behavior

[clsql.git] / sql / objects.lisp

diff --git a/sql/objects.lisp b/sql/objects.lisp
index 9598ea643d3172bf8acdd209be7fd443e42b52a6..cb158d296957b4aea192dd8859c0451ebf8fb388 100644 (file)
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -665,9 +665,9 @@ superclass of the newly-defined View Class."
        (string (if (string= "0" val) nil t))
        (integer (if (zerop val) nil t))))
     (:postgresql
-     (if (database-type :odbc)
+     (if (eq :odbc (database-type database))
         (if (string= "0" val) nil t)
-        (equal "t" val)))
+       (equal "t" val)))
     (t
      (equal "t" val))))