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

[Frode Vatvedt Fjeld]

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

Modified Files:
	simple-streams.lisp 
Log Message:
Added %read-key.

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

Index: movitz/losp/muerte/simple-streams.lisp
diff -u movitz/losp/muerte/simple-streams.lisp:1.6 movitz/losp/muerte/simple-streams.lisp:1.7
--- movitz/losp/muerte/simple-streams.lisp:1.6	Sat Sep 25 17:26:49 2004
+++ movitz/losp/muerte/simple-streams.lisp	Wed Nov 24 17:19:02 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Aug 29 13:39:43 2003
 ;;;;                
-;;;; $Id: simple-streams.lisp,v 1.6 2004/09/25 15:26:49 ffjeld Exp $
+;;;; $Id: simple-streams.lisp,v 1.7 2004/11/24 16:19:02 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -512,6 +512,13 @@
 	 (%finish-output stream))
        (funcall-stm-handler j-read-char (sm melded-stream stream)
 			    eof-error-p eof-value blocking-p)))))
+
+(defun %read-key (stream eof-error-p eof-value recursive-p blocking-p)
+  (etypecase stream
+    (function
+     (funcall stream 'stream-read-key))
+    (simple-stream			; XXX
+     (%read-char stream eof-error-p eof-value recursive-p blocking-p))))
 
 (defun %unread-char (stream character)
   (declare (type simple-stream stream) (ignore character))