Skip to content
Snippets Groups Projects
Commit da600c69 authored by rtoy's avatar rtoy
Browse files

Upcase some of the character names so that ~:C and ~S produce the same

output.  (ANSI-TEST FORMAT.S.8.)
parent b6fc996c
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.14 2004/04/16 14:34:01 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.15 2004/08/27 12:28:29 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -59,12 +59,12 @@ ...@@ -59,12 +59,12 @@
long names. The first name in this list for a given character is used long names. The first name in this list for a given character is used
on typeout and is the preferred form for input.")))) on typeout and is the preferred form for input."))))
(frob ((#x00 ("Null" "^@" "Nul")) (frob ((#x00 ("Null" "^@" "Nul"))
(#x01 ("^a" "Soh")) (#x01 ("^A" "Soh"))
(#x02 ("^b" "Stx")) (#x02 ("^B" "Stx"))
(#x03 ("^c" "Etx")) (#x03 ("^C" "Etx"))
(#x04 ("^d" "Eot")) (#x04 ("^D" "Eot"))
(#x05 ("^e" "Enq")) (#x05 ("^E" "Enq"))
(#x06 ("^f" "Ack")) (#x06 ("^F" "Ack"))
(#x07 ("Bell" "^g" "Bel")) (#x07 ("Bell" "^g" "Bel"))
(#x08 ("Backspace" "^h" "Bs")) (#x08 ("Backspace" "^h" "Bs"))
(#x09 ("Tab" "^i" "Ht")) (#x09 ("Tab" "^i" "Ht"))
...@@ -72,19 +72,19 @@ ...@@ -72,19 +72,19 @@
(#x0B ("Vt" "^k")) (#x0B ("Vt" "^k"))
(#x0C ("Page" "^l" "Form" "Formfeed" "Ff" "Np")) (#x0C ("Page" "^l" "Form" "Formfeed" "Ff" "Np"))
(#x0D ("Return" "^m" "Cr")) (#x0D ("Return" "^m" "Cr"))
(#x0E ("^n" "So")) (#x0E ("^N" "So"))
(#x0F ("^o" "Si")) (#x0F ("^O" "Si"))
(#x10 ("^p" "Dle")) (#x10 ("^P" "Dle"))
(#x11 ("^q" "Dc1")) (#x11 ("^Q" "Dc1"))
(#x12 ("^r" "Dc2")) (#x12 ("^R" "Dc2"))
(#x13 ("^s" "Dc3")) (#x13 ("^S" "Dc3"))
(#x14 ("^t" "Dc4")) (#x14 ("^T" "Dc4"))
(#x15 ("^u" "Nak")) (#x15 ("^U" "Nak"))
(#x16 ("^v" "Syn")) (#x16 ("^V" "Syn"))
(#x17 ("^w" "Etb")) (#x17 ("^W" "Etb"))
(#x18 ("^x" "Can")) (#x18 ("^X" "Can"))
(#x19 ("^y" "Em")) (#x19 ("^Y" "Em"))
(#x1A ("^z" "Sub")) (#x1A ("^Z" "Sub"))
(#x1B ("Escape" "^[" "Altmode" "Esc" "Alt")) (#x1B ("Escape" "^[" "Altmode" "Esc" "Alt"))
(#x1C ("Fs" "^\\")) (#x1C ("Fs" "^\\"))
(#x1D ("Gs" "^]")) (#x1D ("Gs" "^]"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment