mim/mim/mimlib/gc-dump-r.msub

   1 <PACKAGE "GC-DUMP-R">
   2 <ENTRY GC-READ>
   3 <INCLUDE-WHEN <DEBUGGING? "GC-DUMP-R"> "GC-DUMP-DEFS" "STORAGE-DEFS">
   4
   5 <SETG \1agc-read-IMSUBR #IMSUBR [|AAAEGBCOH\AEACDAAAAAAKDAAAAAAKDAAAAAAOCCE_CCE_BMHMAAAQBMHMAAAUCCE_CCE_CCE_CCE_CCE_CCE_BMH]AAAAAHGGCCE_BMH]AAAAAACACCE_BMH]AAAAAHEHCCE_CCE_CCE_BMH[H`HUCCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAACDGAOBADMAAA]COFYACFSBLCIAAAEBKEACOFYAAFUBMGVBMHNAAAEBMHMAABABMHMAABEBADMAABMBADIAAAEBAB]AAAAAAACCOFYAAF[BIAABLCIAAAUBLCAAAAQBKBMAABQBCDMAABUCOFYACGQDAAAAEDECOFYAAFUBMGVBMHNAAAEBMHMAABYBMHMAAB]BADMAACEBADIAAAEBAB[H`GCCOFYAAF[FQD]ABCBDHAAAEBABLCIAAA]BLCAAAAYBOAIDNDMCOFYAAFUBMGVBMHNAAAEBMHMAABYBMHMAAB]BADMAACEBADIAAAEBAB[H`EMCOFYAAF[BLCIAAAUBLCAAAAQFQD]ABCBDHB]BOAIDNBYCOFYAAFUBMGVBMHNAAAEBMHMAABYBMHMAAB]BADMAACEBADIAAAEBAB[H`CYCOFYAAF[BLCIAABEBLCAAABAFQD]ABCBDHAIFRH]AAAAAAADDMBCCOFYAAFUBMHMAACIBMHMAACMBMHMAACQBMHMAACUDQACBADMAAC]COFYAAF[COHYAAFOBLCIAABEBLCAAABAAMFNAAAAAAACAAAUDNAUCVFNAAAUBIB[H_E_BKBNAAAUCOFYACE[COFYABHYBIB[H_EOBKBNAABECOFYACE[COFYAAFUBMGVBMHNAAAEBMHMAADABMHMAADEBMGABMGIBLCIAABMBLCAAABIBADMAADMBADIAAAEBAB[H`D_COFYAAF[BLCIAACUBLCAAACQFRHNAABEDGAAACHUFQDNAABCDGAAACHMBADNAABEERHNAABUBOAIBCDNAABMCDHRD]AABCAICICBCEEBGSFNAABIBAB]AAAAABABBACJBOAIBCDIH`H]E_EJBMBNAABMBLCIAABEBLCAAABABAB[H_AUBKBNAAA]COFYACFGBLCIAAB]BLCAAABYBLCGAACEBLD[H^HUAACABLCHAABUFQF]AAAAH`H`DPASBAF[H^HCCCFIAAAEGQF]H`H`AAAACQEIDAHGBOBNAAA]HDEPCEEHBAB[H^GQBKBNAAA]COFYACFGBLCIAACMBLCAAACIBLCHAACUBLD[H^FQAACQFQF[H`GADPAQBAF[H^FECCFIAAAEGQF[H`GCCQEIDAHKBOBNAAA]HDEPCEEHG_FNAACUBAB[H^EAD[ANCOFYACFGBLCIAAA]BLCAAAAYBLCHAACUBLD[H^DSAACQFQF[H`ECDPAKCCEQGQF[H`EKCYEIDAHQB\D]AKCGAAA[BOBNAABMBADNAAA]BBCHAABUBCDMAADUBCHNAABYBCFNAAB]BCDMAAD]BCHNAACIBCFNAACMCOFYAAGGDAAAAAAOBLCAAACYBLCIAAC]DAAAAAGYCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBACNCKFIH`H]DLAEBADIH`H]BMH]AAASADBCBMH]AAAMACGCBMGIBEDMAAEEBMGKBMHMAAEIBMHMAAEMBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAEBKF[H`GICOFYABA[BMH]AAAAAICCBMH]AAAAADG[BMGNBMHNH`H]DMAEBNCNH`H]BADNAAAEBCBIAABABCDIAABEBMGBBMGJBCBIAABQBCDIAABUBMGBBMGJBCBIAACABCDIAACEBMGBBMGJBCBIAAAYBCDIAAA]BMGBBMGJCLHOH`HADQAEDAAAABC]BQD]AAAABAB]AAAAABCBCOHYAAFOAMDNABCBAAC[DHBSCOFYAAFUBMHMAAEQBMHMAAEUBMHNAACYBMHNAAC]BMHMAACQBMHMAACUDQADBADMAAC]COFYAAF[BLCIAAA]BLCAAAAYDAAAAAE[BMH[H`DCBMH]AAAAAEDSBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABABMHNAABEBMHNAABQBMHNAABUBMHNAACABMHNAACEBMHNAABYBMHNAAB]BMHNAACIBMHNAACMBMHNAAAYBMHNAAA]CLHOH`GQDQAGDAAAAKC]BMH[H`ASBMH]AAAAAEFKBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABABMHNAABEBMHNAACABMHNAACEBMHNAAAYBMHNAAA]CLHOH`HIDQADDAAAANDQBADNAABEBCAYBCCQBLCJAAA]BLCBAAAYAGFNH`H`H`HNAACUBOBNAACUHFEHG^GHBADNAAA]BABNAAAYCOHYAAFOCOFYAAFUBMHMAACIBMHMAACMBMHMAACQBMHMAACUDQACBADMAAC]COFYAAF[COHYAAFOCOFYAAFUBMHNAAAIBMHNAAAMDQABBADMAAE]COFYAAF[COHYAAFOCOFYAAFUBMHMAAFABMHMAAFEBMHMAACQBMHMAACUDQACBADMAAC]COFYAAF[COHYAAFOCCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYAMDNADCCAAACDGBQBMH[H_BMBMH]AAAAAFEGBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAABDUDABWAMDNADGCAAACDGBOBMH[H^HUBMH]AAAAAFF_BMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAAIAQBAAVBADNAAAEBCDNAAA]COFYABHMFQD]AACADHBKFQD]ALAEDHAGFQD]ABGFDGAEBOAIDAACBOAIBLCHAABEBLD[H[CIAABABLCIAAAEBKEAF_FNAAAUDMAAH`CKBADMAAFMBABMAAFICOHYAAFOCKFZA`H`H`HIDHAECOFYABBYCCEHB_AVG_FNAAAECWEHACEHH`H`H`H]BACHCKBIAAACDNAMBAD]AAAAAAAABAB[HZH_DAAGBADIAAAEBAAVFQD]AACADGAAAAFQCKCVDOBQBCDMAAFUBCAZBCCRCCEHB_AVG_FNAAAECWEHACEHH`H`H`H]BACHAAEQAAAAEAAABBCJAAAEBADMAAFUBAAYBACQCOHYAAFOCOFYAAFUBMGVBMHNAAAEBCDMAAF]BMGZBMGRDQACBADMAAGECOFYAAF[FQD]ABCBDHBQBCBIAAAKBSB]ABGFBCDIAAAMCCEHB_AVG_FNAAAECWEHACEHH`H`H`H]BACHAAEQAAAAEAAABBCJAAAEBACJBAABCOHYAAFOCCEHB_AVG_FNAAAECWEHACEHH`H`H`H]BCCHAAERAAAAEAAABDDNAAAEAAAEBADNAAAEBAAVCOHYAAFOCOHYAAFOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH]AAAKADCCCCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBAAVBADNAAAECOFYACAWFQD]AACADGAAAFEQBLCIAAAUBLCAAAAQBAAVBADNAAAEBIAICOFYACAQCKFIAAAQDGAKBCB[H]EOBSD]AAAADAAKBCB]AAAKADECBCDIAAAQBLCJAAAUBLCBAAAQBOAJDHAAAAE]BEDIAAAQBOBNAAAMBMAKF]F]H`H`H`H`DGA_BCDMAAGMB\DNAAASAAA[BLCJAAA]BAB[H`DWBLCHAABEBLD[HYEWAABADACGBMH[H\HCBMH]AAAAAHG_BMGNBMHNH`H]DMAEBNCNH`H]G]EHB]H]AAAKB]H]ADCCBMGGBMH[HYDMBMGHBLCKAAAUBLD[H`EMAAAQCLHOH`HQDQACDAAAH`A]BCAABQBNAAASBLCIAAA]BLCAAAAYBADNAAA]BCDNAAAEFQD]ABCBDGAGCCFJAAAQDAAEBDCIAAAQBLCIAAAUBLCAAAAQBADNAAAEBCBIAAAKBSB]ABGFBCDIAAAMBMH[H\DIBMH]AAAAAICWBMGNBMHNH`H]DMAEBNCNH`H]BOABCCCHCICHGTHNAAAMB]GHB]H]ABGFBMGJBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAH^FUBCDNAAAEBDCIAAAMCICABTCAAAAKCICAB_BJAAAICIGHDNAOBLCHAABMBLD]AAAAAECAAABIDAAOBUD]AAAABLCKAABMBLD[H\C[AABICKERDGAKBEB[H\CQBUD]AAAADAAIBEB]AAAKADGCBECRBGDNAABMBGBNAABIBLCLAAA]BLCDAAAYFWD]ABCBDHBIBCDMAAGUBCAZBCCRBOALHMEPFTGHDNAQBSD]AAAABLCJAAA]BLD[H\AQAAAYDAAIBLCKAAA]BLCCAAAYBLCKAAB]BLCCAABYBLCIAABEBLCAAABAAMDNABCBAAA[DHCABMH[H[EOBMH]AAAAAJBMBMGNBMHNH`H]DMAEBNCNH`H]GVHNAAAMB]H]AAAKB]H]ADCCBMGKBMHNAAAIBMHNAAAMCLHOH`HQDQACDAAAH^GOBCDNAAAECCERBLCIAABUAMDNABCBAAASDHAAACGQCOFYAAFUBMHNAABABMHNAABEBMHNAAAQBMHNAAAUDQACBADMAAGECOFYAAF[FQD]ABCBDHAAABDYBLCIAAB]BLCAAABYAMDNABCBAAA[DHAAABCOB_BIAAAICIGHDNAMBLCHAAAUBLD[H_HOAAAQDAAOBSD]AAAABLCJAAAUBLD[H[CKAAAQAMDNABCBAAASDHAAAAFCCOFYAAFUBMGABMGIDQABBADMAAG]COFYAAF[BLCIAACEBLCAAACAFRHNAABUDGC[FQD]ADCCDGCUBADNAABMBABNAABIBCDNAAAUBCBNAAAQBEDMAADUBEA[BECSBGDMAAD]BGA\BGCTBEEABFCIAAAEGUF[HYDGCQEKBUB]ACCHBADMAADUBAGCBAEKBGEBBHCJAAAEGWF[HYCOCQELBWB]ACCHBADMAAD]BAGDBAELDAAAAAFICOFYAAFUBMHNAABYBMHNAAB]BADMAAEECOFYACFSBMGABMGIDQACBADMAAHECOFYAAF[DAAAAAECBCDNAABMBCBNAABIBMH[HZBYBMH]AAAAAKEABMGNBMHNH`H]DMAEBNCNH`H]BMGABMGIBMHNAABQBMHNAABUBLCJAABEBLCBAABACLHOH`HQDQACDAAAACCKBCDMAADUBCAZBCCRBEDMAAD]BEA[BECSBCFNAABABDDNAABEAAAEGSF[HXF]CQEJBSB]ACCHBGDMAADUBGGBBGEJBEEABFCIAAAEGUF[HXFECQEKBUB]ACCHBADMAAD]BAGCBAEKBAAVBADNAAAEBIBNAAB]COFYACAQBACEBABNAABYCOHYAAFOBCDNAAAEAMDNABCBAAASDGAGCCFJAAAQDAAGBDDNAAAUAAAQCOFYAAFUB]HJAAAKB]H]ABGFBMHJAAAMBEDMAAHMBEA[BECSBMH[HVBECCC_BMGCCVEOBLCIAAB]BLCAAABYDQACBADMAAHUCOFYAAF[BCDMAAHMBCAZBCCRBEDREOH]BLCIAABEBLCAAABABACKBIAVBKBNAAAECOFYAAGABCDMAAHMBCAZBCCRBEDNAABEBDEIFOH]AMDNABCBAAA[DHAAAAEQBADNAABMBABNAABIBMH[HYA[BMH]AAAAALFABMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAABQBMHNAABUBLCIAABEBLCAAABACLHOH`HQDQACDAAAABBKBCDMAADUBCAZBCCRBEDMAAD]BEA[BECSBCFNAABABDDNAABEAAAEGSF[HWE]CQEJBSB]ACCHBGDMAADUBGGBBGEJBEEABFCIAAAEGUF[HWEECQEKBUB]ACCHBADMAAD]BAGCBAEKBADNAAAEBAB[H\BACOHYAAFOAMDNABCBAABKDHAKBADNAAAEBRD]H`H`AAAIBADNAAAEBAB[H\ACCOHYAAFOAMDNABCBAAA[DHAAAAEQBADNAABMBABNAABIBMH[HXDEBMH]AAAAAMCWBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMHNAAAEBMHNAABQBMHNAABUBLCIAABEBLCAAABACLHOH`HQDQACDAAAAADUBCDMAADUBCAZBCCRBEDMAAD]BEA[BECSBCFNAABABDDNAABEAAAEGSF[HVHGCQEJBSB]ACCHBGDMAADUBGGBBGEJBEEABFCIAAAEGUF[HVGOCQEKBUB]ACCHBADMAAD]BAGCBAEKBADNAAAEBAB[H[DKCOHYAAFOAMDNABCBAABKDHAKBADNAAAEBRD]H`H`AAAIBADNAAAEBAB[H[CMCOHYAAFOCOHYAAFOCCE_CCE_BMH[H\FGCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAH]BAAYBACQBCDNAAAMB_BJAAAICIGHDNAMBLCHAAAUBLD[H\DYAAAQDAAOBSD]AAAABLCJAAAUBLD[HWGUAAAQBOBNAAAUHMEPCSEHBCBQD_HYBCDQD_H]BOBJAABMACEHAAAAAAAHBPAHDQABCOFYABB_BMAIHMEOBKAGHNEOEOEGBADMABAEBAHMAAFIBAFMAAFMCSEFBADMAAH]BAAYBACQBMGVBMHNAAAEBMHJAAAIBMHJAAAMBMH[HWD_CCE_BMH[HWDYCCE_BMH[HWDSCCE_BMHNAAAYBMGHBMH[HWDGCCE_BIB]AAAAACCHBLCFAAAUBLD[HSFIAAAQD[AHBLCIAABEBLCAAABABLCHAAA]COFYAAH]BQB]AGAHBCDNAAAUBEDNAABEBFEAE_HYBFEIE_H]BADNAAAEBRDNAAA_AAAIBADNAAA]BAB[H[FQCOHYAAFOAAAACCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBAAVBADNAAAECOFYACAWFQD]AACADGAAAAGKBADNAAAEBCDIAAAIBOBNAAAMBMAJF]F[HZDYDGA_BEDMAAGMB\DNAAASAAA[BLCKAAA]BAB[HYHQBLCGAABEBLD[HSAQAABADACGBMH[HVC]BMH]AAAAAODEBMGNBMHNH`H]DMAEBNCNH`H]G]EHB]H]AAAKB]H]ADCCBMGGBMH[HRHGBMGHBLCJAAAUBLD[HYFUAAAQCLHOH`HQDQACDAAAHYEWBCAABQBNAAASBLCIAAA]BADNAAAEBBDNAAA]AAAIBCDNAAA]CKERDGAKBEB[HVC_BUD]AAAADAAGBEB[H[AOBECRBOAKDHAYBLCAAAAYBAAVBIAKCOFYACAQBADMAAFMBABMAAFICOHYAAFOBLCAAAAYBAAVBIAICOFYACAQBCDNAAA]BCEIBADMAAFMBABMAAFICOHYAAFOAAAACCE_CCE_BMH[H_FOCCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYAMDNACCHAAACDGAAAAEGBADNAAAEBAAVBLCIAABUBLCAAABQCKFZA`H`H`HIDHAECOFYABBYCKDNAABQDPAAABACBADNAABUBABNAABQBMH[HUDCBMH]AAAAAPDIBMGNBMHNH`H]DMAEBNCNH`H]BMGQBMHIAAAEBMHNAAAIBMHNAAAMBMHNAAAYBMHNAAA]BMHNAABABMHNAABEBLCIAAB]BLCAAABYCLHOH`HADQAEDAAAAAH_BCDNAAB]BCEABDCIAAAECTDNAABQCQFNAABUDAEKAMDNABABAAACDGAAAAEWBMH[HTH_BMH]AAAAAPGIBMGNBMHNH`H]DMAEBNCNH`H]BADNAAAEBMGQBMHIAAAEBMHNAAAIBMHNAAAMBMHNAAAYBMHNAAA]BMHNAABABMHNAABECLHOH`HADQAEDAAAAAE_BCDNAAAEBCEABDCIAAAEBMH[HTFSBMH]AAAAAQASBMGNBMHNH`H]DMAEBNCNH`H]BMH[HSBABMHJH`H]BMHNAAAIBMHNAAAMBMHNAAAYBMHNAAA]BMHNAABABMHNAABECLHOH`HADQAEDAAAAACUBCDNAAAEBDCIH`H]BAAVBADNAAAEBCDNAABMCOFYABHMFQD]AACADHBKFQD]ALAEDHAGFQD]ABGFDGAEBOAIDAACBOAIBLCHAABUBLD[HPHMAABQBLCIAAAEBKEAF_FNAAAUDMAAH_EMBADMAAFMBABMAAFICOHYAAFOCCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCCEHB_BNAAACBMAHHMEPBADMAAGUBAAYBACQF_EIDPCYBADNAAAUBABNAAAQBQB]ACCHFQF[HRFMDPAUF]FIAAAEDHAWGQF[HRFQCQEIFQF[HRE[DPACDAHMBQD]AAAABAB[HTBGBSDNAAAQBOAACCCHCICHETGHCSEJBADNAAA]BOBQE_H]BQCVBKBNAAAEBSAICICBBSAHBCCFBLCJAAAEBKEBCOFYAAFUBMGVBMHNAAAEDQABBADMABAMCOFYAAF[FRHMABAUDHAAABAMBLCIAABEBLCAAABAFRHMABA]DGASBAAVBADNAAAECOFYABGIDAAAAAAGDAAAAAHMBADNAABEFRHMABBEDGDGBCDNAAAEBCAVBOBNAAAMBMAJF]F[HWCEDGAQBADMAAGMB\CBAAACBAB[HVGCCOHYAAFOBMH[HSBWBMH]AAAAAREIBMGNBMHNH`H]DMAEBNCNH`H]G]EHB]H]AAAKB]H]ADCCBMGGBMH[HOGABMGHBLCJAABMBLCBAABICLHOH`HQDQACDAAAHVDSBCAABQBNAABKCOHYAAFOCCEHB_BNAAACBSCVBMBNAAAEG]FNAAAMBUAJCICCBUAHBECGFRHMABBMDGB]BMH[HRGUBMH]AAAAARHCBMGNBMHNH`H]DMAEBNCNH`H]BMGCBMGKBMHNAAAIBMHNAAAMBLCKAAAEBKECCLHOH`HQDQACDAAAHUBIBCAABQBNAAACCOHYAAFOBLCKAAAEBKECFRHMABBUDGAUBAACBACKCOFYACAWBCAABQBNAAACBLCIAAAEBKEABADNAAAEBAAVCOHYAAFOAAAABMH[HUHQCCE_BMH[HOASCCE_CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMGVBMHNAAAEDQABBADMABAMCOFYAAF[BLCIAAA]CKFZA`H`H`HIDHAECOFYABBYBADNAAA]FRHMABBMDGA[CCEHB_AVG_FNAAAECWEHACEHH`H`H`H]BCCHACERH`H`D`H`DABGFRHMABBEDGAOBAAVBADNAAAEDYAACOFYACAQDAASFRHMABBUDGAMBAAVBADNAAAEDYAACOFYACAQBAAVBADNAAAEBCDNAAAUCOFYABHMCOFYAAFUBMGABMGIBLCIAAAEBKEADQABBADMABAMCOFYAAF[AMDNAACAAAACDHBGFRHMABB]DHAGFRHMABBMDGAGBOBNAAAEDAAEBOBNAAAEBLCHAABEBLCIAAA]F_FNAAAMDMAAH`CYBADMAAFMBABMAAFICOHYAAFOAAAAAAAA| gc-read-IMSUBR <ERROR END-OF-FILE!-ERRORS
   6 GC-READ> INCHAN GET-BYTE-SIZE %<CHANNEL-OPERATION DISK GET-BYTE-SIZE> "BINARY"
   7 READ-BYTE %<CHANNEL-OPERATION DISK READ-BYTE> BAD-GC-READ-FILE!-ERRORS GC-READ
   8 ERROR READ-BUFFER %<CHANNEL-OPERATION DISK READ-BUFFER> %<GBIND OLD-CODES T>
   9 %<GBIND NEW-CODES T>  READ-FRAME FRAME TYPE-ALREADY-EXISTS!-ERRORS EVAL
  10 CHANNEL-HAS-WRONG-BYTE-SIZE!-ERRORS T %<GBIND EMPTY-STRING T>  %<GBIND
  11 STRING-OBLIST T>  LOOKUP ROOT %<GBIND OLD-TYPES T>  TYPEPRIM RETURN %<GBIND
  12 ATOM-TABLE T>  HASH-NAME %<GBIND M$$TYPE-INFO!-INTERNAL T>  %<GBIND M$$NEWTYPE?
  13  T>  PRIMTYPE FIX LIST ATOM STRING GBIND BYTES ]>
  14 <SETG \1aGC-READ #MSUBR [gc-read-IMSUBR GC-READ ("VALUE" ANY "OPTIONAL" <CHANNEL
  15 'DISK> ANY) 0]>
  16 <SETG \1aFIXUP-TOUGHIES #MSUBR [gc-read-IMSUBR FIXUP-TOUGHIES ("VALUE" ATOM ANY
  17 FIX FIX GC-PARAMS) 1332]>
  18 <SETG STRING-OBLIST <STRINGS> OBLIST>
  19 <GDECL (EMPTY-STRING) STRING>
  20 <SETG EMPTY-STRING "">
  21 <SETG \1aFIXUP-STRING #MSUBR [gc-read-IMSUBR FIXUP-STRING ("VALUE" STRING STRING
  22 FIX) 1544]>
  23 <SETG \1aFIXUP-ATOM #MSUBR [gc-read-IMSUBR FIXUP-ATOM ("VALUE" ATOM ATOM FIX)
  24 1784]>
  25 <SETG \1aCREATE-NEWTYPE #MSUBR [gc-read-IMSUBR CREATE-NEWTYPE ("VALUE" TYPE-C
  26 ATOM ATOM) 3272]>
  27 <SETG \1aFIXUP-GBIND #MSUBR [gc-read-IMSUBR FIXUP-GBIND ("VALUE" ATOM GBIND FIX)
  28  3532]>
  29 <SETG \1aFIXUP-EASIES #MSUBR [gc-read-IMSUBR FIXUP-EASIES ("VALUE" ATOM ANY FIX
  30 FIX <<PRIMTYPE VECTOR> [REST TYPE-C]> <<PRIMTYPE VECTOR> [REST TYPE-C]>
  31 GC-PARAMS) 3788]>
  32 <SETG \1aCORRECT-POINTER #MSUBR [gc-read-IMSUBR CORRECT-POINTER ("VALUE" ANY ANY
  33 FIX <<PRIMTYPE VECTOR> [REST TYPE-C]> <<PRIMTYPE VECTOR> [REST TYPE-C]>) 4196]>
  34 <SETG \1aSWEEPING-UNMARK #MSUBR [gc-read-IMSUBR SWEEPING-UNMARK ("VALUE" ATOM
  35 ANY FIX GC-PARAMS) 4632]>
  36 <ENDPACKAGE>