+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
((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