[movitz-cvs] CVS update: movitz/losp/muerte/streams.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv26183

Modified Files:
	streams.lisp 
Log Message:
Added read-key, which is like read-char only it can return symbols
such as :up, :page-down etc. also, not just characters.

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

Index: movitz/losp/muerte/streams.lisp
diff -u movitz/losp/muerte/streams.lisp:1.3 movitz/losp/muerte/streams.lisp:1.4
--- movitz/losp/muerte/streams.lisp:1.3	Thu May 20 20:13:55 2004
+++ movitz/losp/muerte/streams.lisp	Wed Nov 24 17:19:36 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Jun 30 14:33:15 2003
 ;;;;                
-;;;; $Id: streams.lisp,v 1.3 2004/05/20 18:13:55 ffjeld Exp $
+;;;; $Id: streams.lisp,v 1.4 2004/11/24 16:19:36 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -115,6 +115,10 @@
 (defun read-char (&optional input-stream (eof-error-p t) eof-value recursive-p)
   " => char"
   (%read-char (input-stream-designator input-stream) eof-error-p eof-value recursive-p t))
+
+(defun read-key (&optional input-stream (eof-error-p t) eof-value recursive-p)
+  " => char, symbol, etc."
+  (%read-key (input-stream-designator input-stream) eof-error-p eof-value recursive-p t))
 
 (defun finish-output (&optional stream)
   "finish-output attempts to ensure that any buffered output sent to output-stream has reached its