From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Fri, 6 May 2005 16:42:59 +0000 (+0000)
Subject: r10522: also check for symbol in key-value-from-db
X-Git-Tag: v3.8.6~152
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=c3e3e19b61caa55bae90f76f957591259fa3b5f1

r10522: also check for symbol in key-value-from-db
---

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 2e0f6a6..aebadfa 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -120,7 +120,7 @@
            nil)
           ((typep slot-reader 'string)
            (format nil slot-reader value))
-          ((typep slot-reader 'function)
+          ((typep slot-reader '(or symbol function))
            (apply slot-reader (list value)))
           (t
            (error "Slot reader is of an unusual type.")))))