(defclass state ()
  ((%programs :reader programs
              :initform (fl.util:dict #'eq))
   (%blocks :reader blocks
            :initform (fl.util:dict #'eq
                                    :bindings (fl.util:dict #'eq
                                                            :uniform (fl.util:dict)
                                                            :buffer (fl.util:dict))
                                    :aliases (fl.util:dict #'equalp)))
   (%track-dependencies-p :reader track-dependencies-p
                          :initform nil)
   (%dependencies :reader dependencies
                  :initform (fl.util:dict #'eq
                                          :fn->deps (fl.util:dict #'equal)
                                          :dep->fns (fl.util:dict #'equal)
                                          :stage-fn->programs (fl.util:dict #'equal)))
   (%modify-hook :accessor modify-hook
                 :initform (constantly nil))))