       (b (s (b obj) (v x))))))
 
 (defn make-checked-remove [accessor]
-  (debug/dout accessor)
   (let [b (:validate-base accessor)
         r (:remove accessor)
         r? (:can-remove? accessor)]

        (accessor-error "missing value"
                        accessor x nil)))))

(defn make-validate-value [accessor]
  (let [v? (:valid-value? accessor)]
    (fn [x]
      (if (v? x)
        x


(def decorators [[:validate-base make-validate-base]
                 [:validate-has make-validate-has]
                 [:valid-output? make-valid-output?]
                 [:valid-input? make-valid-input?]
                 [:validate-value make-validate-value]
                 [:get-optional-unchecked make-get-optional-unchecked]
                 [:get-optional make-get-optional]
