allow def'd classes to be used in try...catch

gistfile1.clj

; try is a special form that seems to not allow def'd classes to be used
; for example:
;
; (def illegal-argument IllegalArgumentException)
;
; (try (catch illegal-argument _))
;
; will raise the following exception:
;   Unable to resolve classname: illegal-argument

(defmacro platform-try [& body]
  (let [c (reduce (fn [acc item]
                    (if (and (seq? item)
                             (= 'platform-catch (first item)))
                      (rest item)
                      acc))
                  nil body)
        exception-class (eval (first c))
        exception-var (first (rest c))
        catch-block (rest (rest c))
        try-block (take-while (fn [item]
                                (if (seq? item)
                                  (not= (first item) 'platform-catch)
                                  true)) body)]
    `(try ~@try-block
       (catch ~exception-class ~exception-var ~@catch-block))))

(playform-try (throw (IllegalArgumentException.)) (platform-catch illegal-argument _ nil)) ; => nil