(defn i-want
  [& forms]
  (let [[good bad] (split-with (partial not= :but-not) forms)
	good (flatten (map fn-seq good))
	bad (set/difference (set good) (set (flatten (map fn-seq good))))]
    (new-tester (whitelist (apply function-matcher (map #(:name (meta %)) good))) (blacklist (apply function-matcher (map #(:name (meta %)) bad))))))