(defun f (x)
  (+ x 1))

(defmacro f-macro (x)
  `(f ,x))

(format t "~a" (flet ((f (x) (- x 1))) (f-macro 10)))