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