;;;--------------------------------------------------------------------------
;;; Indicators and error messages.
-(defvar *indicator-map* (make-hash-table)
- "Hash table mapping indicator objects to human-readable descriptions.")
-
(defun show-char (stream char &optional colonp atsignp)
"Format CHAR to STREAM in a readable way.