mim/development/mim/20c/mimoc20.iload

   1
   2 <USE "LIST-HACKS" "CHANNEL-TYPE">
   3 <FLOAD "<MIM.20C>FILE-INDEX.MBIN">
   4 <FLOAD "<MIM.20C>FILE.MUD">
   5 <FLOAD "<MIM.20C>PART1.MUD">
   6 <FLOAD "<MIM.20C>ACVAR.MUD">
   7 <FLOAD "<MIM.20C>STRMAN.MUD">
   8 <FLOAD "<MIM.20C>OTHGEN.MUD">
   9 <FLOAD "<MIM.20C>JSYS.MBIN">
  10 <FLOAD "<MIM.20C>PEEP.MBIN">
  11 <FLOAD "<MIM.20C>NEWGC.MBIN">
  12 <FLOAD "<MIM.20C>MOVERS.MBIN">
  13 <FLOAD "<MIM.BOOT>NBOOT.COMPIL">
  14 <FLOAD "<MIM.20C>ASK.MUD">
  15 <SETG NO-AC-FUNNYNESS <>>
  16 <SETG DEATH-TRQ <>>
  17 <SETG PEEP-ENABLED T>
  18 <L-FLOAD "ENV">
  19 <FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
  20           ("ENVIRONMENT" "MIM") ("TARGET-MACHINE" "TOPS20")>
  21 <USE "PURIFY">
  22 <DEFINE DO-PURIFY ("AUX" (AT ,ATOM-TABLE) (L ()))
  23         #DECL ((AT) VECTOR (L) LIST)
  24         <MAPF <>
  25               <FUNCTION (X)
  26                    #DECL ((X) LIST)
  27                    <MAPF <>
  28                          <FUNCTION (A)
  29                               <COND (<AND <TYPE? .A ATOM>
  30                                           <GASSIGNED? .A>
  31                                           <TYPE? <SET A ,.A> MSUBR IMSUBR>>
  32                                      <SET L (.A !.L)>)>>
  33                          .X>>
  34               .AT>
  35         <LISTEN>
  36         <PURIFY !.L>
  37         <MAPF <> ,REMOVE '(DO-PURIFY)>
  38         T>
  39 <DO-PURIFY>