define COMPILE*, SYMBOL-STATUS
define OBJECT-PRINT-NAME, OBJECT-PRINT-LABEL, FORMAT-LABEL. PRINT-HASH-TABLE: move to print-utils.lisp, use FORMAT-LABEL in default format-control
FORMAT-LABEL: Redefine as generic function
PRINT-HASH-TABLE: Remove unused values from lambda-list