Constructor macro for honsed expdata-surjmapp structures.
Syntax:
(make-honsed-expdata-surjmap [:surjname <surjname>]
[:localp <localp>]
[:oldp <oldp>]
[:newp <newp>]
[:forth <forth>]
[:back <back>]
[:forth-image <forth-image>]
[:back-image <back-image>]
[:back-of-forth <back-of-forth>]
[:forth-injective <forth-injective>]
[:oldp-guard <oldp-guard>]
[:newp-guard <newp-guard>]
[:forth-guard <forth-guard>]
[:back-guard <back-guard>]
[:hints <hints>])
This is identical to make-expdata-surjmap, except that we hons the structure we are creating.
This is an ordinary honsing
Macro:
(defmacro make-honsed-expdata-surjmap (&rest args) (std::make-aggregate 'expdata-surjmap args '((:surjname) (:localp) (:oldp) (:newp) (:forth) (:back) (:forth-image) (:back-image) (:back-of-forth) (:forth-injective) (:oldp-guard) (:newp-guard) (:forth-guard) (:back-guard) (:hints)) 'make-honsed-expdata-surjmap t))