Constructor macro for honsed glmc-fsm-p structures.
Syntax:
(make-honsed-glmc-fsm [:nextst <nextst>]
[:prop <prop>]
[:fsm-constr <fsm-constr>]
[:bit-constr <bit-constr>]
[:initst <initst>]
[:st-hyp <st-hyp>]
[:hyp <hyp>]
[:st-hyp-next <st-hyp-next>]
[:interp-clauses <interp-clauses>]
[:hyp-var-bound <hyp-var-bound>]
[:var-bound <var-bound>])
This is identical to make-glmc-fsm, except that we hons the structure we are creating.
This is an ordinary honsing
Macro:
(defmacro make-honsed-glmc-fsm (&rest args) (std::make-aggregate 'glmc-fsm args '((:nextst) (:prop) (:fsm-constr) (:bit-constr) (:initst) (:st-hyp) (:hyp) (:st-hyp-next) (:interp-clauses) (:hyp-var-bound) (:var-bound)) 'make-honsed-glmc-fsm t))