Дополнительные методы для селекторов, которые являются обобщёнными функциями.
(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