kerry@ADS.COM (Kerry Koitzsch) (05/09/91)
Theres another unfortunate thing about using methods to define the 'creation form' for LISP objects: the older PCLs don't let you define methods on all LISP objects! Hash table specialization only appeared recently. The current MOP specifiaction has some other problematic points, too: primarily being unable to say (give-me-your-metaclass (find-class 'some-class)), or is there a way? i havent been able to find it.... The other big ???? was, for me, where the class-allocated slot values get saved out TO? In the class object, supposedly, but how? Maybe we'll have to wait for CLtL3.... kerry
davis@barbes.ilog.fr (Harley Davis) (05/09/91)
In article <X__*^G&@ads.com> kerry@ADS.COM (Kerry Koitzsch) writes:
The current MOP specifiaction has some other problematic points, too:
primarily being unable to say (give-me-your-metaclass (find-class 'some-class)), or is there a way? i havent been able to find it....
Is there something wrong with (class-of (find-class 'some-class))?
-- Harley Davis
--
------------------------------------------------------------------------------
nom: Harley Davis ILOG S.A.
net: davis@ilog.fr 2 Avenue Gallie'ni, BP 85
tel: (33 1) 46 63 66 66 94253 Gentilly Cedex, France
smh@Franz.COM (Steve Haflich) (05/09/91)
From: kerry@ads.com (Kerry Koitzsch) The current MOP specifiaction has some other problematic points, too: primarily being unable to say (give-me-your-metaclass (find-class 'some-class)), or is there a way? i havent been able to find it.... Metaclass == "class of the class": (class-of (find-class 'some-class))
Gregor@parc.xerox.com (Gregor Kiczales) (05/09/91)
Organization: Advanced Decision Systems Date: Wed, 8 May 1991 16:40:28 PDT From: kerry@ads.com (Kerry Koitzsch) The current MOP specifiaction has some other problematic points, too: primarily being unable to say (give-me-your-metaclass (find-class 'some-class)), or is there a way? i havent been able to find it.... Use class-of. For example, the following function is like class-of except that it gives the 'metaclass' of an object. (defun metaclass-of (x) (class-of (class-of x)))