From: Kevin M. Rosenberg Date: Fri, 6 May 2005 08:02:17 +0000 (+0000) Subject: r10516: 06 May 2005 Kevin Rosenberg X-Git-Tag: v3.8.6~153 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f965db085f8c538eed152128887df3da640a1562 r10516: 06 May 2005 Kevin Rosenberg * 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] --- diff --git a/ChangeLog b/ChangeLog index d80de2c..1b4dd49 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +06 May 2005 Kevin Rosenberg + * 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 * Version 3.1.13 * sql/time.lisp: Fix error in submitted patch which caused error diff --git a/sql/oodml.lisp b/sql/oodml.lisp index e2a487e..2e0f6a6 100644 --- a/sql/oodml.lisp +++ b/sql/oodml.lisp @@ -103,7 +103,7 @@ ((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 @@ -130,7 +130,7 @@ (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