Basic constructor macro for function-sinfo structures.
(make-function-sinfo [:inputs <inputs>]
[:output <output>])
This is the usual way to construct function-sinfo structures. It simply conses together a structure with the specified fields.
This macro generates a new function-sinfo structure from scratch. See also change-function-sinfo, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-function-sinfo (&rest args) (std::make-aggregate 'function-sinfo args '((:inputs) (:output)) 'make-function-sinfo nil))
Function:
(defun function-sinfo (inputs output) (declare (xargs :guard (and (var/const-sinfo-listp inputs) (typep output)))) (declare (xargs :guard t)) (let ((__function__ 'function-sinfo)) (declare (ignorable __function__)) (b* ((inputs (mbe :logic (var/const-sinfo-list-fix inputs) :exec inputs)) (output (mbe :logic (type-fix output) :exec output))) (cons :fun-sinfo (list (cons 'inputs inputs) (cons 'output output))))))