X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=85730dccf7d7f2eedf870992d567bf6a704a2fc4;hp=aebadfa27b31346c0e1294f190cd7b669eb991c0;hb=706c29aa55b25e5b7c7f90460589a4702b1390e7;hpb=c3e3e19b61caa55bae90f76f957591259fa3b5f1

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index aebadfa..85730dc 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -130,7 +130,7 @@
 	(dbtype (specified-type slotdef)))
     (typecase dbwriter
       (string (format nil dbwriter val))
-      ((or symbol function) (apply dbwriter (list val)))
+      ((and (or symbol function) (not null)) (apply dbwriter (list val)))
       (t
        (database-output-sql-as-type
 	(typecase dbtype