X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=mim%2Fmim%2Fmimlib%2Fcatch-atom.msu;fp=mim%2Fmim%2Fmimlib%2Fcatch-atom.msu;h=fc5fa3b4ebf0e0c41411a665b67b1260c35e8274;hb=d73ace3f3292e320b461b8fcd2e9f5dc5d9684d7;hp=0000000000000000000000000000000000000000;hpb=d530283ea60fb0ddcc28e9c5bd072456afe06e07;p=pdp10-muddle.git

diff --git a/mim/mim/mimlib/catch-atom.msu b/mim/mim/mimlib/catch-atom.msu
new file mode 100644
index 0000000..fc5fa3b
--- /dev/null
+++ b/mim/mim/mimlib/catch-atom.msu
@@ -0,0 +1,25 @@
+<PACKAGE "CATCH-ATOM">
+<ENTRY CATCH-ATOM UNCATCH-ATOM SHOW-CAUGHT>
+<GDECL (CAUGHT-ATOM) <OR FALSE VECTOR STRING <LIST [REST <OR STRING VECTOR
+FALSE>]>> (CAUGHT-OBLISTS) <OR FALSE OBLIST LIST>>
+
+<SETG show-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 
+%<GBIND CAUGHT-ATOM T>  %<GBIND CAUGHT-OBLISTS T>  PRINC "Bucket " " (same as "
+ " in " PRINT-MANY "*" "any oblist" "oblist " PRIN1 "one of " ", and " ", " "."
+ CRLF #FALSE ("BAD OBLIST") HASH-NAME %<GBIND ATOM-TABLE T>  =? #FALSE (
+"ALREADY CAUGHT") MEMBER CA-HANDLER %<GBIND CA-HANDLER T>  "CREATE-ATOM" 
+%<GBIND ATOM-INT T>  HANDLER ON "CAUGHT" N=? #FALSE ("NOT CAUGHT") GUNASSIGN 
+CAUGHT-OBLISTS OFF "UNCAUGHT" T CREATE-ATOM!-ERRORS 
+ERRET-FALSE-OR-T-OR-NEW-ATOM!-ERRORS ERROR DISMISS ]>
+<SETG SHOW-CAUGHT #MSUBR [show-caught-IMSUBR SHOW-CAUGHT ("VALUE" <OR ATOM
+FALSE>) 0]>
+<SETG CATCH-ATOM #MSUBR [show-caught-IMSUBR CATCH-ATOM ("VALUE" <OR STRING !<
+FALSE STRING!>> <OR STRING FALSE VECTOR> "OPTIONAL" <OR ATOM OBLIST LIST FALSE>
+) 1208]>
+<SETG UNCATCH-ATOM #MSUBR [show-caught-IMSUBR UNCATCH-ATOM ("VALUE" <OR
+STRING !<FALSE STRING!>> <OR STRING FALSE>) 2164]>
+<SETG ATOM-INT #MSUBR [show-caught-IMSUBR ATOM-INT ("VALUE" ANY ANY STRING <
+OR LIST OBLIST> ATOM) 2924]>
+<SETG CHECK-OBLIST #MSUBR [show-caught-IMSUBR CHECK-OBLIST ("VALUE" <OR ATOM
+FALSE <LIST ANY>> <OR LIST OBLIST> <OR LIST OBLIST>) 3820]>
+<ENDPACKAGE>