Version 4.0.6

[clsql.git] / sql / oodml.lisp

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index cc57941e38e2520e80e48cad4ab50fa42b4c9b11..f797be0b02b36d611021bdffa4e9d3afc9477fea 100644 (file)
--- 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))