From b8ba637d2f859227622422089345d29a3c46c3f7 Mon Sep 17 00:00:00 2001 From: Alfredo Beaumont Date: Thu, 25 Apr 2013 17:33:30 +0200 Subject: [PATCH] read-float: use strings instead of characters for exponent-marker parsing since char-upcase is not yet supported. --- src/read.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 1.7.10.4