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

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 2e0f6a64182237f0cadc43eccb323e29922fbaf8..aebadfa27b31346c0e1294f190cd7b669eb991c0 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -120,7 +120,7 @@
            nil)
           ((typep slot-reader 'string)
            (format nil slot-reader value))
            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.")))))
            (apply slot-reader (list value)))
           (t
            (error "Slot reader is of an unusual type.")))))