Write a byte to the TTY.
(write-tty c x86) → x86
This function writes a byte to the
Function:
(defun write-tty (c x86) (declare (xargs :stobjs (x86))) (declare (type (unsigned-byte 8) c)) (let ((__function__ 'write-tty)) (declare (ignorable __function__)) (!tty-out (cons c (tty-out x86)) x86)))
Theorem:
(defthm x86p-of-write-tty (implies (x86p x86) (b* ((x86 (write-tty c x86))) (x86p x86))) :rule-classes :rewrite)