MOAR.clj

(ns mbox.harpo.utils
  (:use
   [clojure.contrib
    [except     :only (throw-arg throw-if)]
    [str-utils  :only (re-split re-gsub)]
    [java-utils :only (as-str)]]))

(defmacro throw-if-nil [arg & more]
  `(if (nil? ~arg)
     (throw-arg "argument %s must not be nil" '~arg)
     (when-not (empty? (quote ~more))
       (throw-if-nil ~@more))))

;; this barfs
;;
;; (let [x 1] (utils/throw-if-nil x))