Method combination

[Richard Zippel <rz@natasha.cs.cornell.edu>]

I must be confused or I've missed some thing in the release notes that I
should have seen.  I'm trying to include some code that runs when an
instance of a class is created (using the CLOS style initialization
protocol).  If I define an class as follows, and create it with 
(pcl:*make-instance 'foo), GOTCHA is printed, but not FOO-INITIALIZED.
What happened?  (This is using a 
Rel 7.2, 12/7/88   Can't think of a cute name PCL.)

(defclass foo ()
     ())

(defmethod *initialize-instance :after ((object foo) &rest ignore)
	   (print 'foo-initialized))

(defmethod print-object :after ((object foo) stream)
	   (Print 'gotcha))