テスト投稿

(define atom?
(lambda (x)
  (and (not (pair? x)) (not (null? x)))))

gosh> (atom? 'a)
#t
gosh> (atom? '())
#f