diff --git a/site-functions.el b/site-functions.el index 8ead6e4..57b771f 100644 --- a/site-functions.el +++ b/site-functions.el @@ -274,7 +274,7 @@ (lambda (a b) (or a b)) (mapcar f lst) :initial-value '())) -- + (defun every-p (f lst) (reduce (lambda (a b) (and a b))