所有条件式的母体是cond,它带有两个新的优点：它允许多重条件式，与每个条件式相关的代码是隐式的progn。它预期在我们需要在一个if中使用另一个if的情况下使用。举例来说，这个伪member函数
CL-USER> (defun our-member (obj lst)
(if (atom lst)
nil
(if (eql (car lst) obj)
lst
(our-member obj (cdr lst)))))
OUR-MEMBER;;等价的cond写法为
CL-USER> (defun our-member2 (obj lst)
(cond ((atom lst) nil)
((eql (car lst) obj) lst)
(t (our-member2 obj (cdr lst)))))
OUR-MEMBER2