diff --git a/src/class.lisp b/src/class.lisp
--- a/src/class.lisp
+++ b/src/class.lisp
@@ -36,8 +36,8 @@
 (defvar *ignore-transaction* nil "Bind to T to ignore transaction slot writer in a dynamic scope")
 
 (defmacro deftable (name direct-superclasses direct-slots &rest options)
-  (unless (and (getf options :auto-pk)
-               (getf options :record-timestamps))
+  (unless (and (cdr (or (assoc :auto-pk options) (cons t t)))
+               (cdr (or (assoc :record-timestamps options) (cons t t))))
     (error "Cached DAO require both :AUTO-PK and :RECORD-TIMESTAMPS"))
   `(defclass ,name ,direct-superclasses
      ,direct-slots