     (assoc ugen :args mapped-args)))
 
 (defn- append-seq-args
-  "Handles argument modes :append-sequence and :append-sequence-set-num-outs, where some ugens take a seq for one argument which needs to be appended to the end of the argument list when sent to SC."
+  "Handles argument modes :append-sequence and :append-sequence-set-num-outs,
+  where some ugens take a seq for one argument which needs to be appended to the
+  end of the argument list when sent to SC."
   [spec ugen]
   (let [args-specs     (args-with-specs (:args ugen) spec :mode)
         pred          #(or (= :append-sequence (second %))

(defn- def-ugen
  "Create and intern a set of functions for a given ugen-spec.
    * base name function using default rate and no suffix (e.g. env-gen )
    * base-name plus rate suffix functions for each rate (e.g. env-gen:ar, env-gen:kr)
  "
  [to-ns spec special]
  (let [metadata {:doc (:full-doc spec)

      (take greatest-count (parallel-seqs seqs)))))

(defn make-expanding
  "Takes a function and returns a multi-channel-expanding version of the
  function."
  [f expand-flags]
  (fn [& args]
    (let [expanded (mapply f (multichannel-expand expand-flags args))]
