Added some postgres overloads for database-output-sql-as-type so that nullable floati...

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 70a8e9fb9dc8aa5887ad2f81e07faa26f83efefd..360d5fe4b1a623a8a412b9e3bf9fa40ec813f333 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -21,6 +21,13 @@
 
 
 ;; Object functions
+(defmethod database-output-sql-as-type ((type (eql 'float)) val database (db-type (eql :postgresql)))
+  (declare (ignore database db-type))
+  val)
+
+(defmethod database-output-sql-as-type ((type (eql 'float)) val database (db-type (eql :postgresql-socket)))
+  (declare (ignore database db-type))
+  val)
 
 (defmethod database-get-type-specifier (type args database
                                         (db-type (eql :postgresql)))