COMPUTE-SLOTS in MCL 2.0b1p3?

[rodney@hsvaic.boeing.com (Rodney Daughtrey)]

What's the best (or any) way to access the names of the slots of some
class in MCL 2.0b1p3?  COMPUTE-SLOTS, as defined in the MOP, does not
seem to be defined, although SLOT-DEFINITION-NAME *is* defined, but it
would need what COMPUTE-SLOTS returned to be of any use.  

I realize that MCL 2.0b1p3 doesn't implement the MOP.  So I tried the
following: 


? (defclass foo () ((bar)))
#<STANDARD-CLASS FOO>
? (describe (find-class 'foo))
#<STANDARD-CLASS FOO>

...stuff deleted...

DIRECT-SLOTS: (NIL (BAR NIL NIL))
SLOTS: (NIL . #((BAR NIL NIL)))
                 ^^^
I'd like to get to these values, but when I try below...

? (slot-value (find-class 'foo) 'slots)
> Error: #<STANDARD-CLASS FOO> has no slot named SLOTS.
> While executing: #<STANDARD-METHOD SLOT-MISSING (T T T T)>
> Type Command-. to abort.
See the RestartsI menu item for further choices.
1 >

... I fail (maybe a package problem).  Any ideas?


Rodney Daughtrey           E-mail: rodney@hsvaic.boeing.com
Huntsville AI Center               {major site}!uw-beaver!bcsaic!hsvaic!rodney
Boeing Computer Services   Voice:  (205)-464-4931  Fax: (205)-464-4930