call-next-method example

(defmethod ((a list) b)

(format t "First arg ~S is a list .~%" a)

(if (next-method-p) (call-next-method)))

(defmethod (a (b number))

(format t "Second arg ~S is a number.~%" b)

(if (next-method-p) (call-next-method)))

> (foo '(1 2 3) 'a)

First arg (1 2 3) is a list.

> (foo 'a 3)

Second arg 3 is a number.

> (foo '(1 2 3) 3)

First arg (1 2 3) is a list.

Second arg 3 is a number.

Previous slide

Next slide

Back to first slide

View graphic version