[ansi-test-devel] Patch: char-upcase tests return character names for failed tests

[Raymond Toy]

Here is a small patch to make char-upcase and friends return the
character names instead of the characters themselves (in case the
external format is not set up correctly to display such characters).

Ray

Index: char-aux.lsp
===================================================================
--- char-aux.lsp    (revision 2157)
+++ char-aux.lsp    (working copy)
@@ -208,7 +208,7 @@
                      (and
                       (or (lower-case-p x) (eqlt u x))
                       (eqlt u (char-upcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-upcase.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -218,7 +218,7 @@
                      (and
                       (or (lower-case-p x) (eqlt u x))
                       (eqlt u (char-upcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-downcase.1.body ()
   (loop for x in *universe*
@@ -227,7 +227,7 @@
                      (and
                       (or (upper-case-p x) (eqlt u x))
                       (eqlt u (char-downcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-downcase.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -237,7 +237,7 @@
                      (and
                       (or (upper-case-p x) (eqlt u x))
                       (eqlt u (char-downcase u)))))
-        collect x))
+        collect (char-name x)))
 
 (defun both-case-p.1.body ()
   (loop for x in *universe*
@@ -248,7 +248,7 @@
                                 (lower-case-p x)))
                      (not (or (upper-case-p x)
                               (lower-case-p x)))))
-        collect x))
+        collect (char-name x)))
 
 (defun both-case-p.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
@@ -260,14 +260,14 @@
                                 (lower-case-p x)))
                      (not (or (upper-case-p x)
                               (lower-case-p x)))))
-        collect x))
+        collect (char-name x)))
 
 (defun char-code.2.body ()
   (loop for i from 0 below (min 65536 char-code-limit)
         for c = (code-char i)
         unless (or (not c)
                    (eqlt (char-code c) i))
-        collect c))
+        collect (char-name c)))
 
 (defun char-int.2.fn ()
   (declare (optimize (safety 3) (speed 1) (space 1)))