From bc9630afcd3cf247239fc2a9118d15087ba05741 Mon Sep 17 00:00:00 2001 From: Red Daly Date: Mon, 2 Jul 2007 21:43:07 +0000 Subject: [PATCH] character encoding fixes in test.lisp --- t/test.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/test.lisp b/t/test.lisp index 7511286..8d3657d 100644 --- a/t/test.lisp +++ b/t/test.lisp @@ -209,15 +209,15 @@ x = 2 + sideEffect() + x + 5;") (test escape-sequences-in-string (let ((escapes `((#\\ . #\\) (#\b . #\Backspace) - (#\f . #\Form) - ("u000b" . ,(code-char #x000b));;Vertical tab, too uncommon to bother with + (#\f . ,(code-char 12)) + ("u000B" . ,(code-char #x000b));;Vertical tab, too uncommon to bother with (#\n . #\Newline) (#\r . #\Return) (#\' . #\');;Double quote need not be quoted because parenscript strings are single quoted (#\t . #\Tab) - ("u001f" . ,(code-char #x001f));; character below 32 + ("u001F" . ,(code-char #x001f));; character below 32 ("u0080" . ,(code-char 128)) ;;Character over 127. Actually valid, parenscript escapes them to be sure. - ("uabcd" . ,(code-char #xabcd)))));; Really above ascii. + ("uABCD" . ,(code-char #xabcd)))));; Really above ascii. (loop for (js-escape . lisp-char) in escapes for generated = (js-to-string `(let ((x , (format nil "hello~ahi" lisp-char))))) for wanted = (format nil "{ -- 2.20.1