From 09d4a0ba8bcb0f3473ff14e8f5abc2f328b20261 Mon Sep 17 00:00:00 2001 From: "russ@acceleration.net" Date: Thu, 3 Jul 2008 12:34:09 -0400 Subject: [PATCH] Added some postgres overloads for database-output-sql-as-type so that nullable floating point numbers work correctly --- sql/generic-postgresql.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp index 70a8e9f..360d5fe 100644 --- 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))) -- 2.34.1