Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv5409
Modified Files: presentation-defs.lisp Log Message: Another fix from Mike Watters.
--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2009/01/21 06:43:15 1.79 +++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2009/01/21 06:48:08 1.80 @@ -991,10 +991,8 @@ (declare (ignore abort)))
(defmethod stream-peek-char ((stream string-input-editing-stream)) - (let ((char (read-char-no-hang stream nil nil))) - (when char - (unread-char char stream)) - (or char :eof))) + (or (stream-read-gesture stream :peek-p t) + :eof))
(defmethod stream-read-char-no-hang ((stream string-input-editing-stream)) (if (> (stream-scan-pointer stream) (length (stream-input-buffer stream)))