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