From d3288e31f81aae7eeb8054f0114aa0c079c49e04 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Sat, 7 Dec 2002 16:56:00 +0000 Subject: [PATCH] Make "Newline" be the char-name instead of "Linefeed", as mandated by CLtS. --- code/char.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/char.lisp b/code/char.lisp index 3bf82a9c1..d714f80c1 100644 --- a/code/char.lisp +++ b/code/char.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.12 1998/07/16 13:30:43 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/char.lisp,v 1.13 2002/12/07 16:56:00 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -68,7 +68,7 @@ (#x07 ("Bell" "^g" "Bel")) (#x08 ("Backspace" "^h" "Bs")) (#x09 ("Tab" "^i" "Ht")) - (#x0A ("Linefeed" "Newline" "^j" "Lf" "Nl" )) + (#x0A ("Newline" "Linefeed" "^j" "Lf" "Nl" )) (#x0B ("Vt" "^k")) (#x0C ("Page" "^l" "Form" "Formfeed" "Ff" "Np")) (#x0D ("Return" "^m" "Cr")) -- GitLab