Increment a value in the sneaky store.
(sneaky-incf name &optional (amount '1)) → *
Example:
(sneaky-save 'foo 3) (sneaky-incf 'foo) ;; increment by 1 (sneaky-incf 'foo 2) ;; increment by 2 (sneaky-load 'foo state) --> (mv 6 state)
In the logic,
Function:
(defun sneaky-incf-fn (name amount) (declare (xargs :guard (acl2-numberp amount))) (let ((__function__ 'sneaky-incf)) (declare (ignorable __function__)) (sneaky-mutate 'sneaky-incf-mutator (list name) (cons name amount))))