Update of /project/phemlock/cvsroot/phemlock/src/clim In directory common-lisp.net:/tmp/cvs-serv1415/src/clim Modified Files: patch.lisp Log Message: Minor patches to make it build and run with current mcclim. Date: Thu Jun 2 13:52:04 2005 Author: crhodes Index: phemlock/src/clim/patch.lisp diff -u phemlock/src/clim/patch.lisp:1.1.1.1 phemlock/src/clim/patch.lisp:1.2 --- phemlock/src/clim/patch.lisp:1.1.1.1 Fri Jul 9 15:38:05 2004 +++ phemlock/src/clim/patch.lisp Thu Jun 2 13:52:04 2005 @@ -1,13 +1,5 @@ (in-package :clim-internals) -(defmethod stream-listen ((stream standard-extended-input-stream)) - (with-encapsulating-stream (estream stream) - (loop for char = (read-gesture-or-reason stream :timeout 0 :peek-p t) - do (if (read-result-p char) - (loop-finish) - (stream-read-gesture estream)) ; consume pointer gesture - finally (return (characterp char))))) - (in-package :clim-clx) #+NIL