• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
      • Break-rewrite
      • Proof-builder
      • Accumulated-persistence
      • Cgen
      • Forward-chaining-reports
      • Proof-tree
      • Print-gv
      • Dmr
      • With-brr-data
      • Splitter
      • Guard-debug
      • Set-debugger-enable
      • Redo-flat
      • Time-tracker
      • Set-check-invariant-risk
      • Removable-runes
      • Efficiency
      • Explain-near-miss
      • Tail-biting
      • Failed-forcing
      • Sneaky
        • Sneaky-mutate
        • Sneaky-push
        • Sneaky-incf
        • Sneaky-save
          • Sneaky-save-mutator
          • Sneaky-load
          • Sneaky-load-list
          • Sneaky-alist
          • Sneaky-pop
          • Sneaky-cw
          • Sneaky-delete
          • Sneaky-clear
        • Invariant-risk
        • Failure
        • Measure-debug
        • Dead-events
        • Compare-objects
        • Prettygoals
        • Remove-hyps
        • Type-prescription-debugging
        • Pstack
        • Trace
        • Set-register-invariant-risk
        • Walkabout
        • Disassemble$
        • Nil-goal
        • Cw-gstack
        • Set-guard-msg
        • Find-lemmas
        • Watch
        • Quick-and-dirty-subsumption-replacement-step
        • Profile-all
        • Profile-ACL2
        • Set-print-gv-defaults
        • Minimal-runes
        • Spacewalk
        • Try-gl-concls
        • Near-misses
      • Std
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Sneaky-save

    Sneaky-save-mutator

    Signature
    (sneaky-save-mutator ignored val) → *
    Arguments
    val — Guard (consp val).

    Definitions and Theorems

    Function: sneaky-save-mutator

    (defun sneaky-save-mutator (ignored val)
      (declare (xargs :guard (consp val)))
      (declare (ignore ignored))
      (let ((__function__ 'sneaky-save-mutator))
        (declare (ignorable __function__))
        (list val)))