• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
        • Warnings
        • Primitives
        • Use-set
        • Syntax
        • Getting-started
        • Utilities
        • Loader
        • Transforms
        • Lint
        • Mlib
          • Scopestack
          • Filtering-by-name
            • Vl-keep-modinsts-by-modname
            • Vl-keep-modinsts-by-instname
            • Vl-delete-modinsts-by-instname
            • Vl-keep-imports-by-package
            • Vl-delete-modinsts-by-modname
            • Vl-delete-imports-by-package
            • Vl-keep-descriptions
            • Vl-delete-descriptions
            • Vl-keep-paramdecls
            • Vl-keep-interfaces
            • Vl-delete-paramdecls
            • Vl-delete-interfaces
            • Vl-keep-vardecls
            • Vl-keep-typedefs
            • Vl-keep-taskdecls
            • Vl-keep-programs
            • Vl-keep-portdecls
            • Vl-keep-packages
            • Vl-keep-fundecls
            • Vl-delete-taskdecls
            • Vl-delete-portdecls
            • Vl-keep-modules
            • Vl-keep-configs
              • Vl-fast-keep-configs
                • Vl-slow-keep-configs
              • Vl-delete-vardecls
              • Vl-delete-typedefs
              • Vl-delete-programs
              • Vl-delete-packages
              • Vl-delete-fundecls
              • Vl-delete-modules
              • Vl-delete-configs
              • Vl-keep-udps
              • Vl-delete-udps
              • Vl-filter-modinsts-by-modname+
              • Vl-filter-modinsts-by-modname
              • Vl-filter-modinsts-by-instname
              • Vl-filter-imports-by-package
              • Vl-filter-descriptions
              • Vl-filter-vardecls
              • Vl-filter-typedefs
              • Vl-filter-taskdecls
              • Vl-filter-programs
              • Vl-filter-portdecls
              • Vl-filter-paramdecls
              • Vl-filter-packages
              • Vl-filter-modules
              • Vl-filter-interfaces
              • Vl-filter-fundecls
              • Vl-filter-configs
              • Vl-filter-udps
            • Vl-namefactory
            • Substitution
            • Allexprs
            • Hid-tools
            • Vl-consteval
            • Range-tools
            • Lvalexprs
            • Hierarchy
            • Finding-by-name
            • Expr-tools
            • Expr-slicing
            • Stripping-functions
            • Stmt-tools
            • Modnamespace
            • Vl-parse-expr-from-str
            • Welltyped
            • Reordering-by-name
            • Flat-warnings
            • Genblob
            • Expr-building
            • Datatype-tools
            • Syscalls
            • Relocate
            • Expr-cleaning
            • Namemangle
            • Caremask
            • Port-tools
            • Lvalues
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Vl-keep-configs

    Vl-fast-keep-configs

    Signature
    (vl-fast-keep-configs names fal x nrev) → nrev
    Arguments
    names — Guard (string-listp names).
    fal — Guard (equal fal (make-lookup-alist names)).
    x — Guard (vl-configlist-p x).

    Definitions and Theorems

    Function: vl-fast-keep-configs

    (defun vl-fast-keep-configs (names fal x nrev)
      (declare (xargs :stobjs (nrev)))
      (declare
           (xargs :guard (and (string-listp names)
                              (vl-configlist-p x)
                              (equal fal (make-lookup-alist names)))))
      (let ((__function__ 'vl-fast-keep-configs))
        (declare (ignorable __function__))
        (if (atom x)
            (nrev-fix nrev)
          (let ((nrev (if (fast-memberp (vl-config->name (car x))
                                        (string-list-fix names)
                                        fal)
                          (nrev-push (vl-config-fix (car x)) nrev)
                        nrev)))
            (vl-fast-keep-configs names fal (cdr x)
                                  nrev)))))