Similar failure (w. bad return-from):
(lambda (x p c) (when (if p (funcall c x) (every #'not (mapcar c x))) (return-from bogus nil)) t)
Similar failure (w. bad return-from):
(lambda (x p c)
(funcall c x)
(when (if p
(every #'not (mapcar c x)))
(return-from bogus nil))
t)