		Search-engine friendly clone of the ACL2 documentation.

Valid-ext-info

Make-valid-ext-info

Basic constructor macro for valid-ext-info structures.

Syntax

(make-valid-ext-info [:type <type>] 
                     [:declared-in <declared-in>] 
                     [:uid <uid>])

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

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

Definition

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

Macro: make-valid-ext-info

(defmacro make-valid-ext-info (&rest args)
  (std::make-aggregate 'valid-ext-info
                       args '((:type) (:declared-in) (:uid))
                       'make-valid-ext-info
                       nil))

Function: valid-ext-info

(defun valid-ext-info (type declared-in uid)
  (declare (xargs :guard (and (typep type)
                              (filepath-setp declared-in)
                              (uidp uid))))
  (declare (xargs :guard t))
  (b* ((type (mbe :logic (type-fix type) :exec type))
       (declared-in (mbe :logic (filepath-set-fix declared-in)
                         :exec declared-in))
       (uid (mbe :logic (uid-fix uid) :exec uid)))
    (list (cons 'type type)
          (cons 'declared-in declared-in)
          (cons 'uid uid))))