From c3e3e19b61caa55bae90f76f957591259fa3b5f1 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Fri, 6 May 2005 16:42:59 +0000
Subject: [PATCH] r10522: also check for symbol in key-value-from-db

---
 sql/oodml.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.")))))
-- 
2.34.1