TO-POLAR - обобщённая функция преобразования к полярным координатам

Пример определения методов прямо в теле определения обобщённой функции.

(defgeneric to-polar (arg)
 (:documentation "Преобразование аргумента в полярную систему.")
 (:method ((p polar))
  p)
 (:method ((c cart))
  (make-instance 'polar
                 :radius (radius c)
                 :angle (angle c))) )