From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Thu, 25 Apr 2013 15:33:30 +0000 (+0200)
Subject: read-float: use strings instead of characters for exponent-marker parsing
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b8ba637d2f859227622422089345d29a3c46c3f7;p=jscl.git

read-float: use strings instead of characters for exponent-marker parsing
since char-upcase is not yet supported.
---

diff --git a/src/read.lisp b/src/read.lisp
index 587fc38..d642be0 100644
--- a/src/read.lisp
+++ b/src/read.lisp
@@ -211,8 +211,8 @@
       ;; Optional exponent part
       (when (< index size)
         ;; Exponent-marker
-        (unless (member (char-upcase (char string index))
-                        '(#\E #\S #\F #\D \#L))
+        (unless (member (string-upcase (string (char string index)))
+                        '("E" "S" "F" "D" "L"))
           (return))
         (incf index)
         (unless (< index size) (return))