   [obj]
   (d/deferred? obj))
 
-(defn construct-maybe-lift
+(defn- construct-maybe-lift
   "construct an object given a factory-fn and args. if the
    object is already Deferred lift it into the config-ctx,
    otherwise wrap it"

                        {:state st
                         :error e}))))))

(defn m-destructor
  "returns a monadic value which destroys key
   k and removes it from the system state"
  [k destructor-fn]

           (or base-system-builder (new-system))
           key-factoryfn-argspecs-list)))

(defn- system-destructor
  "given a system (including the ::system key) create a
   system-destructor which will apply the individual object
   destructors for all the objects in the system in
