                   shift (range 0 31)]
               [shift mask]))))
 
-(defn- case-map
+#_(defn- case-map
   "Transforms a sequence of test constants and a corresponding sequence of then
   expressions into a sorted map to be consumed by case*. The form of the map
   entries are {(case-f test) [(test-f test) then]}."

      (.setValidator r (:validator opts)))
    r))

(defn agent
  "Creates and returns an agent with an initial value of state and
  zero or more options (in any order):


   :deprecated "1.2"}
  [^clojure.lang.Agent a] (restart-agent a (.deref a)))

#_(defn shutdown-agents
  "Initiates a shutdown of the thread pools that back the agent
  system. Running actions will complete, but no new actions will be
  accepted"
