(some #'identity list)
(reduce #'(lambda (a b) (or a b)) list)
(loop for item in list thereis item)
(every #'identity list)
(reduce #'(lambda (a b) (and a b)) list)
(loop for item in list always item)
(defun my-or (&rest rest)
(eval `(or ,@rest)))
Users browsing this forum: No registered users and 6 guests