gistfile1.clj

(defn -initialize [this params]
  (dosync
    (alter (.state this) assoc :starting-node false)
    (alter (.state this) assoc :m-value (int *m*))
    (alter (.state this) assoc :logger
      (Logger/getLogger (->> this .getAddress .getName))))
  (condp = (alength params)
    0 true
    1 (dosync
    (alter (.state this) assoc :starting-node (boolean (aget params 0)))
    true)
    2 (dosync
    (alter (.state this) assoc :starting-node (boolean (aget params 0)))
    (alter (.state this) assoc :m-value (int (aget params 1)))
    true)))