qbg

(defn convert-alist
  [alist]
  (let [size (apply max (map first alist))]
    (reduce (fn [v [i o]] (assoc v (dec i) o))
	    (vec (repeat size nil))
	    alist)))

qbg

(ns destructors)

(defprotocol Disposable
  (dispose [obj] "Dispose obj"))

(declare *registered-objects*)

(defn to-dispose
  [obj]
  (swap! *registered-objects* conj obj)