mim/mim/mimlib/backquote.msub

   1 <PACKAGE "BACKQUOTE">
   2 <NEWTYPE TILDE LIST '<<PRIMTYPE LIST> ANY>>
   3
   4 <SETG \1atilde-read-macro-IMSUBR #IMSUBR [|AAACB]CKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMGVBMHNAAAEDQABBADMAAAUCOFYAAF[BIAABKAIBQD]AAAACOFYAAGABABMAAA]COHYAAFOCCE_CCE_BMH]AAAAACCHCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAABECOFYACFMCKCEDHAKBADMAABECOFYACFSDABIBADMAABEBCCQBOAJDHAKBCARBCDJAAAECKCBDGAMBQD]AAAABAB]AAAAABCBDAAIBADMAABMBAAYBACQBLCIAAAUBLCAAAAQBAB[H`FCBKB]AAAAAAEACOFYACFGBLCIAAA]BLCAAAAYFQF]AAAAH`H`DPASBAF[H`GKCCFIAAAEGQF]H`H`AAAACQEIDAHGAMDNABCBAAASDHAWBQDNAAAQBIAIHDEEBADNAAAUBCDNAAA]D[AACOFYACGEBMH[H`FWBMH]AAAAAAD_BMH[H`FMBMH]AAAAAACBBMH[H`EGCCE_BADMAABUBMGYBMGQBMH[H`DYCCE_BIB[H`BMD[AFCOFYAAH]BCDNAAA]BDCAADHQBDCIADHUBADZA`H`H`HYBMH]AAASADBCBMHNAAAYBMGJBEDMAABEBMGKBMHMAABYBMHMAAB]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBMH]AAAAAICCBMH]AAAAABFGBMGNBMHNH`H]DMAEBNCNH`H]COFYAAFUBMGVBMHNAAAEDQABBLCIAABEBLD]AAAQADACAABABADMAAAUCOFYAAF[BMGABMGICLHOH`HYDQABDAAAAACYFQDMAACGDGAQBCAQBCDIAAAEBLCJAAAUBLCBAAAQDABCCOFYAAFUBMHMAACIBMHMAACMBMGABMGIDQACBADMAACUCOFYAAF[BLCIAAAUBLCAAAAQBADNAABECOFYAAG_G]H]H`G]G]H]H\HYBADNAAAUBABNAAAQCOHYAAFOAAAACCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCCEABQBNAAACFQDMAACGDHBSBAAVBADNAAAECOFYABGUDAAAAAAUBCDMAAC]BLD]AAAKADCCAAAIBLCJAAAMDAAOBSD]AAAABLD[H_BSAAAIBLCJAAAMBOAJDHAKBADNAAAEBAAVCOHYAAFOCOFYAAFUBMGABMGIDQABBADMAADECOFYAAF[FRHMAADMDGAAACBWBQD]AAAABCDNAAAEBLCJAAAUBLD]AAAAABABAAAQBLCIAAAMBLD[H^HIAAAICKFZA`H`H`HIDHAECOFYABBYCKFNAAAUDHDCBADNAAAUBABNAAAQBMH[H_FKBMH]AAAAACHEBMGNBMHNH`H]DMAEBNCNH`H]BMGQBMHIAAAEBLCIAAA]BLCAAAAYCLHOH`HYDQABDAAAH`A[BCDNAAA]BCEABDCIAAAEFQDMAACGDGAIBLCIAAAMBLCAAAAIBADNAAAUBADIH`H]BLCIAAAUBLD[H`ECAAAQDAEMAMDNABCBAAAKDHAAABEQBADNAAAEBLCIAAAUBLD[H`DIAAAQCKFZA`H`H`HIDHAECOFYABBYCKFNAAAUDHAAABAWBADNAAAUBABNAAAQBCAQBCDIAAAEFSDMAACGDGAAAAE[BEARBEDJAAAEBAECBBCKAAAEFTHNAAAMDGAAAAGWCOFYAAFUBMHMAADQBMHMAADUBLCIAABEBLCAAABABLCIAAA]BLCAAAAYDQABBADMAAD]COFYAAF[FQD]ABCBDHAED_AADAACD_ACBADNAABEBMAIDHAAAAE[CTEHCKEHDNAGBADIH`H]DAHOBADNAAA]BCDIH`H]BQD]AAAABIB[H_GQBKAJCOFYAAGABIBMAACIBKBMAACMCOFYAAGABIB]AAAAAEGBBKAIBQD]AAAACOFYAAGABCDNAAA]BDCIH`H]DADGFSD]ADCCDHCKFSD]AACADHCEFSD]AAGADHB_FSD]ABGFDHBYFSD]ALAEDHBSFSD]AHGGDHBMCOFYAAFUBMHMAACIBMHMAACMBMGBBMGJBLCIAAA]BLCAAAAYDQACBADMAACUCOFYAAF[BCDNAAA]BCEABDCIAAAEBADNAAAUBADIH`H]BLCIAAAUBLD[H_CEAAAQDAAAH_G[AMDNABABAAACDHB]COFYAAFUBMHMAAEABMHMAAEEBMH[H_BGBMHNAAAECOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BMGABMGIDQADBADMAACUCOFYAAF[BLCIAAAEBKEABADNAAAMBAEVBBDNAAAEAAAEBABNAAAICOHYAAFOBADNAAAEBAAVCOHYAAFOFRHMAAEUDGAAABFWBQD]AAAABCDNAAAEBAAVBQB]ACCHBLCJAAAUBLCAAAAQBLCIAAAMBLD[H\FKAAAICKFZA`H`H`HIDHAECOFYABBYCKDNAAAQDPCYBADNAAAUBABNAAAQBMH[H]DMBMH]AAAAAFBCBMGNBMHNH`H]DMAEBNCNH`H]BMGQBMHIAAAEBLCIAAA]BLCAAAAYCLHOH`HYDQABDAAAH]G]BCDNAAA]BCEABDCIAAAEFQDMAACGDGAIBLCIAAAMBLCAAAAICTDNAAAQCQFNAAAUDAEWAMDNABCBAAAKDHAAABAYBADNAAAEBAAVBQB]ACCHBLCIAAAUBLCAAAAQCKFZA`H`H`HIDHAECOFYABBYCKDNAAAQDPAAAAEWBADNAAAUBABNAAAQBCAQBCDIAAAEFSDMAACGDGAYBEARBEDJAAAEBLCKAABMBLCCAABIBLCIAAA]BLCAAAAYDACOFSD]ADCCDHCWFSD]AACADHCQFSD]AAGADHCKFSD]ABGFDHCEFSD]ALAEDHB_FSD]AHGGDHBYCOFYAAFUBMHMAACIBMHMAACMBMGBBMGJBLCIAAA]BLCAAAAYDQACBADMAACUCOFYAAF[BLCIAABMBLCAAABIBADNAAA]BAFNAABIBBDNAABMAAAECTDNAAAQCQFNAAAUDAAAH`C[AMDNACCHAAACDHCACOFYAAFUBMHMAAEABMHMAAEEBMGVB^D]ACCHH`H_BMHNAAAECOFYAAFUBMGVBMHNAAAEDQABBADMAAEMCOFYAAF[BMGABMGIDQADBADMAACUCOFYAAF[BLCIAAAEBKEABADNAAAMBAEVBBDNAAAEAAAEBABNAAAICOHYAAFOBADNAAAEBAAVCOHYAAFOBADNAAAEBAAVCOHYAAFOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAABEBCCQBOAJDHAAAAFGBCARBCDJAAAECKCBDHAAAAE[BADMAABMBAAYBACQFQD]ABCBDHDCBOAACCCHCICHBLCIAAAEBKEAF_F[HZGUDMAAAAFABIB[HZDKBKB[HZGICOFYACE[BLCIAAAMBLCAAAAIFQF[HZGKDPAQBAF[HZEWCCFIAAAEGQF[HZGMCQEIDAHKBQCVBIAIHDEEBADNAAAEBCDNAAAMD[AACOFYACGEBADNAAAMBABNAAAIBLCIAAAEBKEADACQBIB[HZA]BKB[HZD[COFYACE[BLCIAAAEBKEAFQF[HZD_DPBYBAF[HZCKCCFIAAAEGQF[HZEACQEIDAHKBIB[HYHUBKB[HZCSCOFYACE[BLCIAAAEBKEAFQF[HZCWDPAQBAF[HZBCCCFIAAAEGQF[HZCYCQEIDAHKBMH[HZBOBMH]AAAAAADABMH[HZBEBMH[HZDYBMH[HZAACCE_BADMAAE]BMGYBMGQBMH[HYHSCCE_BIB[HYFGD[AFCOFYAAH]BCDNAAAEBDCAADAABDCIADAEBADMAABMBAGVBAEJBADMAABECKFIAAAEDGAKBEB[HYGEBUD]AAAADAAIBEB[HZGEBEDIAAAEBLCKAAAUBLCCAAAQCKFZA`H`H`HIDHAECOFYABBYAMDNABCBAAASDHAAAAHWBADNAAAUBAAQBADIAAAECKCADHAGFQD]ABCBDGAQBADNAAAUBAEVBBDNAAAEAAAEDAAAAAFKBOAACCCHCICHF_F[HYEGDMCQBIB[HYA_BKB[HYD]BLCIAAA]BLCAAAAYCOFYACE[BLCIAAAMBLCAAAAIFQF[HYDWDPAQBAF[HYCCCCFIAAAEGQF[HYDYCQEIDAHKBQDNAAAYBIAIHDEEBADNAAA]BCDNAAAMD[AACOFYACGEBADNAAAMBABNAAAIBCDNAAAUBCEABDCIAAAEBMH[HYBGBMH[H_HYBMH[HYA_BMH[HYDSBMH[HXH[CCE_BEDMAAE]BMG[BMGSBMH[HXHMCCE_BIB[HXFAD[AFBLCIAAA]BLCAAAAYCOFYAAH]BCDNAAA]BDCAADAABDCIADAEBADNAAAUCKFIAAAYDGAKBCB[HXF_BSD]AAAADAAIBCB[HYF_BCDIAAAYBLCJAAAUBLCBAAAQDAAAH_HYBADMAAC]BABMAACYCOHYAAFOAAAAAAAA| tilde-read-macro-IMSUBR READ
   5 %<TYPE-W TILDE LIST> READ-TABLE %<GBIND READ-TABLE T>  %<GBIND TILDE-READ-MACRO
   6  T>  <PRIMTYPE VECTOR> %<TYPE-C TILDE LIST> QUOTE FORM T PRIMTYPE LIST
   7 "COMPILER" FEATURE? CHTYPE TYPE VECTOR %<GBIND BACKQUOTE-READ-MACRO T>  ]>
   8 <SETG \1aTILDE-READ-MACRO #MSUBR [tilde-read-macro-IMSUBR TILDE-READ-MACRO (
   9 "VALUE" TILDE ANY ANY) 0]>
  10 <SETG \1aBACKQUOTE-READ-MACRO #MSUBR [tilde-read-macro-IMSUBR
  11 BACKQUOTE-READ-MACRO ("VALUE" ANY ANY ANY) 52]>
  12 <SETG \1aBACKQUOTIFY #MSUBR [tilde-read-macro-IMSUBR BACKQUOTIFY ("VALUE"
  13 STRUCTURED ANY) 508]>
  14 <SETG \1aBACKQUOTE-INIT #MSUBR [tilde-read-macro-IMSUBR BACKQUOTE-INIT ("VALUE"
  15 ATOM) 1656]>
  16 <COND (<AND <GASSIGNED? BACKQUOTE-INIT> <TYPE? ,BACKQUOTE-INIT MSUBR>> <
  17 BACKQUOTE-INIT>)>
  18 <ENDPACKAGE>