MG
Size: a a a
MK
AG
T
MK
T
T
MK
T
T
OR
ИФ
ИФ
ИФ
(defn constrained-fn [f x]
{:pre [(pos? x)]
:post [(= % (* 2 x))]}
(f x))
ИФ
comp
предпочтительнееИФ
MK
(vary-meta x update `pub/validation (fn [old] …)
(alter-var-root #'agg/schema*
(fn [f]
(fn [type]
(cond-> (f type)
(isa? type :agg/test)
(assoc :test-agg/many {:db/cardinality :db.cardinality/many})))))
MK
IG
IG