(IF (FBOUNDP 'PRINT-HERALD) (PRINT-HERALD) (SEND *STANDARD-OUTPUT* :FRESH-LINE) (PRINC "Lisp Machine cold load environment, beware! ;; *READ//PRINT-BASE* = ") (LET ((*PRINT-BASE* 10.)) (PRINC *READ-BASE*)) (PRINC ", *PACKAGE* = ") (PRINC (PACKAGE-NAME *PACKAGE*)) (PRINC ".")) ;; This process no longer needs to be able to run except for the usual reasons. ;; The delayed-restart processes may now be allowed to run (WHEN CURRENT-PROCESS (SEND CURRENT-PROCESS :REVOKE-RUN-REASON 'LISP-INITIALIZE) (WHEN WARM-BOOTED-PROCESS (FORMAT T "Warm boot while running ~S. Its variable bindings remain in effect;