sub9.init 462 B

1234567891011
  1. (FLUID (QUOTE (THROWSIGNAL!* THROWTAG!*)))
  2. (GLOBAL (QUOTE (EMSG!*)))
  3. (PUT (QUOTE CATCH!-ALL) (QUOTE TYPE) (QUOTE MACRO))
  4. (PUT (QUOTE UNWIND!-ALL) (QUOTE TYPE) (QUOTE MACRO))
  5. (PUT (QUOTE UNWIND!-PROTECT) (QUOTE TYPE) (QUOTE MACRO))
  6. (PUT (QUOTE CATCH) (QUOTE TYPE) (QUOTE FEXPR))
  7. (PUT (QUOTE !*CATCH) (QUOTE TYPE) (QUOTE MACRO))
  8. (FLUID (QUOTE (PROGJUMPTABLE!* PROGBODY!*)))
  9. (PUT (QUOTE PROG) (QUOTE TYPE) (QUOTE FEXPR))
  10. (PUT (QUOTE GO) (QUOTE TYPE) (QUOTE FEXPR))