(delete-x86-file-contents-logic name x86) → x86
Deleting the name key-value pair in the :FILE-CONTENTS field of the environment.
Function:
(defun delete-x86-file-contents-logic (name x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (stringp name))) (let ((__function__ 'delete-x86-file-contents-logic)) (declare (ignorable __function__)) (b* ((env (env-read x86)) (file-contents-field (cdr (assoc-equal :file-contents env))) (x86 (env-write (acons ':file-descriptors (cdr (assoc-equal :file-descriptors env)) (acons ':file-contents (remove1-assoc-equal name file-contents-field) (acons ':oracle (cdr (assoc-equal :oracle env)) nil))) x86))) x86)))