(write-x86-file-des-logic fd fd-field x86) → x86
Replacing the value associated with the
Function:
(defun write-x86-file-des-logic (fd fd-field x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (integerp fd))) (let ((__function__ 'write-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 (put-assoc-equal fd fd-field file-des-field) (acons ':file-contents (cdr (assoc-equal :file-contents env)) (acons ':oracle (cdr (assoc-equal :oracle env)) nil))) x86))) x86)))