Создание экземпляра
(объекта) класса cart
.
(setq c (make-instance 'cart :x 4 :y 3)) #<CART A3BC63F3> ;; Метод для удобной распечатки экземпляра (defmethod print-object ((c cart) stream) (format stream "[CART x ~d y ~d]" (cart-x c) (cart-y c))) c [CART x 4 y 3]
Переменная c
хранит экземпляр,
представляющий конкретную точку на плоскости.