<mdl.comp>/nhelp.mud.4

   1 <NEWTYPE TOKEN VECTOR>
   2
   3 <PUT SYMBOL DECL '<OR SYMTAB COMMON TEMP>>
   4
   5 <REMOVE MUDREF!-OP!-PACKAGE>
   6
   7 <NEWTYPE COMMON VECTOR '<VECTOR [4 ANY]>>
   8
   9 <NEWTYPE MUDREF!-OP!-PACKAGE WORD>
  10
  11 <SET REASONABLE T>
  12 <SET HELP-COMPIL T>
  13 <NEWTYPE SAVED-STATE
  14          LIST
  15          '<LIST [REST
  16                  <LIST AC
  17                        <OR FALSE <LIST [REST SYMTAB]>>
  18                        [REST <LIST SYMTAB ANY>]>]>>
  19
  20 <NEWTYPE TEMPV LIST>
  21
  22
  23 <OR <GASSIGNED? DISPATCH> <DEFINE DISPATCH ("ARGS" FOO) []>>
  24 <SET GLUE!- T>
  25
  26 <SETG IF!- ,AND>
  27 <SETG TEMPLATE-NTH T>
  28 <SETG TEMPLATE-PUT T>
  29 <SETG IF-NOT!- ,OR>
  30 <BLOCK (!.OBLIST <GET PACKAGE OBLIST>)>
  31 <FLOAD "CMP:BOPHAC">
  32 <FLOAD "CMP:MUDHAK">
  33 <BEGIN-HACK "COMPIL">
  34 <BEGIN-MHACK>
  35 <FLOAD "CMP:NN">
  36 \f