Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory clnet:/tmp/cvs-serv17892
Modified Files: textmode.lisp Log Message: Add a trivial e9-output "steam" function.
--- /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp 2007/03/26 21:43:21 1.16 +++ /project/movitz/cvsroot/movitz/losp/x86-pc/textmode.lisp 2007/04/09 16:05:25 1.17 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.16 2007/03/26 21:43:21 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.17 2007/04/09 16:05:25 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -240,6 +240,17 @@ (defun write-word-lowlevel (word dest) (write-word-lowlevel-macro word dest))
+(defun e9-output (op &rest args) + (declare (dynamic-extent args)) + (ecase op + (muerte::stream-write-char + (setf (io-port #xe9 :unsigned-byte8) (char-code (car args)))) + (muerte::stream-fresh-line + (e9-output 'muerte::stream-write-char #\Newline) + t) + (local-echo-p + nil))) + (defun textmode-console (op &rest args) "This function can act as *terminal-io* without/before CLOS support." (declare (dynamic-extent args))