File psl-1983/3-1/tests/20/sub9.init from the latest check-in

(FLUID (QUOTE (THROWSIGNAL!* THROWTAG!*)))
(GLOBAL (QUOTE (EMSG!*)))
(PUT (QUOTE CATCH!-ALL) (QUOTE TYPE) (QUOTE MACRO))
(PUT (QUOTE UNWIND!-ALL) (QUOTE TYPE) (QUOTE MACRO))
(PUT (QUOTE UNWIND!-PROTECT) (QUOTE TYPE) (QUOTE MACRO))
(PUT (QUOTE CATCH) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE !*CATCH) (QUOTE TYPE) (QUOTE MACRO))
(FLUID (QUOTE (PROGJUMPTABLE!* PROGBODY!*)))
(PUT (QUOTE PROG) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE GO) (QUOTE TYPE) (QUOTE FEXPR))