eduardoejp

(defmulti ctor (fn [c & args] c))
(defmethod ctor :default [clss & args] (eval `(new ~clss ~@args)))

(defprotocol FObject
  "Provides the basic slot accessing and mutating functionality."
  (get-slot [self k])
  (set-slot [self k v]))

(defn- extract-tagged
  [ktag testfn coll]