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