• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
      • Kestrel-books
        • Crypto-hdwallet
        • Apt
        • Error-checking
        • Fty-extensions
        • Isar
        • Kestrel-utilities
        • Set
        • Soft
        • C
          • Syntax-for-tools
          • Atc
          • Language
            • Abstract-syntax
            • Integer-ranges
            • Implementation-environments
            • Dynamic-semantics
            • Static-semantics
            • Grammar
            • Integer-formats
            • Types
            • Portable-ascii-identifiers
            • Values
            • Integer-operations
            • Computation-states
              • Write-object
              • Objdesign-of-var
              • Compustate-scopes-numbers
              • Create-var
              • Read-object
              • Compustate
              • Frame
                • Frame-fix
                • Frame-equiv
                • Make-frame
                  • Frame->scopes
                  • Frame->function
                  • Change-frame
                  • Framep
                • Enter-scope
                • Compustate-scopes-numbers-aux
                • Compustate-option
                • Push-frame
                • Exit-scope
                • Compustate-frames-number
                • Compustate-option-result
                • Scope-list-result
                • Pop-frame
                • Compustate-result
                • Scope-result
                • Compustate-top-frame-scopes-number
                • Top-frame
                • Heap
                • Scope
                • Scope-list
                • Frame-list
              • Object-designators
              • Operations
              • Errors
              • Tag-environments
              • Function-environments
              • Character-sets
              • Flexible-array-member-removal
              • Arithmetic-operations
              • Pointer-operations
              • Bytes
              • Keywords
              • Real-operations
              • Array-operations
              • Scalar-operations
              • Structure-operations
            • Representation
            • Transformation-tools
            • Insertion-sort
            • Pack
          • Bv
          • Imp-language
          • Event-macros
          • Java
          • Bitcoin
          • Ethereum
          • Yul
          • Zcash
          • ACL2-programming-language
          • Prime-fields
          • Json
          • Syntheto
          • File-io-light
          • Cryptography
          • Number-theory
          • Lists-light
          • Axe
          • Builtins
          • Solidity
          • Helpers
          • Htclient
          • Typed-lists-light
          • Arithmetic-light
        • X86isa
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • Frame

    Make-frame

    Basic constructor macro for frame structures.

    Syntax
    (make-frame [:function <function>] 
                [:scopes <scopes>]) 
    

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

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

    Definition

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

    Macro: make-frame

    (defmacro make-frame (&rest args)
      (std::make-aggregate 'frame
                           args '((:function) (:scopes))
                           'make-frame
                           nil))

    Function: frame

    (defun frame (function scopes)
     (declare (xargs :guard (and (identp function)
                                 (scope-listp scopes))))
     (declare (xargs :guard (consp scopes)))
     (let ((__function__ 'frame))
       (declare (ignorable __function__))
       (b* ((function (mbe :logic (ident-fix function)
                           :exec function))
            (scopes (mbe :logic (scope-list-fix scopes)
                         :exec scopes)))
         (let ((scopes (mbe :logic (if (consp scopes) scopes (list nil))
                            :exec scopes)))
           (list (cons 'function function)
                 (cons 'scopes scopes))))))