From: russ@acceleration.net Date: Thu, 3 Jul 2008 16:34:09 +0000 (-0400) Subject: Added some postgres overloads for database-output-sql-as-type so that nullable floati... X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=09d4a0ba8bcb0f3473ff14e8f5abc2f328b20261;p=clsql.git Added some postgres overloads for database-output-sql-as-type so that nullable floating point numbers work correctly --- 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)))