     :arglists '([& body]
                 [process-extras & body])}
   send-all!
-  (fn [process-extras? & body]
-    (with-extras nil
+  (fn [?process-extras & body]
+    (with-extras ?process-extras nil
       (apply send-if! process-extras (constantly true) body))))
 
 (defn redef-svr!

    :arglists '([cli & body]
                [process-extras cli & body])}
  send!
  (fn [process-extras? cli & body]
    (with-extras cli
      (let [cli' @cli]
        (when-let [s (:stream cli')]
          (doseq [p body]

    :arglists '([pred & body]
                [process-extras pred & body])}
  send-if!
  (fn [?process-extras pred & body]
    (when (bound? #'*svr*)
      (when-let [clients (some-> @*svr* :connected deref seq)]
        (doseq [cli clients]
          (when (pred cli)
            (with-extras ?process-extras cli
              (apply send! process-extras cli body))))))))

(def
  ^{:doc
