mim/mim/mimlib/catch-atom.msu

   1 <PACKAGE "CATCH-ATOM">
   2 <ENTRY CATCH-ATOM UNCATCH-ATOM SHOW-CAUGHT>
   3 <GDECL (CAUGHT-ATOM) <OR FALSE VECTOR STRING <LIST [REST <OR STRING VECTOR
   4 FALSE>]>> (CAUGHT-OBLISTS) <OR FALSE OBLIST LIST>>
   5
   6 <SETG \1ashow-caught-IMSUBR #IMSUBR [|AAADHZCCE_CCE_BMH]AAAAACCHCCE_CCE_CCE_BMH[H`HUCCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H`HCCCE_BMH]AAAAABABCCE_CCE_CCE_BMH[H`HUCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUCOFYACFSBCDMAAA]BECRBOAKDHAKBEASBEDKAAAECKCCDGAOBQD]AAAABAB]AAAAABCBCOHYAAFOBCDMAABEAMDJABABAAACDGA]BCDMAABEBCDJAAAECCEHBECJBMAJDHAKCSEHBCDJH`H]BKAJDGHWDAACD_ABBLCIAAAEBKEABAB[H`DEBKAHCOFYACFGHDENCEEFBOAACCCHCICHBLCIAAAMBLCAAAAIBAB[H`CIBLCFAAAUBLD]AAAAAACAAAAQBKAHCOFYACFGHDENCEEFG[FNAAAUBCDMAABEAMDJABABAAACDGAAAAHYBCDMAABEBCDJAAAEBEDMAABMBEDKAAAEBGDNAAAMBGBNAAAIBLCIAAA]BLCAAAAYBLCLAABEBLCDAABABLCKAABMBLD[H`AUAABIBLCJAABUBLD[H`AKAABQBLCFAAAUBLD[H`E]AAAQBLCIAAB]BLCAAABYCKFZA`H`H`HIDHAECOFYABBYCKFNAABUDHAAAAGICKFNAABMDHAAAAGACKDNAABADPAAAAFYCKDNAAAYDPAAAAFQBADNAABUBCDNAABMBEDNAABEBEBNAABABGDNAAA]BGBNAAAYBLCJAACEBCAQBCDIAAAEBEEBBFCJAAAEBCDNAACEBAAZBACRBGEABHCIAAAEBADNAABUBADIH`H]BCDNAABMBCDJH`H]GUF]H`H`AAAACQEKGWF[H`HYCQELBLCJAABMBLD[H_DOAABIBLCIAABUBLD[H_DEAABQBLCLAAA]BLCDAAAYBLCKAABEBLCCAABADAAAH`C[BCDMAABEBCAZBCCRBEDNAAAMBEEBBFCJAAAEBCDMAABMBCAZBCCRBAEBBBCJAAAEBLCIAAB]BLCAAABYBLCFAAAUBLD[H_F[AAAQBQD]AAAABCDNAAAMBCBNAAAIBEDNAAB]BEBNAABYBLCKAACMBLCCAACIBLCJAABEBLCBAABABLCIAABMBLD[H_BOAABICKFZA`H`H`HIDHAECOFYABBYCKDNAABADPAAACCQCKDNAACIDPAAACCIBADNAABEBCAQBCDIAAAEBEDNAACMBGASBGDKAAAEFSD]ACCHDGCMCOFYAAFUBMGVBMHNAAAEBMHMAABQBMHMAABUBMHMAABYBMHMAAB]BMGRBMHJAAAEBMHMAACABMHMAACEBMHJAAAIBMHJAAAMBMHMAACIBMHMAACMDQAHBADMAACUBLCLAABMBLCDAABICOFYAAF[DAB_COFYAAFUBMGVBMHNAAAEBMHMAABQBMHMAABUFSD]ABCBDGAIBCDMAAC]BCBMAACYBMGBBMGJBMHMAACIBMHMAACMDQAEBADMAACUBLCLAABMBLCDAABICOFYAAF[AMDNABABAABKDGBACKFNAABMDHA[BADNAABMBCDIH`H]BOAJDGAOBCAQBCDIAAAEBLCJAABMBLCBAABIAMDNABCBAABKDGBACOFYAAFUBMHMAADABMHMAADEBMGVBMHNAAAEDQACBADMAABUCOFYAAF[DAAAABAIAMDNADECAABKDGB_COFYAAFUBMHMAADIBMHMAADMBMGVBMHNAAAEDQACBADMAABUCOFYAAF[COFYAAFUBMH]AAAKADCCBMHNAABMBMGVBMHNAAAEDQACBADMAADUCOFYAAF[DAAAAAGCCOFYAAFUBMHMAADYBMHMAAD]BMGVBMHNAAAEDQACBADMAABUCOFYAAF[BADNAABMBABNAABIBLCIAABUBLCAAABQCKFZA`H`H`HIDHAECOFYABBYCKFNAABUDHAAAAECBADNAABUBCAQBCDIAAAECOFYAAFUBMH[H`EUBMGJBMGVBMHNAAAEDQACBLCIAACUBADMAADUCOFYAAF[BADNAACUBCDIH`H]BOAJDHBWBADIH`H]BCDIH`H]BOAJDGAOCOFYAAFUBMHMAAEABMHMAAEEDAAMCOFYAAFUBMHMAAEIBMHMAAEMBMGVBMHNAAAEDQACBADMAABUCOFYAAF[BADNAABUBADIH`H]BLCIAABUBLD[H\G_AABQDAAAH`DOCOFYAAFUBMHMAAEQBMHMAAEUBMGVBMHNAAAEDQACBADMAABUCOFYAAF[COFYAAFUBMGVBMHNAAAEDQABBADMAAE]COFYAAF[CTDNAABACQFNAABECTDNAACICQFNAACMBLCIAABMBLCAAABIDAAAH^FACZFNAAAUBOBNAAAUHFEHG^GHBADNAABMBABNAABICOHYAAFOCOH\AEH_DAAAAAAGDAAAAAAIBMH[H\FCCCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYAMDNABABAAAKDGASCKFNAAAMDGAMBADMAAFEBABMAAFACOHYAAFOAMDNACCHAAACDGC_BADNAAAEAMDIABGFAAACDGBYCOFYAAFUBMGQBMHIAAAEDQABBADMAAFMCOFYAAF[BCDMAAFUBCAZBCCRBOABCCCHCICHBMAICMCHDIAFBMH[H\EMBMGFBADNAAAEBMGYBMGQDAAKBMGYBMGQBMH[H\A[CCE_BIB[H[FSD[ACCOFYAAH]BLCIAAAEBKEABADMAAA]BCCQBOAJDHDQBCARBCDJAAAECKCBDHDGBADMAABEAMDIABABAAACDHBMCOFYAAFUBMGVBMHNAAAEBADMAABEBMGYBMGQDQACBADMAAF]COFYAAF[BOAIDHB[BADMAAGEBABMAAGACOHYAAFOCOFYAAFUBMGVBMHNAAAEBADMAABEBMGYBMGQDQACBADMAAGMCOFYAAF[FQD]ABCBDHAMBADMAAGEBABMAAGACOHYAAFOBADMAAA]BCCQBOAJDHAKBCARBCDJAAAECKCBDGAYBADMAABEBAGVBAFNAAAEBADMAABMBAH[H[DICCEQDAAAABGCBADMAABEAMDIABABAAACDHCUBADMAABEBAAYBACQBIAABKAIBQD]AAAACOFYAAGABIAVBKBNAAAECOFYAAGABCDMAABEBCH[HZHSBCEIBADMAABMBAAYBACQBIAABKAIBQD]AAAACOFYAAGABIB[H[AWD[AACOFYAAGABLCIAAAUBLD[HZGKAAAQDAAAABCWBMGVBMHNAAAED_ABBADMAABEBAAYBACQBMAAGMF]AAAAD`G`ACEGAAAAAAAHF]F]AAAAAAABDHCICKFZA`H`H`HIDHAECOFYABBYCOFYABGIDAAAAAAEDABABLCIAAAUBLCAAAAQCOFYABGOBMGABMGIBIBNAAAQBKBNAAAUCOFYABG[CSEHDAGKBIAHCOFYAAHQBLCIAAAUBLD[HZC[AAAQDABYBLCHAAA]BLD[HZHKAAAYBLCIAAAUBLCAAAAQCKFNAAA]DHBABADGBOBGBIAHBKAIBADNAAAUCOFYAAGACTFNAAA]BLCIAAAUBLD[HZBCAAAQDAG[BADMAABEBAHNAAAQBAFNAAAUBMH[HZCMCCE_D_ABBADMAABMBAAYBACQBMAAGMF[H`COACEGAAAAAAAHF]F[H`CQDHCICKFZA`H`H`HIDHAECOFYABBYCOFYABGIDAAAAAAEDABABLCIAAAUBLCAAAAQCOFYABGOBMGABMGIBIBNAAAQBKBNAAAUCOFYABG[CSEHDAGKBIAHCOFYAAHQBLCIAAAUBLD[HYFMAAAQDABYBLCHAABEBLD[HZB]AABABLCIAAAUBLCAAAAQCKFNAABEDHBABADGBOBGBIAHBKAIBADNAAAUCOFYAAGACTFNAABEBLCIAAAUBLD[HYDUAAAQDAG[BADMAABMBAHNAAAQBAFNAAAUAMDNABCBAAAKDHB[AMDNADCCAAAKDGAGB\D]ADECAAAKBADMAABEAMDIABABAAACDGAUBADMAABMBADIAAAEBAFNAAAIBBDNAAAMAAAEDAAMBADMAABMBAHNAAAIBAFNAAAMBADMAAGUBCCQBOAJDHAWBCARBCDJAAAECKCBDHAMBADMAAG]AMDIABCBAAACDGB]COFYAAFUBMHMAAHABMHMAAHEBADMAAHMBMGYBMGQDQACBADMAAHUCOFYAAF[BCDMAAG]BCGABCEICOFYAAFUBADMAAG]BMGYBMGQDQABBADMAAH]COFYAAF[BADMABAEBABMABAACOHYAAFOAAAACCE_CCE_CCE_CCE_BMH[HYCICCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAA]BCCQBOAJDHDEBCARBCDJAAAECKCBDHC[BADMAABEAMDIABABAAACDHBACOFYAAFUBADMAABEBMGYBMGQBMGVBMHNAAAEDQACBADMABAMCOFYAAF[BOAIDGBOBADMAABEAMDIABABAAACDGBOCOFYAAFUBMGVBMHNAAAEBADMAABEBMGYBMGQDQACBADMAAGMCOFYAAF[FQD]ABCBDGAMBADMABAUBABMABAQCOHYAAFOBADMAABEAMDIABABAAACDHCYCOFYAAFUBMHMAAAYBMHMAAA]DQABBADMABA]COFYAAF[COFYAAFUBMHMABBABMHMABBEDQABBADMABA]COFYAAF[COFYAAFUBADMAAG]BMGYBMGQDQABBADMABBMCOFYAAF[BADMAAG]BAH[HXAMCCEQBADMABBUBABMABBQCOHYAAFOCOFYAAFUBMGVBMHNAAAEBADMAABEBMGYBMGQDQACBADMAAGMCOFYAAF[CCEHBCCIBMAIDHAKCSEHBADIH`H]BKAIDGHWBEDMAABEBEA[BECSBLCKAAAMBLCCAAAIBLCJAAAUBLCAAAAQFVGJDGBUFUCADGBQBADMAABEBADIAAAEBCDIH`H]BADMAABEBAH[HWC_BAEJBADMAABMBADIAAAEBCDIH`H]BADMAABMBAH[HWCIBAEJDAAAABBYBADMAABEBADIAAAEBCDMAABEBCDJAAAECCEGBECJBKAJDHAKCSEGBCDJH`H]BIAJDGHWE]EHCTEGBLCHAAA]CKEGDPAYCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEGCKEGDPACDAHIBCDMAABEBCDJAAAEBEDMAABEBEDKAAAECCEHBGCKBMAKDHAKCSEHBEDKH`H]BKAKDGHWE_FNAAA]CSEHBLCIAAAUBLD[HVGMAAAQCKEHDPAYCKFZA`H`H`HIDHAECOFYABBYBCDJH`H]CTEHCKEHDPACDAHIBADNAAAUBBCJH`H]BADMAABMBADIAAAEBCDMAABMBCDJAAAECCEHBECJBMAJDHAKCSEHBCDJH`H]BKAJDGHWE_FNAAA]CTEHCKEHDPAYCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHCKEHDPACDAHIBCDMAABMBCDJAAAEBEDMAABMBEDKAAAECCEHBGCKBMAKDHAKCSEHBEDKH`H]BKAKDGHWE_FNAAA]CSEHBLCIAAAUBLD[HVBSAAAQCKEHDPAYCKFZA`H`H`HIDHAECOFYABBYBCDJH`H]CTEHCKEHDPACDAHIBADNAAAUBBCJH`H]BADMAABEBADIAAAEBOAIDHBUBADIH`H]BOAIDGBMBADMAABEBADIAAAEBCAQBCDIAAAEBADMAABEBAGBBAEJBADMAABMBADIAAAEBCAQBCDIAAAEBADMAABMBAGBBAEJBADMABBUBABMABBQCOHYAAFOBMH[HUH[CCE_CCE_CCE_CCE_CCE_BMH[HUFOCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAA]BCCQBOAJDHAKBCARBCDJAAAECKCBDGAMBQD]AAAABAB[HUFOCOHYAAFOBADMAABEAMDIABGFAAACDGB[BADMAABMBAAYBACQBCDMAABEBCAZBCCRBIBNAAAIBLCIAABMBLCAAABIBADNAAAMBKABCOFYACGQDAAAAAAGDAAAACAMBQD]AAAABAB[HUDICOHYAAFOBADMAABEAMDIACCHAAACDGDABADMAABMBAAYBACQCOFYAAFUBMHNAAAIBMHNAAAMBLCIAABMBLCAAABIDQABBADMAAFMCOFYAAF[BCDMAAFUBCAZBCCRBOABCCCHCICHBMAICMCHDIAFBADMAABEBAAYBACQBCAQBCDIAAAEFTGFDGAIFSD]AACADHAAABFABQD]AAAABAB[HTH]COHYAAFOBADMAABEAMDIABCBAAACDGAUBADMAABMBAAYBACQBLCIAABMBLCAAABIDAAAABDUBADMAABEAMDIABABAAACDGAAABC[BADMAABEBADIAAAEBCDMAABMBCDJAAAEBLCJAABUBLD[HTDUAABQBLCIAAB]CKFZA`H`H`HIDHAECOFYABBYCKFNAAB]DHAAAAHKCKFNAABUDHAAAAHCBADNAAB]BCAQBCDIAAAEBEDNAABUBGASBGDKAAAEFSD]ABCBDGA[BCDMABB]BLCLAADEBLCDAADABLCJAABEBLD[HWDSAABADAAAAAEMFSD]ACCHDGDACOFYAAFUBMHNAAAIBMHNAAAMDQABBADMAAFMBLCJAACEBLCBAACABLCLAACMBLCDAACICOFYAAF[BCDMAAFUBCAZBCCRBOABCCCHCICHBMAICMCHDIAFBADNAACEBCAYBCCQBLCJAACUBLCBAACQBLCFAAC]BLD[HTDCAACYFTGFDGBMFSD]AACADGBGDAA[BIBNAAAIBADNAAAMBKABCOFYACGQDAAAAAAUBLCLAACMBLCDAACIBADNAACMBABNAACIDABQBADNAAB]BADIH`H]BCDNAABUBCDJH`H]BLCJAABUBLD[HSD]AABQBLCIAAB]DAAAH`AGCKFNAABEDHBABADNAADEBABNAADABCDMABB]BLCJAABUBLD[HVFGAABQBLCIAABMBLCAAABIDAAOBQD]AAAABLCIAABUBLD[HSD_AABQCKFNAABUDHAAAAHKDAAMBQD]AAAABAB[HSDKCOHYAAFOAMDNABCBAABKDHCKAMDNADCCAABKDHCCBMH]AAAAAICCBMH]AAAAAOCGBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABIBMHNAABMBMHNAAAQBMHNAAAUCLHOH`HQDQACDAAAAAFIBLCIAABUBLCAAABQFQD]ABCBDHAAAAEKCOFYAAFUBMHMABCABMHMABCEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMHNAAAYBMHNAAA]BMHMABCIBMHMABCMDQAFBADMABCUCOFYAAF[FQD]ABCBDGAMCOFYAAFUBMH[HRESCCE_DABOFQDMABB[DGASFRHMABB]DGAMBADMABB]BABMABBYCOHYAAFOCOFYAAFUBIAABKAIBQD]AAAACOFYAAGABMH[HRDCBMGIDQABBADMABC]COFYAAF[BLCIAABUBLCAAABQBADNAABUBABNAABQCOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYAMDNADECAAACDGDEAMDNADECAAAKDGBCBADNAAAEFRHNAAAMDGAMBADMABB]BABMABBYCOHYAAFOBQD]AAAABAB[HRCECOHYAAFOBADNAAAMBABNAAAIBOAIDHBCBCDNAAAEFTHIAAAEDGAKAMDIADECAAACDHAAAAEUBADIH`H]BOAIDHAGBAB[HQGWDAHCBQD]AAAABAB[HRAKCOHYAAFOAMDNADECAAAKDGBWBADNAAAEBAAVBOAIDHBABCDNAAAMFTHIAAAEDGAIAMDIADECAAACDHCUBADIH`H]BOAIDHAGBAB[HQEYDAHEBQD]AAAABAB[HQGMCOHYAAFOBADNAAAMBCAYBCCQBADNAAAEBAAVBOABGOF[HWGIBMAIDHA[FTHIAAAEDGAGF_DIAAACDHAWBADIH`H]BMAIDHAGBAB[HQC[DAHGBQD]AAAABAB[HQEOCOHYAAFOAAAA| show-caught-IMSUBR OUTCHAN CAUGHT-ATOM
   7 %<GBIND CAUGHT-ATOM T>  %<GBIND CAUGHT-OBLISTS T>  PRINC "Bucket " " (same as "
   8  " in " PRINT-MANY "*" "any oblist" "oblist " PRIN1 "one of " ", and " ", " "."
   9  CRLF #FALSE ("BAD OBLIST") HASH-NAME %<GBIND ATOM-TABLE T>  =? #FALSE (
  10 "ALREADY CAUGHT") MEMBER CA-HANDLER %<GBIND CA-HANDLER T>  "CREATE-ATOM"
  11 %<GBIND ATOM-INT T>  HANDLER ON "CAUGHT" N=? #FALSE ("NOT CAUGHT") GUNASSIGN
  12 CAUGHT-OBLISTS OFF "UNCAUGHT" T CREATE-ATOM!-ERRORS
  13 ERRET-FALSE-OR-T-OR-NEW-ATOM!-ERRORS ERROR DISMISS ]>
  14 <SETG \1aSHOW-CAUGHT #MSUBR [show-caught-IMSUBR SHOW-CAUGHT ("VALUE" <OR ATOM
  15 FALSE>) 0]>
  16 <SETG \1aCATCH-ATOM #MSUBR [show-caught-IMSUBR CATCH-ATOM ("VALUE" <OR STRING !<
  17 FALSE STRING!>> <OR STRING FALSE VECTOR> "OPTIONAL" <OR ATOM OBLIST LIST FALSE>
  18 ) 1208]>
  19 <SETG \1aUNCATCH-ATOM #MSUBR [show-caught-IMSUBR UNCATCH-ATOM ("VALUE" <OR
  20 STRING !<FALSE STRING!>> <OR STRING FALSE>) 2164]>
  21 <SETG \1aATOM-INT #MSUBR [show-caught-IMSUBR ATOM-INT ("VALUE" ANY ANY STRING <
  22 OR LIST OBLIST> ATOM) 2924]>
  23 <SETG \1aCHECK-OBLIST #MSUBR [show-caught-IMSUBR CHECK-OBLIST ("VALUE" <OR ATOM
  24 FALSE <LIST ANY>> <OR LIST OBLIST> <OR LIST OBLIST>) 3820]>
  25 <ENDPACKAGE>