Update of /project/cl-l10n/cvsroot/cl-l10n In directory common-lisp.net:/tmp/cvs-serv781
Modified Files: utils.lisp Log Message: Changelog 2004-12-07 Date: Tue Dec 7 10:21:55 2004 Author: sross
Index: cl-l10n/utils.lisp diff -u cl-l10n/utils.lisp:1.3 cl-l10n/utils.lisp:1.4 --- cl-l10n/utils.lisp:1.3 Wed Dec 1 12:48:40 2004 +++ cl-l10n/utils.lisp Tue Dec 7 10:21:55 2004 @@ -171,7 +171,7 @@ (m+ m+ (* m+ print-base)) (m- m- (* m- print-base))) ((not (or (< (* (+ r m+) print-base) s) - (and high-ok (= (* (+ r m+) print-base) s)))) + (and (not high-ok) (= (* (+ r m+) print-base) s)))) (values k (generate r s m+ m-))))))) (generate (r s m+ m-) (let (d tc1 tc2)