		Search-engine friendly clone of the ACL2 documentation.

Expr-gensel

Make-expr-gensel

Basic constructor macro for expr-gensel structures.

Syntax

(make-expr-gensel [:control <control>] 
                  [:assocs <assocs>])

This is the usual way to construct expr-gensel structures. It simply conses together a structure with the specified fields.

This macro generates a new expr-gensel structure from scratch. See also change-expr-gensel, which can "change" an existing structure, instead.

Definition

This is an ordinary make- macro introduced by fty::defprod.

Macro: make-expr-gensel

(defmacro make-expr-gensel (&rest args)
  (std::make-aggregate 'expr-gensel
                       args '((:control) (:assocs))
                       'make-expr-gensel
                       nil))

Function: expr-gensel

(defun expr-gensel (control assocs)
  (declare (xargs :guard (and (exprp control)
                              (genassoc-listp assocs))))
  (declare (xargs :guard t))
  (let ((__function__ 'expr-gensel))
    (declare (ignorable __function__))
    (b* ((control (mbe :logic (expr-fix control)
                       :exec control))
         (assocs (mbe :logic (genassoc-list-fix assocs)
                      :exec assocs)))
      (cons :gensel (list control assocs)))))