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*)