(defun none (predicate &rest sequence)
           (alexandria:map-combinations (lambda (arg)
              (when (apply predicate arg)
                (return-from none nil)))
            sequence :length 2))