Function: FIND-ALL

Source

(defun find-all (item sequ &rest keyword-args
		 &key (test #'eql) test-not &allow-other-keys)
  (if test-not
      (apply #'remove item sequ
	     :test-not (complement test-not) keyword-args)
      (apply #'remove item sequ
	     :test (complement test) keyword-args)))