[mcclim-cvs] CVS mcclim/ESA

[crhodes]

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

Modified Files:
	esa.lisp 
Log Message:
Fix M-digit handling (now does more than two digits!)


--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2007/02/07 12:44:21	1.5
+++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2007/02/21 12:35:36	1.6
@@ -18,7 +18,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; Emacs-Style Appication
+;;; Emacs-Style Application
 
 (in-package :esa)
 
@@ -621,6 +621,7 @@
                 do
                 (setf numarg (+ (* 10 numarg) (meta-digit gesture)))
                 (pop gestures)
+                finally
                 (return (values (if (and (= sign -1) (= numarg 0))
                                     -1
                                     (* sign numarg))