;;;--------------------------------------------------------------------------
;;; Indicators and error messages.
+(defvar *indicator-map* (make-hash-table)
+ "Hash table mapping indicator objects to human-readable descriptions.")
+
(export 'define-indicator)
(defun define-indicator (indicator description)
"Associate an INDICATOR with its textual DESCRIPTION.