Plaster
New
List
Login
text
default
anonymous
2022.12.27 20:07:01
(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)))
Raw
Annotate
Repaste
Edit