==> (set! test (lambda (n) (car n))) (EXCL::.LEXICAL-CLOSURE. (LAMBDA (&REST ARGS) (INTERP CODE (NCONC (MAPCAR (FUNCTION LIST) VARS ARGS) ENV))) ((CODE BEGIN (CAR N)) (VARS N) (ENV) (PARAMS (N) (CAR N)) (NAME . LAMBDA)) NIL ((SCHEME-SPECIAL-FORM-INTERP . EXCL::INVALID)) NIL) ==> (test '(a b c)) A ==> (begin (test '(a b c))) Aという具合いに関数testが定義可能です.