		Search-engine friendly clone of the ACL2 documentation.

Fun-info

Make-fun-info

Basic constructor macro for fun-info structures.

Syntax

(make-fun-info [:params <params>] 
               [:result <result>] 
               [:body <body>])

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

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

Definition

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

Macro: make-fun-info

(defmacro make-fun-info (&rest args)
  (std::make-aggregate 'fun-info
                       args '((:params) (:result) (:body))
                       'make-fun-info
                       nil))

Function: fun-info

(defun fun-info (params result body)
  (declare (xargs :guard (and (param-declon-listp params)
                              (tynamep result)
                              (block-item-listp body))))
  (declare (xargs :guard t))
  (let ((__function__ 'fun-info))
    (declare (ignorable __function__))
    (b* ((params (mbe :logic (param-declon-list-fix params)
                      :exec params))
         (result (mbe :logic (tyname-fix result)
                      :exec result))
         (body (mbe :logic (block-item-list-fix body)
                    :exec body)))
      (list (cons 'params params)
            (cons 'result result)
            (cons 'body body)))))