(defun scheme-interpreter () (init-scheme-interpreter) (loop (format t "~&==> ") (print (interp (read) nil)))) (defun interp (x &optional env) (cond ((symbolp x) (get-var x env)) ((atom x) x) ((member (car x) '(quote begin set! if lambda)) (interp-specialform (car x) (cdr x) env)) (t (interp-procedure (car x) (cdr x) env))))interpがlispのevalに相当します.