From 7bc1653cd1b014311f72b0d43c5876b3facfbc6c Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 17 May 2005 19:08:07 +0000 Subject: [PATCH] r10540: 17 May 2005 Kevin Rosenberg * Version 3.1.14 * sql/oodml.lisp: Properly handle when db-writer is NIL --- ChangeLog | 4 ++++ debian/changelog | 8 +++++++- sql/oodml.lisp | 2 +- 3 files changed, 12 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index a43a34c..d62aa4e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +17 May 2005 Kevin Rosenberg + * Version 3.1.14 + * sql/oodml.lisp: Properly handle when db-writer is NIL + 11 May 2005 Kevin Rosenberg * sql/expressions.lisp: Avoid using simple-string declaration when a non-simple string may be encountered. [issue noted by diff --git a/debian/changelog b/debian/changelog index 4bcde12..e1d9d69 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,8 +1,14 @@ +cl-sql (3.1.14-1) unstable; urgency=low + + * New upstream + + -- Kevin M. Rosenberg Tue, 17 May 2005 13:06:45 -0600 + cl-sql (3.1.13-1) unstable; urgency=low * New upstream - -- Kevin M. Rosenberg Thu, 5 May 2005 22:18:56 -0600 + -- Kevin M. Rosenberg Tue, 17 May 2005 13:06:24 -0600 cl-sql (3.1.12-1) unstable; urgency=low 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 -- 2.34.1