在我们的设计里面，要更改语法是很简单的事情。

比如我们想把 define 定义函数的语法更改得和 common lisp 一样：

(defun inc (x) (+ x 1))

那我们也就只需要把选择函数和构造函数修改一下即可，如下

;;; add defun, common-lisp syntax, to define a function in scheme
(define (install-eval-defun)
  ;; import 
  (define (make-lambda parameter body)
    ((get 'constructor lambda-tag) parameter body))

  ;; selector
  (define (defun-variable exp)
    (car exp))
  (define (defun-paramter exp)
    (cadr exp))
  (define (defun-body exp)
    (cddr exp))

  (define (defun-value exp)
    (make-lambda (defun-paramter exp)
                 (defun-body exp)))

  ;; main handler
  (define (eval-defun exp env)
    (define-variable! (defun-variable exp)
                      (eval (defun-value exp) env)
                      env)
    'ok)
  (put 'eval 'defun eval-defun))

但值得注意的是，现在我们虽然已经有了一个 common-lisp 的语法（我们当然也可以把其他部分改得也都和 common-lisp 一模一样，包括过程调用的时候使用 funcall 关键字与 symbol 的搭配等等）但，我们得到的语言依然是 scheme。作为 lisp-1 语言的 scheme，environment 只有一种，变量与函数名称都往里面存放，所以变量与函数名是不能一样的；而 common-lisp 不同，同一个名字可以作为变量名也可以作为函数名，所以必须要把变量与函数存放的位置分开。

Scheme 的简洁也在于此。在 scheme 中我们一个非常优美地写出 ((if (< b 0) - +) a b)，但在 common-lisp 中不得不使用 funcall 关键字来完成。

言归正传。测试如下：

(let ((test-env (setup-environment)))
  (begin
    (install-eval-defun)
    (eval '(defun fib-iter (a b count)
             (if (= count 0)
                 b
                 (fib-iter (+ a b) a (+ count -1)))) test-env)
    (assert= (eval '(fib-iter 1 0 0) test-env) 0)
    (assert= (eval '(fib-iter 1 0 3) test-env) 2)))