(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)