From 59d3c553df583df0b472b14c332fb5d74e695ce5 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 1 Oct 1991 14:42:11 +0000
Subject: [PATCH] Changed ordering of CHAR-NAME-ALIST to prefer NEWLINE, ESCAPE
 and DELETE to LINEFEED, ALTMODE and RUBOUT (when printing.)

---
 code/char.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/char.lisp b/code/char.lisp
index 07adf96b3..98ba936f7 100644
--- a/code/char.lisp
+++ b/code/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.4 1991/02/14 22:50:53 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.5 1991/10/01 14:42:11 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -53,16 +53,16 @@
 	  ("BELL" . ,(code-char 7))
 	  ("BACKSPACE" . ,(code-char 8)) ("BS" . ,(code-char 8))
 	  ("TAB" . ,(code-char 9))
-	  ("LINEFEED" . ,(code-char 10)) ("LF" . ,(code-char 10))
 	  ("NEWLINE" . ,(code-char 10)) ("NL" . ,(code-char 10))  
+	  ("LINEFEED" . ,(code-char 10)) ("LF" . ,(code-char 10))
 	  ("VT" . ,(code-char 11))
 	  ("PAGE" . ,(code-char 12)) ("FORM" . ,(code-char 12))
 	  ("FORMFEED" . ,(code-char 12)) ("FF" . ,(code-char 12))
 	  ("RETURN" . ,(code-char 13)) ("CR" . ,(code-char 13))
-	  ("ALTMODE" . ,(code-char 27)) ("ALT" . ,(code-char 27))
 	  ("ESCAPE" . ,(code-char 27)) ("ESC" . ,(code-char 27))
+	  ("ALTMODE" . ,(code-char 27)) ("ALT" . ,(code-char 27))
 	  ("SPACE" . ,(code-char 32)) ("SP" . ,(code-char 32))
-	  ("RUBOUT" . ,(code-char 127)) ("DELETE" . ,(code-char 127)))
+	  ("DELETE" . ,(code-char 127)) ("RUBOUT" . ,(code-char 127)))
   "This is the alist of (character-name . character) for characters
   with long names.  The first name in this list for a given character
   is used on typeout and is the preferred form for input.")
-- 
GitLab