检查列表中的每一个列表是否为空Common Lisp中

Question

我知道我可以检查是否列出的清单中只包含这样

CL-USER> (null (find-if (lambda (item) (not (null item))) my-list)) 

其中my-list空列表是列表的列表。

例如：

CL-USER> (null (find-if (lambda (item) (not (null item))) '(nil (bob) nil))) 
NIL 
CL-USER> (null (find-if (lambda (item) (not (null item))) '(()()()))) 
T 

但是是不是有在Lisp中这样做的更短，更简单的方法？如果是这样，怎么样？

Answer 1

高阶函数every接受谓词函数和列表，并返回true，如果谓词对列表中的每个元素返回true。

所以，你可以这样做：

(every #'null my-list) 

Answer 2

(find-if #'identity list) 

(not (find-if-not #'null list)) 

的功能列表和序列的完整列表，请查阅Common Lisp的HyperSpec。