X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=cd93750ab8dad28633d77133f61c184bf6e615cf;hb=9ed43a93fd7f52e7e229ff356fcc164ef66a23e8;hp=f177605abcd69db9d849ce285c60e86d0586e421;hpb=347b230656b0496c9c0259e2d29f12a9f7db81bb;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index f177605..cd93750 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1152,11 +1152,12 @@
           (unless digit (return))
           (setq value (+ (* value 10) digit))
           (incf index)))
+      ;; Trailing whitespace
+      (do ((i index (1+ i)))
+          ((or (= i size) (not (whitespacep (char string i))))
+           (and (= i size) (setq index i))))
       (if (or junk-allow
-              (= index size)
-              (do ((i index (1+ i)))
-                  ((or (>= i size) (not (whitespacep (char string i))))
-                   (>= i size))))
+              (= index size))
           (values (* sign value) index)
           (values nil index)))))