git.oblomov.eu Git - git/blob - t/t4018/scheme-def-variant

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