[cl-l10n-cvs] CVS update: cl-l10n/utils.lisp

[Sean Ross]

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)