git

1
(defmethod {print point} RIGHT
2
  (lambda (self)
3
    (with ((point x y) self)
4
      (printf "{ChangeMe x:~a y:~a}~n" x y))))
5