Re: Listing slots in CLOS

Rupert Swarbrick wrote:
Hi,

Is there a function, which will return a list (or whatever) of the slots in a class that I've got an instance of? I'm working with a weird auto-
generated binding library, which I don't really understand... and I'd like to be able to eyeball the fields I can play with!

The only things I can find are slot-exists-p and slot-bound-p, which of course aren't quite what I'm after. If there's not a portable way to do this, I'm using sbcl.

Rupert

[211]> (asdf:oos 'asdf:load-op :closer-mop)
....
[212]> (defclass c1 () (a b))
#1=#<STANDARD-CLASS C1>
[213]> (defclass c2 (c1) (d e f))
#1=#<STANDARD-CLASS C2>
[214]> (closer-mop:compute-slots (find-class 'c2))
(#<CLOS:STANDARD-EFFECTIVE-SLOT-DEFINITION A #x2052E666>
#<CLOS:STANDARD-EFFECTIVE-SLOT-DEFINITION B #x2052E6A6>
#<CLOS:STANDARD-EFFECTIVE-SLOT-DEFINITION D #x2052E6E6>
#<CLOS:STANDARD-EFFECTIVE-SLOT-DEFINITION E #x2052E726>
#<CLOS:STANDARD-EFFECTIVE-SLOT-DEFINITION F #x2052E766>)

[217]> (dolist (slot (closer-mop:compute-slots (find-class 'c2)))
(print (closer-mop:slot-definition-name slot)))

A
B
D
E
F
NIL

originally posted by
__Pascal Bourguignon__
.

Relevant Pages

  • Re: Listing slots in CLOS
    ... Rupert Swarbrick wrote: ... The only things I can find are slot-exists-p and slot-bound-p, which of course aren't quite what I'm after. ... If there's not a portable way to do this, I'm using sbcl. ... if you are using MCL. ...
    (comp.lang.lisp)
  • Re: Listing slots in CLOS
    ... vanekl wrote: ... The only things I can find are slot-exists-p and slot-bound-p, which of course aren't quite what I'm after. ... If there's not a portable way to do this, I'm using sbcl. ...
    (comp.lang.lisp)