Dispatch Using EQL, cont’d.

• Also applies to instances

(defclass place ()())

(defmethod name ((x place)) "someplace")

(setq home (make-instance 'place))

(setq office (make-instance 'place))

(defmethod name ((x (eql home))) "my home")

(defmethod name ((x (eql office))) "my office")

(name (make-instance 'place)) --> "someplace"

(name office) --> "my office"

Previous slide

Next slide

Back to first slide

View graphic version