Skip to content
Snippets Groups Projects
Commit f8cd3646 authored by ram's avatar ram
Browse files

Fixed some residual character bits lossage that was causing #\a to

print as #\\a.
parent f7c453be
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; CMU Common Lisp printer.
;;; ;;;
...@@ -1190,23 +1190,18 @@ ...@@ -1190,23 +1190,18 @@
;;; OUTPUT-CHARACTER -- Internal ;;; OUTPUT-CHARACTER -- Internal
;;; ;;;
;;; If *print-escape* is false, just do a WRITE-CHAR, otherwise output ;;; If *print-escape* is false, just do a WRITE-CHAR, otherwise output the
;;; any bits and then the character or name, escaping if necessary. In ;;; character name or the character in the #\char format.
;;; either case, we blast the bits or font before writing the character
;;; itself to the stream.
;;; ;;;
(defun output-character (char stream) (defun output-character (char stream)
(if *print-escape* (if *print-escape*
(let ((name (char-name char))) (let ((name (char-name char)))
(write-string "#\\" stream) (write-string "#\\" stream)
(cond (name (write-string name stream)) (if name
(t (write-string name stream)
(when (funny-character-char-p char) (write-char char stream)))
(write-char #\\ stream))
(write-char char stream))))
(write-char char stream))) (write-char char stream)))
;;;; Random and Miscellaneous Print Subfunctions ;;;; Random and Miscellaneous Print Subfunctions
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment