sub5.init 557 B

12345678910111213
  1. (PUT (QUOTE SYMFNCBASE) (QUOTE TYPE) (QUOTE MACRO))
  2. (FLUID (QUOTE (CODEPTR!* CODEFORM!* CODENARG!*)))
  3. (PUT (QUOTE PROGN) (QUOTE TYPE) (QUOTE FEXPR))
  4. (PUT (QUOTE COND) (QUOTE TYPE) (QUOTE FEXPR))
  5. (PUT (QUOTE QUOTE) (QUOTE TYPE) (QUOTE FEXPR))
  6. (PUT (QUOTE SETQ) (QUOTE TYPE) (QUOTE FEXPR))
  7. (PUT (QUOTE DE) (QUOTE TYPE) (QUOTE FEXPR))
  8. (PUT (QUOTE DF) (QUOTE TYPE) (QUOTE FEXPR))
  9. (PUT (QUOTE DN) (QUOTE TYPE) (QUOTE FEXPR))
  10. (PUT (QUOTE DM) (QUOTE TYPE) (QUOTE FEXPR))
  11. (PUT (QUOTE LIST) (QUOTE TYPE) (QUOTE NEXPR))
  12. (PUT (QUOTE WHILE) (QUOTE TYPE) (QUOTE FEXPR))