История изменений
Исправление monk, (текущая версия) :
Почему нонсенс?
Гм. Предлагаешь scale в CL написать как
(defmethod scale :after ((r circle) (p double) (q double))
(when (/= (axis1 r) (axis2 r)) (change-class 'ellipse)))
Исходная версия monk, :
Почему нонсенс?
Гм. Предлагаешь scale в CL написать как
(defmethod scale :after ((r circle) (p double) (q double))
(when (/= (axis1 r)) (axis2 r)) (change-class 'ellipse)))