26 DONT-CARE!-COMPDEC!-PACKAGE
27 FLUSHED!-COMPDEC!-PACKAGE)>
29 <SETG BQ+1 <+ <ASCII !\`> 1>>
31 <SETG OPPS <MAPF ,LIST <FUNCTION (A) (<OBLIST? .A> <REMOVE .A>)>
32 '(FCN STACK TEMP DISPATCH)>>
34 <FLOAD "COMPDEC.MSUBR">
36 <NEWTYPE INS-FIX!-COMFIL!-PACKAGE FIX>
38 <NEWTYPE INS-LIST!-COMFIL!-PACKAGE LIST>
40 <NEWTYPE ACCESS-LIST!-COMFIL!-PACKAGE LIST>
42 <PACKAGE "COMPDEC"> <REMOVE BOOLEAN>
43 <REMOVE ANALYSIS><REMOVE M$$VALU><ENDPACKAGE>
45 <PACKAGE "SYMANA"> <REMOVE ANALYSIS><ENDPACKAGE>
47 <PACKAGE "MIMGEN"><REMOVE M$$VALU><ENDPACKAGE>
49 <COND (<==? <TYPEPRIM FIX> WORD>
50 <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,BQ+1 0>>>)
52 <SETG READ-TABLE <SET READ-TABLE <IVECTOR ,BQ+1 <>>>>)>
54 <MAPF <> <FUNCTION (L) <INSERT <2 .L> <1 .L>>> ,OPPS>
56 <COND (<LOOKUP "TEMP" <ROOT>> <NEWTYPE <LOOKUP "TEMP" <ROOT>> VECTOR>)>
59 <FUNCTION (X) <PACKAGE .X> <ENDPACKAGE>>
60 '( "ISTRUC" "COMSUB" "BITTST" "CBACK" "CONFOR" "CPRINT"
61 "INFCMP" "CASE" "SPCGEN")>
62 <SETG L-LOADER ,CLOSE>