[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Is there an example of a function that will
- To: Luke Hohmann <hohmann@csmil.umich.edu>
- Subject: Re: Is there an example of a function that will
- From: Michael Travers <mt@media.mit.edu>
- Date: Thu, 25 Jun 92 11:29:06 -0400
- Cc: info-macl@cambridge.apple.com
- In-reply-to: Your message of "Thu, 25 Jun 92 07:59:03 EDT." <9206251159.AA04549@csmil.umich.edu>
How about:
(defmethod subclasses ((c class))
(remove-duplicates
(cons c (mapcan #'subclasses (class-direct-subclasses c)))))
I think this is from the Art-of-MOP book originally.