##// END OF EJS Templates
u » someseven » mito-transactions
RSS
Error if pk or timestamps are disabled
someseven -
r2:8350841e default
parent child Browse files
Show More
Show file before | Show file after | Hide comments
@@ -36,6 +36,9 b''
36 (defvar *ignore-transaction* nil "Bind to T to ignore transaction slot writer in a dynamic scope")
36 (defvar *ignore-transaction* nil "Bind to T to ignore transaction slot writer in a dynamic scope")
37
37
38 (defmacro deftable (name direct-superclasses direct-slots &rest options)
38 (defmacro deftable (name direct-superclasses direct-slots &rest options)
39 (unless (and (getf options :auto-pk)
40 (getf options :record-timestamps))
41 (error "Cached DAO require both :AUTO-PK and :RECORD-TIMESTAMPS"))
39 `(defclass ,name ,direct-superclasses
42 `(defclass ,name ,direct-superclasses
40 ,direct-slots
43 ,direct-slots
41 (:metaclass transaction-dao-class)
44 (:metaclass transaction-dao-class)
General Comments 0
You need to be logged in to leave comments. Login now