X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=f797be0b02b36d611021bdffa4e9d3afc9477fea;hp=cc57941e38e2520e80e48cad4ab50fa42b4c9b11;hb=eaea8232bda93fd38410e46dd22ec954b2fc4a18;hpb=aaffeb0415e1caaf1595bee7a5e9d58379c4431e

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index cc57941..f797be0 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -495,8 +495,10 @@
 
 (defmethod database-output-sql-as-type ((type (eql 'float)) val database db-type)
   (declare (ignore database db-type))
-  (let ((*read-default-float-format* (type-of val)))
-    (format nil "~F" val)))
+  (if (eq (type-of val) 'null)
+      nil
+      (let ((*read-default-float-format* (type-of val)))
+       (format nil "~F" val))))
 
 (defmethod read-sql-value (val type database db-type)
   (declare (ignore type database db-type))