From f8cd36462402684ad064f99d31da77d3df291f4c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 18 Sep 1990 22:42:23 +0000 Subject: [PATCH] Fixed some residual character bits lossage that was causing #\a to print as #\\a. --- code/print.lisp | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) diff --git a/code/print.lisp b/code/print.lisp index a86927029..75a7fda8b 100644 --- a/code/print.lisp +++ b/code/print.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.9 1990/08/24 18:12:20 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.10 1990/09/18 22:42:23 ram Exp $ ;;; ;;; CMU Common Lisp printer. ;;; @@ -1190,23 +1190,18 @@ ;;; OUTPUT-CHARACTER -- Internal ;;; -;;; If *print-escape* is false, just do a WRITE-CHAR, otherwise output -;;; any bits and then the character or name, escaping if necessary. In -;;; either case, we blast the bits or font before writing the character -;;; itself to the stream. +;;; If *print-escape* is false, just do a WRITE-CHAR, otherwise output the +;;; character name or the character in the #\char format. ;;; (defun output-character (char stream) (if *print-escape* (let ((name (char-name char))) (write-string "#\\" stream) - (cond (name (write-string name stream)) - (t - (when (funny-character-char-p char) - (write-char #\\ stream)) - (write-char char stream)))) + (if name + (write-string name stream) + (write-char char stream))) (write-char char stream))) - ;;;; Random and Miscellaneous Print Subfunctions -- GitLab