		Search-engine friendly clone of the ACL2 documentation.

Valid-ord-info-objfun

Make-valid-ord-info-objfun

Basic constructor macro for valid-ord-info-objfun structures.

Syntax

(make-valid-ord-info-objfun [:type <type>] 
                            [:linkage <linkage>] 
                            [:defstatus <defstatus>] 
                            [:uid <uid>])

This is the usual way to construct valid-ord-info-objfun structures. It simply conses together a structure with the specified fields.

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

Definition

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

Macro: make-valid-ord-info-objfun

(defmacro make-valid-ord-info-objfun (&rest args)
  (std::make-aggregate 'valid-ord-info-objfun
                       args
                       '((:type) (:linkage) (:defstatus) (:uid))
                       'make-valid-ord-info-objfun
                       nil))

Function: valid-ord-info-objfun

(defun valid-ord-info-objfun (type linkage defstatus uid)
  (declare (xargs :guard (and (typep type)
                              (linkagep linkage)
                              (valid-defstatusp defstatus)
                              (uidp uid))))
  (declare (xargs :guard t))
  (b* ((type (mbe :logic (type-fix type) :exec type))
       (linkage (mbe :logic (linkage-fix linkage)
                     :exec linkage))
       (defstatus (mbe :logic (valid-defstatus-fix defstatus)
                       :exec defstatus))
       (uid (mbe :logic (uid-fix uid) :exec uid)))
    (cons :objfun (list type linkage defstatus uid))))