Recursively delete files, like the shell command
(rmtree! path &key (state 'state)) → state
Function:
(defun rmtree!-fn (path state) (declare (xargs :stobjs (state))) (declare (xargs :guard (stringp path))) (let ((__function__ 'rmtree!)) (declare (ignorable __function__)) (b* (((mv successp state) (rmtree path)) ((unless successp) (raise "Error removing ~s0." path) state)) state)))