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

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 21ef044..cd93750 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1152,9 +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)
-              (char= (char string index) #\space))
+              (= index size))
           (values (* sign value) index)
           (values nil index)))))