Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 44962b2c56
Fetching contributors…

Cannot retrieve contributors at this time

29 lines (24 sloc) 0.79 kb
(ns com.clojurebook.CustomException
(:gen-class :extends RuntimeException
:implements [clojure.lang.IDeref]
:constructors {[java.util.Map String] [String]
[java.util.Map String Throwable] [String Throwable]}
:state info
:init init
:methods [[getInfo [] java.util.Map]
[addInfo [Object Object] void]]))
(import 'com.clojurebook.CustomException)
(defn- -init
([info message]
[[message] (atom (into {} info))])
([info message ex]
[[message ex] (atom (into {} info))]))
(defn- -deref
[^CustomException this]
@(.info this))
(defn- -getInfo
(defn- -addInfo
[^CustomException this key value]
(swap! (.info this) assoc key value))
Jump to Line
Something went wrong with that request. Please try again.