t/t4018/scheme-lisp-defun-a

(defun some-func (x y z) RIGHT
  (let ((a x)
        (b y))
        (ChangeMe a b)))