[movitz-cvs] CVS movitz/losp/x86-pc
ffjeld
ffjeld at common-lisp.net
Mon Apr 9 16:05:25 UTC 2007
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))
More information about the Movitz-cvs
mailing list