• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Wp-gen
      • Dimacs-reader
      • Pfcs
      • Legacy-defrstobj
      • Proof-checker-array
      • 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
        • Farray
        • Rp-rewriter
        • Instant-runoff-voting
        • Imp-language
        • Sidekick
        • Leftist-trees
        • Java
        • Taspi
        • Bitcoin
        • Riscv
        • Des
        • Ethereum
        • X86isa
        • Sha-2
        • Yul
        • Zcash
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Poseidon
        • Where-do-i-place-my-book
        • Axe
        • Bigmems
        • Builtins
        • Execloader
        • Aleo
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • 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))))))