mim/development/mim/20c/mimoc20.foo

   1 <DEFINE LOSE () <COND (<LOOKUP "CHAN" #OBLIST INITIAL!-> <ERROR>)>>
   2 <USE "LIST-HACKS" "CHANNEL-TYPE">
   3 <LOSE>
   4 <FLOAD "<MIM.20C>FILE-INDEX.MBIN">
   5 <LOSE><FLOAD "<MIM.20C>FILE.MBIN">
   6 <LOSE><FLOAD "<MIM.20C>PART1.MBIN">
   7 <LOSE><FLOAD "<MIM.20C>ACVAR.MBIN">
   8 <LOSE><FLOAD "<MIM.20C>STRMAN.MBIN">
   9 <LOSE><FLOAD "<MIM.20C>OTHGEN.MBIN">
  10 <LOSE><FLOAD "<MIM.20C>JSYS.MBIN">
  11 <LOSE><FLOAD "<MIM.20C>PEEP.MBIN">
  12 <LOSE><FLOAD "<MIM.20C>NEWGC.MBIN">
  13 <LOSE><FLOAD "<MIM.20C>MOVERS.MBIN">
  14 <LOSE><FLOAD "<MIM.BOOT>NBOOT.COMPIL">
  15 <LOSE><FLOAD "<MIM.20C>ASK.MUD">
  16 <LOSE><SETG NO-AC-FUNNYNESS <>>
  17 <SETG DEATH-TRQ <>>
  18 <SETG PEEP-ENABLED T>
  19 <FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
  20           ("ENVIRONMENT" "MIM") ("TARGET-MACHINE" "TOPS20")>
  21 <USE "PURIFY">
  22 <PURIFY-WORLD>