(define primitive-procedures (list (list 'car car) (list 'cdr cdr) (list 'cons cons) (list 'string->list string->list) (list 'null? null?) (list 'list list) (list '+ +) (list '* *) (list '/ /) (list '< <) )) (define (primitive-procedure-names) (map car primitive-procedures)) (define (primitive-procedure-objects) (map (lambda (proc) (list 'primitive (cadr proc))) primitive-procedures)) (define (ini