db48x wrote: > (defclass foo () > ((num :reader num :initarg :num :initform 42))) > > (sb-mop:slot-definition-readers (first (sb-mop:class-slots (find-class > 'foo)))) > > but this returns nil. Surely this must work for most people, so I must > be doing something dreadfully wrong. I'm using SBCL, and I've tried > 1.0.30 from Fedora and 1.0.31.2 that I let clbuild compile for me.
According to the AMOP, slot-definition-readers only applies to direct-slot-definitions not effective-slot-definitions. (sb-mop:slot-definition-readers (first (sb-mop:class-direct-slots (find-class 'foo)))) -> (num) --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "weblocks" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/weblocks?hl=en -~----------~----~----~----~------~----~------~--~---
