lisp - 評価変数と字句変数

Question

私は楽しみのために小さなプロジェクトを行っていevalます。デバッグを容易にするためにサポートを追加しました。しかし、後で問題が見つかりました：

(let ((x 1))
    (eval (1+ x)))

(defun foo (x form)
    (eval form))
(foo 1 '(1+ x))

上記のコードは機能しません。誰かが理由と回避方法を説明してもらえますか? どうもありがとう。