Plaster
New
List
Login
common-lisp
default
anonymous
2023.02.18 15:23:07
(defclass my-class () ()) (defclass my-subclass (my-class) ()) (defgeneric names (object) (:method-combination list)) (let ((name "FOO")) (defmethod name ((object my-class)) name) (defmethod names list ((object my-class)) name)) (let ((name "BAR")) (defmethod name ((object my-subclass)) name) (defmethod names list ((object my-subclass)) name)) ;;; Would like to get: ;;; (names (make-instance 'my-subclass)) => ("BAR" "FOO")
Raw
Annotate
Repaste
Edit