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