add a :before method to make sure dao classes are finalized whenever their keys are accessed
Mon Mar 29 23:42:09 PDT 2010 marijnh@gmail.com
* add a :before method to make sure dao classes are finalized whenever their keys are accessed
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-postmodern/postmodern/table.lisp new-postmodern/postmodern/table.lisp
--- old-postmodern/postmodern/table.lisp 2014-07-29 05:49:56.000000000 -0700
+++ new-postmodern/postmodern/table.lisp 2014-07-29 05:49:56.000000000 -0700
@@ -7,6 +7,10 @@
(column-map :reader dao-column-map))
(:documentation "Metaclass for database-access-object classes."))
+(defmethod dao-keys :before ((class dao-class))
+ (unless (class-finalized-p class)
+ (finalize-inheritance class)))
+
(defmethod validate-superclass ((class dao-class) (super-class standard-class))
t)