gistfile1.clj

;; quick and dirty, but that's what needs to be done to support inner classes.
(defn make*
  ([class attrs]
     (let [attrs (merge (defaults class) attrs)]
       (doto (make* class)
         (set-attributes! attrs))))
  ([class]
     (if-let [parent-class (.getDeclaringClass class)]
       (.newInstance (.getConstructor class (into-array [parent-class])) (into-array [(.newInstance parent-class)]))
       (let [signature (into-array Class [Project])]
         (try (.newInstance (.getConstructor class signature)
                            (into-array [*ant-project*]))
              (catch NoSuchMethodException e
                (let [instance (.newInstance class)]
                  (try (.invoke (.getMethod class "setProject" signature)
                                instance (into-array [*ant-project*]))
                       (catch NoSuchMethodException e))
                  instance)))))))