Дополнительные методы для селекторов, которые являются обобщёнными функциями.
(defmethod radius ((c cart)) (sqrt (+ (square (cart-x c)) (square (cart-y c))))) ;; Недостаточно знать y/x, чтобы вычислить четверть, нужны сами координаты (defmethod angle ((c cart)) (atan (cart-y c) (cart-x c))) ; atan2 в Си (radius c) => 5.0 (angle c) => 0.6435011