Hey look! An ANSI bug that's more annoying than (vector nil)!
... printing #\Space is defined to yield #\
... did you see the whitespace at the end of that line?
** Printing symbols with *PRINT-CASE* :CAPITALIZE respects the
description of determination of which consecutive characters
constitute a word.
** Printing symbols with *PRINT-CASE* :CAPITALIZE respects the
description of determination of which consecutive characters
constitute a word.
+ ** Printing the "Space" character with escaping on now yields "#\\ ",
+ rather than "#\\Space", as mandated by ANSI 22.1.3.2.
planned incompatible changes in 0.8.x:
* (not done yet, but planned:) When the profiling interface settles
planned incompatible changes in 0.8.x:
* (not done yet, but planned:) When the profiling interface settles
;;; the character name or the character in the #\char format.
(defun output-character (char stream)
(if (or *print-escape* *print-readably*)
;;; the character name or the character in the #\char format.
(defun output-character (char stream)
(if (or *print-escape* *print-readably*)
- (let ((name (char-name char)))
+ (let ((graphicp (graphic-char-p char))
+ (name (char-name char)))
(write-string "#\\" stream)
(write-string "#\\" stream)
+ (if (and name (not graphicp))
(quote-string name stream)
(write-char char stream)))
(write-char char stream)))
(quote-string name stream)
(write-char char stream)))
(write-char char stream)))
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)