fn namespace

fn.clj

(ns fn (:refer-clojure :exclude [not and or]))
 
(def not complement)
 
(defn and "Functions intersection."
  ([f] f)
  ([f & fs] (let [chain (apply and fs)]
              (fn [& xs] (clojure.core/and (apply f xs) 
                                           (apply chain xs))))))
 
(defn or "Functions union."
   ([f] f)
   ([f & fs] (let [chain (apply or fs)]
               (fn [& xs] (clojure.core/or (apply f xs) 
                                           (apply chain xs))))))

fn.lisp

(defun fint (fn &rest fns)
  (if (null fns)
      fn
      (let ((chain (apply #'fint fns)))
        #'(lambda (x) 
            (and (funcall fn x) (funcall chain x))))))

(defun fun (fn &rest fns)
  (if (null fns)
      fn
      (let ((chain (apply #'fun fns)))
        #'(lambda (x)
            (or (funcall fn x) (funcall chain x))))))