		Search-engine friendly clone of the ACL2 documentation.

System-state

Make-system-state

Basic constructor macro for system-state structures.

Syntax

(make-system-state [:validators <validators>] 
                   [:network <network>])

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

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

Definition

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

Macro: make-system-state

(defmacro make-system-state (&rest args)
  (std::make-aggregate 'system-state
                       args '((:validators) (:network))
                       'make-system-state
                       nil))

Function: system-state

(defun system-state (validators network)
 (declare
      (xargs :guard (and (address-validator-state-mapp validators)
                         (message-setp network))))
 (declare (xargs :guard t))
 (let ((__function__ 'system-state))
  (declare (ignorable __function__))
  (b* ((validators
            (mbe :logic (address-validator-state-map-fix validators)
                 :exec validators))
       (network (mbe :logic (message-set-fix network)
                     :exec network)))
    (list (cons 'validators validators)
          (cons 'network network)))))