From 347b230656b0496c9c0259e2d29f12a9f7db81bb Mon Sep 17 00:00:00 2001
From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Tue, 23 Apr 2013 16:16:48 +0200
Subject: [PATCH] !parse-integer: fix junk processing

---
 ecmalisp.lisp |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 21ef044..f177605 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -1154,7 +1154,9 @@
           (incf index)))
       (if (or junk-allow
               (= index size)
-              (char= (char string index) #\space))
+              (do ((i index (1+ i)))
+                  ((or (>= i size) (not (whitespacep (char string i))))
+                   (>= i size))))
           (values (* sign value) index)
           (values nil index)))))
 
-- 
1.7.10.4