[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Initialize-instance and Franz
- To: Gregor Kiczales <gregor@parc.xerox.com>
- Subject: Initialize-instance and Franz
- From: fxtv@zeta.ibp.FR (Francois-Xavier TESTARD-VAILLANT)
- Date: Thu, 25 Oct 1990 11:08:20 PDT
- Cc: commonloops.PARC@xerox.com, bsmith@postgres.Berkeley.EDU
- Organization: Universite Pierre et Marie Curie Paris VI - LITP Aile 45-55 - Piece 205 - Equipe CLIP 4 Place Jussieu, F-75252 PARIS CEDEX 05 voice : +33 (1) 44-27-40-55 fax : +33 (1) 44-27-62-86
Here is a short session of Picasso (Allegro+clx+pcl+picasso). It seems that this
works with lucid but not there. Why?
Francois-Xavier
----
<picasso> (defclass foo ()
((bar :reader get-bar
:writer set-bar)))
NIL
<picasso> (defmethod initialize-instance :after ((self foo) &rest args)
(format T "Initializing foo...~%"))
NIL
<picasso> (make-instance 'foo)
<FOO 71342326>
<picasso>
----
;using lucid 3.0 + pcl
> (defclass foo ()
((bar :reader get-bar
:writer set-bar)))
#<Standard-Class FOO 34420763>
> (defmethod initialize-instance :after ((self foo) &rest args)
(format T "Initializing foo...~%"))
#<Standard-Method INITIALIZE-INSTANCE :AFTER (FOO) 34745033>
> (make-instance 'foo)
Initializing foo...
#<FOO 34761633>
>