From 28da2f2d608aa74d0b9e308220ffbc5cc740a8ea Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 4 May 2013 19:15:32 +0100 Subject: [PATCH] Fix read-float. Define CHAR-UPCASE and CHAR-DOWNCASE --- src/compiler.lisp | 6 ++++++ src/read.lisp | 3 +-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index df148d9..8421b16 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -1475,6 +1475,12 @@ "r.type = 'character';" "return r")) +(define-builtin char-upcase (x) + (code x ".toUpperCase()")) + +(define-builtin char-downcase (x) + (code x ".toLowerCase()")) + (define-builtin stringp (x) (js!bool (js!selfcall diff --git a/src/read.lisp b/src/read.lisp index e2c5dfd..9d0ec46 100644 --- a/src/read.lisp +++ b/src/read.lisp @@ -304,8 +304,7 @@ ;; Optional exponent part (when (< index size) ;; Exponent-marker - (unless (member (string-upcase (string (char string index))) - '("E" "S" "F" "D" "L")) + (unless (find (char-upcase (char string index)) "ESFDL") (return)) (incf index) (unless (< index size) (return)) -- 1.7.10.4