(syscall-close-logic fd x86) → (mv * x86)
From the
RETURN VALUES
Function:
(defun syscall-close-logic (fd x86) (declare (xargs :stobjs (x86))) (declare (ignorable fd x86)) (declare (xargs :guard (integerp fd))) (let ((__function__ 'syscall-close-logic)) (declare (ignorable __function__)) (b* ((obj-fd-field (read-x86-file-des fd x86)) ((when (not (file-descriptor-fieldp obj-fd-field))) (b* ((- (cw "~%Error: File Descriptor Field ill-formed. Maybe these books were ~ not built with X86ISA_EXEC set to t? See :doc x86isa-build-instructions.~%~%")) (x86 (!ms (list (rip x86) "File Descriptor Field ill-formed. Maybe these books were not built with X86ISA_EXEC set to t? See :doc x86isa-build-instructions." (ms x86)) x86))) (mv -1 x86))) (x86 (delete-x86-file-des fd x86))) (mv 0 x86))))