Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!tut.cis.ohio-state.edu!unreplyable!garbage
From: Gregor@parc.xerox.com (Gregor Kiczales)
Newsgroups: comp.lang.clos
Subject: Re: MAKE-LOAD-FORM and SAVE-OBJECT
Message-ID: <91May9.092828pdt.29187@tracer-bullet.parc.xerox.com>
Date: 9 May 91 16:28:13 GMT
References: <X__*^G&@ads.com>
Sender: welch@tut.cis.ohio-state.edu
Distribution: inet
Organization: CommonLoops
Lines: 15


   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)))