10 Mar
2009
10 Mar
'09
9:21 p.m.
Hi again,
The following triggers an incorrect error for me. Not a major bug since the third case provides a workaround.
(defclass FOO () ((bar :col-type real)) (:metaclass dao-class) (:keys baz))
(dao-table-definition 'foo) ;; correct error.
;; redefine: (defclass FOO () ((bar :col-type real)) (:metaclass dao-class)) ;; incorrect error!
;; redefine: (defclass FOO () ((bar :col-type real)) (:metaclass dao-class) (:keys bar)) ;; works, then can run the second defclass successfully.
-Luke