Pop the car off a list in the sneaky store.
(sneaky-pop name) → *
Example:
(sneaky-save 'foo '(1 2 3)) (sneaky-pop 'foo) (sneaky-load 'foo state) --> (mv '(2 3) state)
In the logic,
Function:
(defun sneaky-pop (name) (declare (xargs :guard t)) (let ((__function__ 'sneaky-pop)) (declare (ignorable __function__)) (sneaky-mutate 'sneaky-pop-mutator (list name) name)))