I'm trying this:
(defclass counted-class ()
((counter :initform 0)))
(defmethod make-instance :after ((counted-class counted-class)) &rest
args)
(incf (slot-value counted-class 'counter)))
the instances that are returned always have 0 in the counter slot.
any ideas?
Thanks,
Jim
On Tue, 20 Apr 2004, Paul Werkowski wrote:
>
> | I'm using Kiczales et al's AMOP book. I can't get the :around method for
> | make-instance example to work (section 3.1). I need simular functionality
> | for a project i'm working on.
> |
> | Any pointers?
>
> Show us what you have tried and maybe someone will point
> out what you are doing wrong?
>
> Paul
>
>
--
James E. Prewett "everything that is, that was, was not enough"
Systems Team Leader 505.277.8210
Designated Security Officer [EMAIL PROTECTED] [EMAIL PROTECTED]
HPC Systems Engineer III @ [EMAIL PROTECTED] OpenPGP key: pub
1024D/31816D93
