Jim Prewett wrote: > I'm trying this: > (defmethod make-instance :after ((counted-class counted-class)) &rest > args) > (incf (slot-value counted-class 'counter)))
I don't have AMOP handy, but the counter slot gets incremented to 1 if you use initialize-instance :around rather than make-instance :around. My recollection of the "counted-class" from AMOP is that it is a specialization of standard-class, so your defclass should be (defclass counter-class (standard-class) ... rather than (defclass counter-class () Sorry that I don't have my AMOP around to give you a more definitive answer. -- Kevin Rosenberg [EMAIL PROTECTED]
