(defvar x 0)
(defvar m #'(lambda () (incf x)))
(defvar n #'(lambda () (incf x) (funcall m)))
(defun test ()
(let ((m #'(lambda () (funcall n))))
(funcall m)))
(test)
KGRlZnZhciB4IDApCgooZGVmdmFyIG0gIycobGFtYmRhICgpIChpbmNmIHgpKSkKKGRlZnZhciBuICMnKGxhbWJkYSAoKSAoaW5jZiB4KSAoZnVuY2FsbCBtKSkpCgooZGVmdW4gdGVzdCAoKQogICAgKGxldCAoKG0gIycobGFtYmRhICgpIChmdW5jYWxsIG4pKSkpCiAgICAgICAgKGZ1bmNhbGwgbSkpKQoKKHRlc3Qp