<mdl.comp>/etmp.mud.1

   1
   2 <PACKAGE "CHKDCL">
   3
   4 <ENTRY TYPE-AND TYPE-OK? TASTEFUL-DECL GET-ELE-TYPE STRUCTYP TYPE-ATOM-OK? ISTYPE-GOOD? TYPE-MERGE DEFERN TOP-TYPE ISTYPE? TYPESAME ANY-PAT STRUC GETBSYZ GEN-DECL REST-DECL MINL GET-RANGE>
   5
   6 <USE "COMPDEC">
   7
   8 <SETG DECL-RESTED 1>
   9
  10 <SETG DECL-ELEMENT 2>
  11
  12 <SETG DECL-ITEM-COUNT 3>
  13
  14 <SETG DECL-IN-REST 4>
  15
  16 <SETG DECL-IN-COUNT-VEC 5>
  17
  18 <SETG DECL-REST-VEC 6>
  19
  20 <MANIFEST DECL-RESTED DECL-ELEMENT DECL-ITEM-COUNT DECL-IN-REST DECL-IN-COUNT-VEC DECL-REST-VEC>
  21
  22 <SETG HIGHBOUND 2>
  23
  24 <SETG LOWBOUND 1>
  25
  26 <MANIFEST HIGHBOUND LOWBOUND>
  27
  28 <SETG ALLWORDS '<PRIMTYPE WORD>>
  29
  30 <SETG TASTEFUL-DECL '