		Search-engine friendly clone of the ACL2 documentation.

Feat

Make-feat

Basic constructor macro for feat structures.

Syntax

(make-feat [:base <base>] 
           [:endian <endian>] 
           [:m <m>])

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

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

Definition

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

Macro: make-feat

(defmacro make-feat (&rest args)
  (std::make-aggregate 'feat
                       args '((:base) (:endian) (:m))
                       'make-feat
                       nil))

Function: feat

(defun feat (base endian m)
  (declare (xargs :guard (and (feat-basep base)
                              (feat-endianp endian)
                              (booleanp m))))
  (declare (xargs :guard t))
  (let ((__function__ 'feat))
    (declare (ignorable __function__))
    (b* ((base (mbe :logic (feat-base-fix base)
                    :exec base))
         (endian (mbe :logic (feat-endian-fix endian)
                      :exec endian))
         (m (mbe :logic (acl2::bool-fix m)
                 :exec m)))
      (list (cons 'base base)
            (cons 'endian endian)
            (cons 'm m)))))