>>862
でも構文なめるときは解析が必要だろ。ifだったら
(define expr '(if test-part true-part false-part))
(cadr expr) => test-part
(caddr expr) => true-part
(cadddr expr) => false-part