(defun comp-specialform (name params env) (case name (quote (gen 'CONST (car params))) (begin (comp-begin params env)) (set! (seq (comp (cadr params) env) (gen-set (car params) env))) (if (comp-if (car params) (cadr params) (caddr params) env)) (lambda (gen 'FN (comp-lambda (car params) (cdr params) env)))))quoteは引数を評価せずに返すというものであり, 引数を定数とみなすコードを生成します.