https://wiki.kram.nz/index.php?action=history&feed=atom&title=SE701%3Amultiple-dispatch.lisp 2026-09-13T16:15:54Z Revision history for this page on the wiki MediaWiki 1.46.0 https://wiki.kram.nz/index.php?title=SE701:multiple-dispatch.lisp&diff=23&oldid=prev 2008-02-15T19:39:45Z

<p>New page: ;; How CommonLisp multiple dispatch differs from Java&#039;s single dispatch (defclass a () ()) (defclass sub-a (a) ()) (defclass b () ()) (defclass sub-b (b) ()) (defgeneric foo (a b...</p> <p><b>New page</b></p><div> ;; How CommonLisp multiple dispatch differs from Java&#039;s single dispatch<br /> (defclass a () ())<br /> (defclass sub-a (a) ())<br /> <br /> (defclass b () ())<br /> (defclass sub-b (b) ())<br /> <br /> (defgeneric foo (a b))<br /> <br /> (defmethod foo ((x a) (y b))<br /> (format nil &quot;foo called on A and B~%&quot;))<br /> <br /> (defmethod foo ((x sub-a) (y b))<br /> (format nil &quot;foo called on SUB-A and B~%&quot;))<br /> <br /> (defmethod foo ((x a) (y sub-b))<br /> (format nil &quot;foo called on A and SUB-B~%&quot;))<br /> <br /> (defmethod foo ((x sub-a) (y sub-b))<br /> (format nil &quot;foo called on SUB-A and SUB-B~%&quot;))<br /> <br /> (defparameter *just-a* (make-instance &#039;a))<br /> (defparameter *just-b* (make-instance &#039;b))<br /> (defparameter *sub-a* (make-instance &#039;sub-a))<br /> (defparameter *sub-b* (make-instance &#039;sub-b)))</div>

Mark