(defclass shape (size)

  (self.size size)

  (defmethod draw (x y)
    (some-code)
    (goes-here)
    (self.something-else))

  (defmethod something-else ()))

(defobj my-shape shape 100)

(defvar result (my-shape.draw 10 20))
(defvar size (my-shape.size))