mim/mim/mimlib/stdmacs.msubr

   1 <DEFINITIONS "STDMACS">
   2 <USE-WHEN <DEBUGGING? "STDMACS"> "BACKQUOTE">
   3
   4 <SETG \1aif-IMSUBR #IMSUBR [|AAADA\COH\AEACDAAAAAAGDAAAAAAKBMH]AAAAABABCCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H`HMCCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBQD]AAAABSD]AAAABEDNAAAEBEAVBLCKAAAMBLCCAAAIBLCJAAAUBLD[H`FYAAAQBLCIAAA]BLD[H`FOAAAYCKFZA`H`H`HIDHAECOFYABBYCKFNAAAMDHDUBADNAAAMBCAQBCDIAAAEFSDMAAASDGA[FTHMAAAUDGAUBLCIAABMBLD[H`D]AABIBLCJAABUBLCBAABQDACKBLCIAABEBQD]AAAABIABBKAJCOFYAAGACKFNAAA]DGAMBLCIAAA]BLD[H`CSAAAYDAAIBCDNAAAUBDCIH`H]BCDNAAAMBCDJH`H]BLCJAAAMBLD[H`BWAAAIBLCIAAAUBLD[H`BMAAAQDAAAH`D]CKDNAABKDHBSBQD]AAAABIBNAABIBKBNAABMCOFYAAGABIBNAAAYBKBNAAA]COFYAAGABIBMAAAYBKBMAAA]COFYAAGABAB]AAAAAEABCOHYAAFOBQD]AAAABIBNAAAYBKBNAAA]COFYAAGABIBMAAAYBKBMAAA]COFYAAGABAB[H`G[COHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAIBMH[H_FYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAMBABNAAAIBSD]AAAABLCJAAA]BLD[H_EKAAAYBLCIAAAUBOAIDHAAAAESBEAQBEDIAAAEBLCIAAAUBLCAAAAQBQD]AAAABIACBKAKCOFYAAGABCDNAAAUBCDJH`H]BLCJAAAUBAB[H_CUBLCIAAA]BLD[H_CMAAAYBLCIAABEBLD[H_CCAABABOAJDHCOBEARBEDJAAAEBLCIAABEBLD[H_BOAABABQD]AAAABIACBKAKBLCJAAAUBLD[H_A]AAAQCOFYAAGABCDNAABEBDCIH`H]BCDNAAAUBCDJH`H]BLCJAAAUBAB[H^H_BLCIAABEBLD[H^HWAABABOAJDHACDAFSBLCAAAAQBADNAAA]BIAVBKBNAAAECOFYAAGABIB[H^GYBKAIBQD]AAAACOFYAAGABIBMAAAYBKBMAAA]COFYAAGABAB[H_GKCOHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAIBMH[H^FICCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAMBABNAAAIBSD]AAAABLCJAAA]BLD[H^D[AAAYBLCIAAAUBOAIDHAAAAESBEAQBEDIAAAEBLCIAAAUBLCAAAAQBQD]AAAABIACBKAKCOFYAAGABCDNAAAUBCDJH`H]BLCJAAAUBAB[H^CEBLCIAAA]BLD[H^B]AAAYBLCIAABEBLD[H^BSAABABOAJDHCOBEARBEDJAAAEBLCIAABEBLD[H^A_AABABQD]AAAABIACBKAKBLCJAAAUBLD[H^AMAAAQCOFYAAGABCDNAABEBDCIH`H]BCDNAAAUBCDJH`H]BLCJAAAUBAB[H]HOBLCIAABEBLD[H]HGAABABOAJDHACDAFSBLCAAAAQBQD]AAAABIAVBKBNAAAECOFYAAGABIBMAABABKBMAABECOFYAAGABIB[H^GIBKAIBADNAAA]COFYAAGAB\D]ABABAAA[BIB[H]FIBKAIBQD]AAAACOFYAAGABIBMAAAYBKBMAAA]COFYAAGABAB[H^E[COHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAIBMH[H]DYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAMBABNAAAIBSD]AAAABLCJAAA]BLD[H]CKAAAYBLCIAAAUBOAIDHAAAAESBEAQBEDIAAAEBLCIAAAUBLCAAAAQBQD]AAAABIACBKAKCOFYAAGABCDNAAAUBCDJH`H]BLCJAAAUBAB[H]AUBLCIAAA]BLD[H]AMAAAYBLCIAABEBLD[H]ACAABABOAJDHCOBEARBEDJAAAEBLCIAABEBLD[H\HOAABABQD]AAAABIACBKAKBLCJAAAUBLD[H\G]AAAQCOFYAAGABCDNAABEBDCIH`H]BCDNAAAUBCDJH`H]BLCJAAAUBAB[H\F_BLCIAABEBLD[H\FWAABABOAJDHACDAFSBLCAAAAQBQD]AAAABIAVBKBNAAAECOFYAAGABIBMAABABKBMAABECOFYAAGABIB[H]EYBKAIBADMAABMCOFYAAGABIB[H\D_BKAIBQD]AAAACOFYAAGABIBMAAAYBKBMAAA]COFYAAGABIB[H]DQBKAIBADNAAA]COFYAAGABIB[H\CWD[AACOFYAAGABIBMAABQBKBMAABUCOFYAAGABAB[H]CMCOHYAAFOCOH\AEH_DAAAAAAGDAAAAAAIBMH[H\BMCCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAMBABNAAAIBSD]AAAABLCJAAA]BLD[H[H_AAAYBLCIAAAUBOAIDHAAAAESBEAQBEDIAAAEBLCIAAAUBLCAAAAQBQD]AAAABIACBKAKCOFYAAGABCDNAAAUBCDJH`H]BLCJAAAUBAB[H[GIBLCIAAA]BLD[H[GAAAAYBLCIAABEBLD[H[FWAABABOAJDHCOBEARBEDJAAAEBLCIAABEBLD[H[FCAABABQD]AAAABIACBKAKBLCJAAAUBLD[H[EQAAAQCOFYAAGABCDNAABEBDCIH`H]BCDNAAAUBCDJH`H]BLCJAAAUBAB[H[DSBLCIAABEBLD[H[DKAABABOAJDHACDAFSBLCAAAAQBADMAABMBIAVBKBNAAAECOFYAAGABIB[H[CMBKAIBQD]AAAACOFYAAGABIBMAAAYBKBMAAA]COFYAAGABIB[H\B_BKAIBADNAAA]COFYAAGABIB[H[BED[AACOFYAAGABIBMAABQBKBMAABUCOFYAAGABAB[H\A[COHYAAFOAAAACOH\AEH_DAAAAAAGDAAAAAAIBMH[HZHYCCE_CCE_CCE_BMH]AAAAAACACCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H`HICCE_BMH]AAAKADCCCCE_CKFZA`H`H`HIDHAECOFYABBYBADNAAAEB_BIAAAICIGHDNAAADAGBCDNAAAMCCEHBECJBMAJDHAKCSEHBCDJH`H]BKAJDGHWHCEPBAB]AAAAACCHBKAHCOFYACFGHDENCEEFBOAACCCHCICHBLCIAAAUBLCAAAAQBAB[H`HCBLCFAAA]BKAHCOFYACFGBLCIAABEBLCAAABABLCFAABMBLD[H`DQAABIBLCKAABUBLD[HZCUAABQFQF]AAAAH`H`DPAUBAF]AAAAABCBCCFIAAAEGQF]H`H`AAAACQEIDAHEBOBNAABMHDEPCEEHG_FNAAA]BLCHAAA]BLCIAAB]BLCAAABYCKFZA`H`H`HIDHAECOFYABBYCKFNAABUDGAAAAHMBQD]AAAABIBMAABYBKBMAAB]COFYAAGACOFYAAFUBMGVBMHNAAAEDQABBLCIAABMBLD[HYHGAABIBADMAACECOFYAAF[BIAABKAIBQD]AAAACOFYAAGABCDNAAAUBCBNAAAQBLCJAABUBLCBAABQBLCIAAB]BLD[HYFYAABYFSF[H`DEDPCEBEARBEDJAAAEBLCIAAAUBLD[HYFCAAAQBQD]AAAABIACBKAKBLCJAABUBLCBAABQCOFYAAGABCDNAAAUBDCIH`H]CTDNAABQCQFNAABUCKDNAABQDPAKBCBNAABQBCDNAABUDAF]CCFIH`H]BADNAAB]BIB[HZDMBKAIBQD]AAAACOFYAAGABCDNAABMBDCIH`H]BLCIAAAUBLD[HYCGAAAQBQD]AAAABIAVBKBNAAAECOFYAAGABCDNAAAUBDCIH`H]CCFIH`H]B\D]AEABAABKDAAAABC]BADNAABUBCDIAAAEBECRBOAKDHCEBEASBEDKAAAECKCCDHB[BECRBEASBEDKAAAEBLCKAAB]BLCCAABYFUD]AGEHDGBEBGASBGDKAAAEBQDNAAAQBLCLAACEFXGIDOASBOBKAAAMF_FNAAAEDGAIAMDKADCCAAAKDHBWCOFYAAFUBMHMAACIBMHMAACMBMHNAACIBMGJBMGVBMHNAAAEBMHMAACQBMHMAACUDQAEBADMAAC]COFYAAF[BLCIAABMBLCAAABIDAAAAAGUBADNAABUBADIH`H]BOAIDGCACOFYAAFUBMHMAADABMHMAADEBMGCBMGKBMHMAACQBMHMAACUDQADBLCIAABUBLD[HXDKAABQBADMAAC]BLCLAACEBLCJAACMCOFYAAF[BLCIAABMBLCAAABIDAAAAAEIBLCJAACMBCAQBCDIAAAEBLCIAABUBLD[HXB[AABQBADNAAAUBBEBF_HYBBEJF_H]BCDNAABEAMDRABCBF_H[DHBQCOFYAAFUBMHMAADIBMHMAADMBMGCBMGKBMHMAACQBMHMAACUDQADBADMAAC]BLCLAACECOFYAAF[BLCIAABMBLCAAABIDABKBDFMAADUF_H]BDFMAADQF_HYBGDNAABUBGDLH`H]BLCLAABUBLD[HWGUAABQBLCKAAB]BLCCAABYDAAAH^FKCZFNAAA]BOBNAAA]HFEHG^GHBADNAABMBABNAABICOHYAAFOCOFYAAFUBMHMAADYBMHMAAD]BMGVBMGIBMHMAACQBMHMAACUDQADBADMAAC]COFYAAF[COHYAAFOCOH\AEH_DAAAAAAGDAAAAAAIBMH[HWDYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKFNAAAMDGBCCOFYAAFUBMHMAAEABMHMAAEEBMHMAAEIBMHMAAEMDQACBADMAAC]COFYAAF[COHYAAFOBADNAAAMBCDIH`H]BOAJDGC]BCAYBCCQBQD]AAAABIABBKAJCOFYAAGABLCIAAAUBLD[HWAOAAAQBQD]AAAABIAVBKBNAAAECOFYAAGABIBMAAEQBKBMAAEUCOFYAAGAB\D]AEABAAA[BIB[HWHUBKAIBADNAAAUCOFYAAGABIBMAAEYBKBMAAE]COFYAAGABAB[HWG[COHYAAFOBSD]AAAABUD]AAAABABNAAAIBLCIAAA]BLCAAAAYBLCKAABEBLD[HVFOAABABLCJAAAUBLD[HVFEAAAQCKFZA`H`H`HIDHAECOFYABBYCKFNAAA]DHD]BADNAAA]BCAQBCDIAAAEBQD]AAAABIABBKAJCOFYAAGABIBMAAFABKBMAAFECOFYAAGABIBMAAEYBKBMAAE]COFYAAGAB\D]AEABAABKBIB[HWDEBKAIBQD]AAAACOFYAAGACKFNAAAUDGAMBLCIAAAUBLD[HVCAAAAQDAAIBCDNAABEBDCIH`H]BCDNAAA]BCDJH`H]BLCJAAA]BLD[HVBEAAAYBLCIAABEBLD[HVA[AABADAAAH`DUBQD]AAAABLCIAAA]BLD[HVAIAAAYCKFNAAAUDHAAAAESBCDNAAAUBEARBEDJAAAEBQD]AAAABIACBKAKCOFYAAGABCDNAAAUBCDJH`H]BLCJAAAUBLD[HUGYAAAQBLCIAAA]BLD[HUGOAAAYBLCIAABMBLD[HUGEAABIBOAJDHCQBEARBEDJAAAEBLCIAABMBLD[HUFQAABIBQD]AAAABIACBKAKBLCJAAAUBLD[HUE_AAAQCOFYAAGABCDNAABMBDCIH`H]BCDNAAAUBCDJH`H]BLCJAAAUBLD[HUEAAAAQBLCIAABMBLD[HUDWAABIBOAJDHACDAFQBADNAAA]BIBMAAFIBKBMAAFMCOFYAAGAB\D]AEABAAA[BIB[HVDABKAIBADMAAFUCOFYAAGAB\D]ABABAAA[BIB[HUCABKAIBQD]AAAACOFYAAGABIBMAAAYBKBMAAA]COFYAAGAB\D]AEABAAA[BIB[HVBMBKAIBQD]AAAACOFYAAGABLCIAAA]BLD[HUAOAAAYBQD]AAAABIAVBKBNAAAECOFYAAGABIBMAAEQBKBMAAEUCOFYAAGABIB[HUH[BKAIBQD]AAAACOFYAAGABIBMAAFYBKBMAAF]COFYAAGABIB[HTGUBKAIBQD]AAAACOFYAAGABIB[HTGGBKAIBADNAAA]COFYAAGABIBMAAGABKBMAAGECOFYAAGABAB[HUFYCOHYAAFOAAAA| if-IMSUBR ELSE COND NOT (<RETURN>) REPEAT CHTYPE
   5 TYPEPRIM BAD-SLOT-NAME BUILD ERROR MISSING-SLOT-VALUE!-ERRORS
   6 SLOT-INITIALIZED-TWICE!-ERRORS T BAD-TYPE-NAME!-ERRORS
   7 TOO-FEW-ARGUMENTS-SUPPLIED!-ERRORS PRIMTYPE? PRIMTYPE ==? .O OR (.O) O:ATOM
   8 BIND ]>
   9 <SETG \1aIF #MSUBR [if-IMSUBR IF ("VALUE" FORM "ARGS" ANY) 0]>
  10 <COND (<AND <GASSIGNED? IF> <NOT <TYPE? ,IF MACRO>>> <SETG IF <CHTYPE (,IF)
  11 MACRO>>)>
  12 <SETG \1aWHEN #MSUBR [if-IMSUBR WHEN ("VALUE" FORM "QUOTE" ANY "ARGS" ANY) 328]>
  13 <COND (<AND <GASSIGNED? WHEN> <NOT <TYPE? ,WHEN MACRO>>> <SETG WHEN <CHTYPE (,
  14 WHEN) MACRO>>)>
  15 <SETG \1aUNLESS #MSUBR [if-IMSUBR UNLESS ("VALUE" FORM "QUOTE" ANY "ARGS" ANY)
  16 600]>
  17 <COND (<AND <GASSIGNED? UNLESS> <NOT <TYPE? ,UNLESS MACRO>>> <SETG UNLESS <
  18 CHTYPE (,UNLESS) MACRO>>)>
  19 <SETG \1aWHILE #MSUBR [if-IMSUBR WHILE ("VALUE" FORM "QUOTE" ANY "ARGS" ANY) 904
  20 ]>
  21 <COND (<AND <GASSIGNED? WHILE> <NOT <TYPE? ,WHILE MACRO>>> <SETG WHILE <CHTYPE
  22 (,WHILE) MACRO>>)>
  23 <SETG \1aUNTIL #MSUBR [if-IMSUBR UNTIL ("VALUE" FORM "QUOTE" ANY "ARGS" ANY)
  24 1236]>
  25 <COND (<AND <GASSIGNED? UNTIL> <NOT <TYPE? ,UNTIL MACRO>>> <SETG UNTIL <CHTYPE
  26 (,UNTIL) MACRO>>)>
  27 <SETG \1aBUILD #MSUBR [if-IMSUBR BUILD ("VALUE" ANY ATOM "ARGS" <LIST [REST ATOM
  28 ANY]>) 1544]>
  29 <COND (<AND <GASSIGNED? BUILD> <NOT <TYPE? ,BUILD MACRO>>> <SETG BUILD <CHTYPE
  30 (,BUILD) MACRO>>)>
  31 <SETG \1aPRIMTYPE? #MSUBR [if-IMSUBR PRIMTYPE? ("VALUE" ANY "QUOTE" ANY "ARGS"
  32 ANY) 2440]>
  33 <COND (<AND <GASSIGNED? PRIMTYPE?> <NOT <TYPE? ,PRIMTYPE? MACRO>>> <SETG
  34 PRIMTYPE? <CHTYPE (,PRIMTYPE?) MACRO>>)>
  35 <END-DEFINITIONS>