From f965db085f8c538eed152128887df3da640a1562 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 6 May 2005 08:02:17 +0000 Subject: [PATCH] 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] --- ChangeLog | 5 +++++ sql/oodml.lisp | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 -- 2.34.1