condition-example.clj

(ns clojure.contrib.condition.example
   (:use clojure.contrib.condition))

(defn func [x y]
   (if (neg? x)
     (raise :type :arg :message "shouldn't be negative")
     (+ x y)))

(defn run
   []
   (handler-case :type
     (println (func 3 4))
     (println (func -5 10))
     (handle :arg
       (printf "Bad argument: %s\n" (:message *condition*)))))