Plaster

(progn (defgeneric haha (&rest args)) (add-method #'haha (make-instance 'standard-method :function (constantly 3) :lambda-list '(&rest args) :specializers (loop repeat 3 collect (find-class 't)) :qualifiers '())) (add-method #'haha (make-instance 'standard-method :function (constantly 4) :lambda-list '(&rest args) :specializers (loop repeat 4 collect (find-class 't)) :qualifiers '())) (compute-applicable-methods #'haha '(4 3)))