(defun find-all-if (pred sequ &rest keyword-args &key &allow-other-keys) (apply #'remove-if (complement pred) sequ keyword-args))