[mcclim-cvs] CVS mcclim/ESA

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/ESA
In directory clnet:/tmp/cvs-serv19625/ESA

Modified Files:
	esa.lisp 
Log Message:
Removed commented-out code.


--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2006/11/27 11:54:49	1.3
+++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2006/12/10 00:08:30	1.4
@@ -744,12 +744,7 @@
   (loop
      (setf *current-gesture* (esa-read-gesture :command-processor command-processor))
      (unless (process-gesture command-processor *current-gesture*)
-       (return)))
-  #+nil(loop
-          for gestures = '() then (nconc gestures (list *current-gesture*))
-          for *current-gesture* = (esa-read-gesture :command-processor command-processor)
-          unless (process-gestures command-processor)
-          do (return)))
+       (return))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;