methods.lisp

(defgeneric add (x y))
;;;  assume we already defined vector and integer classes
(defmethod add ((x vector) (y vector))
  ....)
(defmethod add ((x integer) (y integer))
  (+ x y))