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

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))