Read File Contents Field
(read-x86-file-contents-logic name x86) → *
Read the field entry corresponding to key
Function:
(defun read-x86-file-contents-logic (name x86) (declare (xargs :stobjs (x86))) (declare (xargs :guard (stringp name))) (let ((__function__ 'read-x86-file-contents-logic)) (declare (ignorable __function__)) (b* ((env (env-read x86)) (name-file-contents-field (assoc-equal :file-contents env)) (file-contents-field (if (atom name-file-contents-field) nil (cdr (assoc-equal name (cdr name-file-contents-field)))))) file-contents-field)))