Everything passes except test in description

(eval-one-exp '
(list (procedure? list)
(procedure? (lambda (x y) (list (+ x y))))
(procedure? 'list)))