Классы геометрических фигур

LINE - отрезок

Отрезок - пара точек или радиус-векторов.

(defclass line ()
 ((start :initarg :start :accessor line-start)
  (end   :initarg :end   :accessor line-end)))

(defmethod print-object ((lin line) stream)
  (format stream "[ОТРЕЗОК ~s ~s]"
          (line-start lin) (line-end lin)))

(setq lin (make-instance 'line
           :start (make-instance 'cart :x 4 :y 3)
           :end (make-instance 'cart :x 7 :y 5)))
[ОТРЕЗОК [CART x 4 y 3] [CART x 7 y 5]]