[Phemlock-cvs] CVS update: phemlock/src/clim/patch.lisp

[Christophe Rhodes]

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