Mutable objects!

gistfile1.clj

(defn make-foo [n] 
  (let [foo (atom n)]
    {:update (fn [n] (reset! foo n))
     :inc    (fn []  (swap! foo inc)) 
     :status (fn []  (print @foo))} ))

(defmacro defobject 
  "doesn't work yet"
  [name field-vec & methods]
  (let [methods (partition 3 methods)
        methods (into {} (for [[name args body] methods]
                           [(keyword name)  `(fn args body)]))
        let-binding (vec (for [field field-vec]
                            `(~field (atom nil))))]
    `(defn ~name 
       (let [f# nil] ;;~let-binding
         ~methods))))


(defobject make-foo
  [foo (atom n)]
  update [n] (reset! foo n)
  inc    []  (swap! foo inc)
  status []  (print @foo))