[movitz-cvs] CVS update: movitz/losp/x86-pc/textmode.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv26559

Modified Files:
	textmode.lisp 
Log Message:
Add support for read-key.

Date: Wed Nov 24 17:24:36 2004
Author: ffjeld

Index: movitz/losp/x86-pc/textmode.lisp
diff -u movitz/losp/x86-pc/textmode.lisp:1.13 movitz/losp/x86-pc/textmode.lisp:1.14
--- movitz/losp/x86-pc/textmode.lisp:1.13	Sun Nov 14 23:58:23 2004
+++ movitz/losp/x86-pc/textmode.lisp	Wed Nov 24 17:24:36 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  9 15:38:56 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: textmode.lisp,v 1.13 2004/11/14 22:58:23 ffjeld Exp $
+;;;; $Id: textmode.lisp,v 1.14 2004/11/24 16:24:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -224,6 +224,8 @@
      (loop when (muerte.x86-pc.keyboard:poll-char) return it))
     (muerte::stream-read-char-no-hang
      (muerte.x86-pc.keyboard:poll-char))
+    (muerte::stream-read-key
+     (loop when (muerte.x86-pc.keyboard:poll-key) return it))
     (cursor-x (cursor-column))
     (cursor-y (cursor-row))
     (console-width *screen-width*)