4 (not (eq? (car x) 'let))
5 (not (eq? (car x) 'lambda))))
8 (and (list? x) (eq? (car x) 'let)))
10 (define let-bindings cadr)
11 (define let-body cddr)
14 (and (list? x) (eq? (car x) 'lambda)))
16 ; for use in normalized form
17 (define lambda-arg caadr)
19 (define lambda-args cadr)
20 (define lambda-body caddr)
23 (and (not (list? x)) (symbol? x)))