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