Хотелось бы что-нибудь подобное?
(or
(map (lamdba (x)
(eq? x nil))
'(X O X O X NIL X NIL O)))
У меня сейчас нет CL, но я думаю, что это сработает. (или так работает в CL, верно? или есть функция any
?
EDIT:
Подождите секунду, ноль считается ложным, верно?
(apply and '(X O X NIL))
;Or
(all '(X O X NIL))
;Whichever works in CL.