obj が手続きであれば #t を返し、そうでなければ #f を返す。
(procedure? car) ⇒ #t
(procedure? ’car) ⇒ #f
(procedure? (lambda (x) (* x x)))
⇒ #t
(procedure? ’(lambda (x) (* x x)))
⇒ #f