reduce-historical: sub5.init at [2f3b3fd537]

File psl-1983/20-tests/sub5.init artifact 790aa9c39f part of check-in 2f3b3fd537

(PUT (QUOTE SYMFNCBASE) (QUOTE TYPE) (QUOTE MACRO))
(FLUID (QUOTE (CODEPTR!* CODEFORM!* CODENARG!*)))
(PUT (QUOTE PROGN) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE COND) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE QUOTE) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE SETQ) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE DE) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE DF) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE DN) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE DM) (QUOTE TYPE) (QUOTE FEXPR))
(PUT (QUOTE LIST) (QUOTE TYPE) (QUOTE NEXPR))
(PUT (QUOTE WHILE) (QUOTE TYPE) (QUOTE FEXPR))