r10516: 06 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
authorKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 6 May 2005 08:02:17 +0000 (08:02 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 6 May 2005 08:02:17 +0000 (08:02 +0000)
        * sql/oodml.lisp: Change db-writer and db-reader processing to accept
        a symbol as well as function to serve as a function designator
        [issue noted by will@cesmail.net]

ChangeLog
sql/oodml.lisp

index d80de2c..1b4dd49 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+06 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * sql/oodml.lisp: Change db-writer and db-reader processing to accept
+       a symbol as well as function to serve as a function designator
+       [issue noted by will@cesmail.net]
+
 05 May 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.1.13
        * sql/time.lisp: Fix error in submitted patch which caused error
index e2a487e..2e0f6a6 100644 (file)
           ((typep slot-reader 'string)
            (setf (slot-value instance slot-name)
                  (format nil slot-reader value)))
-          ((typep slot-reader 'function)
+          ((typep slot-reader '(or symbol function))
            (setf (slot-value instance slot-name)
                  (apply slot-reader (list value))))
           (t
        (dbtype (specified-type slotdef)))
     (typecase dbwriter
       (string (format nil dbwriter val))
-      (function (apply dbwriter (list val)))
+      ((or symbol function) (apply dbwriter (list val)))
       (t
        (database-output-sql-as-type
        (typecase dbtype