problem in initialize-instance

[poman@CS.UCLA.EDU]

There is a problem in compiling auxilliary methods defined for initialize-
instance.  Compilation will bomb with the error of calling the compiler 
recursively.  The following is the example that I worked on :


(defclass ppname (name)
	  ((whole-name :accessor glue-name)))


(defmethod initialize-instance :after
	   ((cname ppname))
	   (format t " whole name is :~a ~%" (glue-name cname )))

I would appreciate any information about fixing the bug.

Thank you.


Richard Leung
UCLA computer science dept