     #(println (pretty-ugen-doc-string %))
     specs)))
 
-(defmacro find-ug
+(defmacro find-ugen
   "Find a ugen containing the specified terms which may be either strings or
   regexp patterns. Will search the ugen's docstrings for occurrances of all the
   specified terms. Prints out a list of summaries of each matching ugen.

     #(:name %)
     (map #(second %)
          (filter (fn [[key spec]]
                    (let [docstr  (:full-doc spec)
                          docstr  (str docstr " " (overtone-ugen-name (:name spec)))
                          matches (filter #(re-find % docstr) regexps)]
                      (= matches regexps)))
                  (combined-specs))))))

(defn- print-ug-summaries
  "Pretty print out a list of ugen specs by printing their name and summary on
  separate lines."
  [specs longest-name-len]

     :default
     (print-ug-summaries specs longest-name-len))))

(defmacro find-ugen-doc
  "Find a ugen containing the specified terms which may be either strings or
  regexp patterns. Will search the ugen's docstrings for occurrances of all the
  specified terms. Prints out each ugens full docstring. Similar to find-doc.
