Something like this work?
(or (map (lamdba (x) (eq? x nil)) '(XOXOX NIL X NIL O)))
I donโt have a CL right now, but I think it will work. (or works like that in CL, right? or is there any function?
EDIT:
Wait a second, zero is considered false, right?
(apply and '(XOX NIL)) ;Or (all '(XOX NIL)) ;Whichever works in CL.
source share