LISP - get all method names from a class

Question

Can I get in LISP all the method names from a class?

Actually I need the methods, which have

set-

in their names.

What you are looking for is called MOP - MetaObject Protocol. — sds
– sds, Commented Dec 6, 2016 at 20:41
Methods are not defined on classes. They specialize generic function according to one or more arguments. You may want to find all methods named "set-" which specializes on the class as the first argument. But perhaps more importantly, why? — coredump
– coredump, Commented Dec 6, 2016 at 20:55
@coredump using SET I am setting some properties and I need to print those properties names. Some of them are saved in slots, but there are properties which are not saved in slots, so getting all the slots is not enough. — Valentin Emil Cudelcu
– Valentin Emil Cudelcu, Commented Dec 6, 2016 at 21:17

Rainer Joswig · Accepted Answer · 2016-12-06 23:28:23Z

3

For LispWorks:

(defun find-all-methods (class prefix)
  (loop for method in (clos:specializer-direct-methods class)
        for gf           = (method-generic-function method)
        for fname        = (generic-function-name gf)
        for fname-string = (when (symbolp fname) (symbol-name fname))
        when (and (stringp fname-string)
                  (>= (length fname-string)
                      (length prefix))
                  (string= fname-string prefix
                           :end1 (length prefix)
                           :end2 (length prefix)))
        collect method))

Example:

CL-USER 20 > (pprint (find-all-methods (find-class 'capi:button) "PRINT-"))

(#<STANDARD-METHOD CAPI:PRINT-COLLECTION-ITEM NIL (CAPI:BUTTON T) 40E06173D3>
 #<STANDARD-METHOD CAPI:PRINT-CAPI-BUTTON NIL (CAPI:BUTTON) 40E05F9DDB>)

edited Dec 6, 2016 at 23:28

answered Dec 6, 2016 at 23:20

Rainer Joswig

140k11 gold badges230 silver badges357 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Dima Over a year ago

This also works on SBCL using (ql:quickload 'closer-mop) and adjusting the missing functions to the ones from the closer-mop package.

Collectives™ on Stack Overflow

LISP - get all method names from a class

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related