有趣的Scheme：lat？ 函数的实现

最近在读一本叫《The Little Schemer》的小册子，是Scheme语言的入门书。之前在看SICP的时候有用到过Scheme，但是对这个Lisp方言的理解并没有那么深刻，现在把它读一读，对这个函数式语言的理解应该会加深些吧。
我把这个系列的博客命名为 “有趣的Scheme”，因为函数式语言真的是太有魅力了，代码很美，逻辑严谨，设计超前等等优点
这是本书留给读者的第一个问题：设计一个lat?函数（检验参数是否不包含列表（list））

 (define lat?    (lambda (x)      (cond      ((null? x) 't)      ((not (atom? (car x))) 'f)      (else (lat? (cdr x))))))