Marijn Haverbeke wrote: > Is there anything that might be causing the class to be finalised > multiple times? (Multiple defclass forms, or a redefinition of a > parent class...) These methods get defined every time the class is > finalised. > > I don't know. Maybe I am not using the :metaclass correctly. I have classes in a file as in this example:
(defclass cpa-email () ((id :col-type integer :accessor email-id) (member_id :col-type integer :accessor email-member)) (:metaclass postmodern:dao-class) (:keys id) (:table-name db_email)) (defclass cpa-phone () ((id :col-type integer :accessor phone-id) (member :col-type integer :accessor phone-member) (description :col-type string :accessor phone-description)) (:metaclass postmodern:dao-class) (:keys id) (:table-name db_phone)) When I compile this, I get the warnings: ;;;*** Warning in (DEFCLASS CPA-EMAIL): (METHOD GET-DAO ((EQL (CLASS-NAME CLASS)))) defined more than once in d:\lisp\postmodern\postmodern\table.lisp. ;;;*** Warning in (DEFCLASS CPA-PHONE): (METHOD GET-DAO ((EQL (CLASS-NAME CLASS)))) defined more than once in d:\lisp\postmodern\postmodern\table.lisp. Mitch _______________________________________________ postmodern-devel mailing list [email protected] http://common-lisp.net/cgi-bin/mailman/listinfo/postmodern-devel
