(FILECREATED "22-Apr-86 11:26:45" ("compiled on " {ERIS}SOURCES>MATCH.;1) "18-Apr-86 18:08:41" bcompl'd in "Xerox Lisp 21-Apr-86 ..." dated "21-Apr-86 11:58:07") (FILECREATED "10-Apr-84 21:34:35" {PHYLUM}SOURCES>MATCH.;1 70168 previous date: "22-NOV-82 12:25:45" {PHYLUM}SOURCES>MATCH.;2) MAKEMATCH D1 (L (1 PATTERN) P 27Q VARS P 26Q INASOME P 23Q MATCHEFFECTS P 21Q SUBLIST P 20Q WATCHPOSTPONELST P 17Q WMLST P 16Q MUSTRETURN P 15Q POSTPONEDSETQS P 14Q POSTPONEDRPLACS P 12Q PATVARSNIL P 11Q VARDEFAULT P 10Q LISTPCHECK P 7 CHECKLENGTH P 6 BOUNDVALS P 5 BOUNDVARS P 4 #LISTUSED P 3 #LIST P 2 LASTEFFECTCANBENIL P 1 GENSYMVARLIST P 0 LOCALDECLARATION I 0 MATCHEXPRESSION F 30Q FAULTFN F 31Q EXPR F 32Q CLISPCHANGE F 33Q VARS) ²W2W0 `ióPg _g _g _g _ic4AŸg@gAhb€@dgð¨dgð¢±Œ¿@@didW0 ¿@dgð³Jdgð³C¿@lFoi@ ³/@²@g@hi™g@ ˆg@ ¿@d²'dgð³ dgð³¿o@ ‡¿o ¿@ _$@´#KW6 @@ihdW0 ¿@_@ “@…@ _(dO$ _*O" _"O²!@gð²gO(O hh_¿O O OµOµJ´ O¦ihƒh€h _&d›gO*O&hO* _*MœgMO*hNO*(634Q \MATCHBLOCK/DOSUBST 607Q \NCONC2 604Q \NCONC2 553Q DREVERSE 546Q DREVERSE 530Q MKPROGN 474Q DREVERSE 465Q \MATCHBLOCK/QMATCHSUBPAT 455Q \MATCHBLOCK/SUBSTVAR 442Q \MATCHBLOCK/EASYTORECOMPUTE 422Q DWIMIFY0? 377Q \APPEND2 360Q \MATCHBLOCK/PATPARSE 347Q HELP 336Q \MATCHBLOCK/PATERR 270Q \MATCHBLOCK/PATERR 256Q /ATTACH 244Q FIXSPELL1 212Q FIXSPELL 144Q DWIMIFY0? 56Q \MATCHBLOCK/VALUELOOKUP 46Q \MATCHBLOCK/VALUELOOKUP 36Q \MATCHBLOCK/VALUELOOKUP 26Q \MATCHBLOCK/VALUELOOKUP 6 GETLOCALDEC) (643Q LAMBDA 616Q COND 521Q TOPREPLACE 513Q -> 315Q => 306Q -> 262Q NOWITH 250Q with 232Q with 164Q WITH 155Q with 121Q MATCH 113Q match 74Q with 70Q match 53Q PATVARSMIGHTBENIL 43Q PATVARDEFAULT 33Q PATLISTPCHECK 23Q PATCHECKLENGTH 11Q PATGENSYMVARS) ( 344Q "Bad arg to MAKEMATCH" 325Q "Expression after pattern not preceded by => or ->" 202Q (WITH)) \MATCHBLOCK/QMATCHSUBPAT D1 (L (2 NOLISTPCHECK 1 PATELT 0 VAR) P 1 INASOME P 0 CHECKINGLENGTH F 2 INASOME F 3 LISTPCHECK) ihRSžB¬@ @A @A (34Q \MATCHBLOCK/QMATCHWM 26Q \MATCHBLOCK/MKAND 23Q \MATCHBLOCK/QMATCHWM 16Q \MATCHBLOCK/QLISTP) NIL () \MATCHBLOCK/QMATCHWM D1 (L (2 FN 1 PAT 0 VAR) P 1 INASOME F 2 INASOME F 3 CHECKLENGTH F 4 CHECKINGLENGTH) ]AµShðµ‚±;Thðµ‚±2@ ³ Adgð¥dgð—¿@AB¿@ABAdgð³ðdgð³édgð³âdgð³Ûdgð³Ôdgð³Ídgð—¿@ABdgð—¿@ABgð¢±»Ad ²8¿Rgð™Agð³ŽA ²…A@ @AAB ²wB³FA ´>Ai ´5gX@A@H HA iA ¸R”RHiHhR@AgA@g A hBAAABb¿b±þ§(506Q \MATCHBLOCK/QMATCHWM 475Q \MATCHBLOCK/MAKE!PAT 472Q \MATCHBLOCK/MAKESUBPAT 465Q \MATCHBLOCK/QAPPLY* 462Q \MATCHBLOCK/QLDIFF 416Q \MATCHBLOCK/QFOR 412Q \MATCHBLOCK/CANMATCHNILLIST 404Q \MATCHBLOCK/MKAND 401Q \MATCHBLOCK/QMATCHWM 373Q \MATCHBLOCK/QAPPLY* 370Q \MATCHBLOCK/QLDIFF 355Q \MATCHBLOCK/GENSYML 345Q \MATCHBLOCK/ARB? 334Q \MATCHBLOCK/$? 316Q \MATCHBLOCK/MKAND 313Q \MATCHBLOCK/QMATCHWM 277Q \MATCHBLOCK/QAPPLY* 274Q \MATCHBLOCK/QCAR 262Q \MATCHBLOCK/SIMPLEFN 227Q \MATCHBLOCK/ELT? 206Q \MATCHBLOCK/QMATCH$= 170Q \MATCHBLOCK/QMATCH! 75Q \MATCHBLOCK/QMATCHELT1 65Q \MATCHBLOCK/QMATCH$ 33Q \MATCHBLOCK/QNULL) (457Q @ 447Q @ 352Q OLD 250Q & 237Q FASTINASOME 212Q @ 175Q $= 157Q ! 150Q *ANY* 141Q ~ 132Q SUBPAT 123Q ' 114Q == 105Q = 54Q -- 46Q $) () \MATCHBLOCK/QMATCH$ D1 (L (2 FN 1 PAT 0 VAR) P 15Q WATCHPOSTPONELST P 14Q INASOME P 13Q CHECKINGLENGTH P 12Q INASOME P 3 ZLENFLG P 0 SKIPEDLEN F 21Q INASOME F 22Q WATCHPOSTPONELST) j‘ A¥B@ W"²(W"d´¿o ¿W"hW" @AB iA šo gB³sA°%d]dgð˜¿kH ¸hgð˜HM ¸h€i¤µÛh¼Hjð³BH•H ³8L”L •@H H3ž@HkØ AL @H AL A°d ^µijð³kNµaHN ¸h¤µãh\ ¢±†Hjð³'H•H ³@dgð²:¿A ³0A ²(@dgð‘Hk hK ° ²ži»° @HhK YA hðµIIA BhðµB@I B’±ÉLAð¢±ÀHkð¢±¹L ¢±±Agð¢±¥Adgð³‰d_O •µôi¿h¢±‚A¬AohðŠAo²`gA Ydgð³dgð«dgð¥dgð’¿i¿h²3Igð—g@ ‚gI@hgA_¿ OiW"d—o Agð“g‚gYW$2@dgð²/¿A_µh²#@_ ²I °d ’¿°é ’i°ãO°Ø@_ ¿IZA _dið²4Odgð§dgð¡d©¿o °6¿O_¿Bhðµ*B@J °B@J OohðhðµO _OgðdIO OOA (1415Q \MATCHBLOCK/QFOR 1411Q \MATCHBLOCK/CANMATCHNILLIST 1363Q \MATCHBLOCK/MKAND 1337Q \MATCHBLOCK/DOSIDE 1334Q \MATCHBLOCK/QLDIFF 1324Q \MATCHBLOCK/DOSIDE 1321Q \MATCHBLOCK/QLDIFF 1275Q \MATCHBLOCK/PATHELP 1235Q \MATCHBLOCK/QMATCHWM 1212Q \MATCHBLOCK/REPLACEIN 1203Q \MATCHBLOCK/ELT? 1174Q \MATCHBLOCK/QCDR 1125Q \MATCHBLOCK/GENSYML 1102Q \MATCHBLOCK/PATHELP 1065Q \MATCHBLOCK/QMATCHSUBPAT 1057Q \MATCHBLOCK/SUBSTVAR 1023Q \MATCHBLOCK/LOOK 743Q \MATCHBLOCK/QMATCHELT 652Q \MATCHBLOCK/ARB? 604Q \MATCHBLOCK/NULLPAT? 552Q \MATCHBLOCK/MKAND 547Q \MATCHBLOCK/MKAND 544Q \MATCHBLOCK/DOSIDE 541Q \MATCHBLOCK/QLDIFF 526Q \MATCHBLOCK/QMATCHWM 513Q \MATCHBLOCK/CANMATCHNILLIST 505Q \MATCHBLOCK/SUBSTVAR 502Q \MATCHBLOCK/QNLEFT 465Q \FZEROP 460Q \MATCHBLOCK/QCDR 455Q \MATCHBLOCK/SUBSTVAR 452Q \MATCHBLOCK/QNLEFT 445Q \MATCHBLOCK/QPLUS 423Q \MATCHBLOCK/REPLACEIN 413Q \MATCHBLOCK/ELT? 370Q \FZEROP 344Q \MATCHBLOCK/NILPAT 330Q \MATCHBLOCK/QPLUS 305Q \MATCHBLOCK/PATLEN 274Q \MATCHBLOCK/QMATCHWM 265Q \MATCHBLOCK/QCDR 262Q \MATCHBLOCK/QCDR 257Q \MATCHBLOCK/SUBSTVAR 254Q \MATCHBLOCK/QNTH 246Q \MATCHBLOCK/QMATCHWM 237Q \MATCHBLOCK/QNTH 223Q \MATCHBLOCK/QNOTLESSPLENGTH 215Q \MATCHBLOCK/NULLPAT? 205Q \FZEROP 155Q \MATCHBLOCK/QPLUS 136Q \MATCHBLOCK/QPLUS 105Q \MATCHBLOCK/PATERR 75Q \MATCHBLOCK/ARB? 65Q \MATCHBLOCK/DOWATCH 60Q \MATCHBLOCK/QMATCHWM 40Q \MATCHBLOCK/PATHELP 13Q \MATCHBLOCK/DOSIDE) (1373Q FOUND 1261Q FASTINASOME 1253Q INASOME 1143Q CDR 1121Q INASOME 1115Q FASTINASOME 1110Q $ 1043Q & 1027Q SASSOC 1017Q ASSOC 1012Q EQ 774Q STREQUAL 766Q EQP 760Q EQUAL 751Q EQ 733Q DUMMY 632Q $ 617Q SUBPAT 434Q CDR 401Q CDR 145Q $= 126Q & 110Q Must) ( 1346Q (INASOME FASTINASOME NIL) 1272Q "bad pattern tail" 1077Q "INASOME mismatch" 725Q (= == ') 707Q (& $ --) 102Q "Two $ or -- patterns in a row, ambiguous" 35Q "INASOME mismatch") \MATCHBLOCK/QMATCH! D1 (L (2 FN 1 PAT 0 VAR) P 10Q WMLST P 3 CHECKLENGTH F 11Q WMLST) Ad ²%¿Agð˜@A †@A B@ ¨oA Adgð²q B@I IA ZoI@HAJið²H HI h ° A ¤H ŽH HI h J hodgð²!¿A i@AhBgA dgð²^¿Ad™ ²A ²Ùi@AhB@gg@A°d_¿gO¼MµLh^L&½µçNABgð²DB@AA hW@AgOA h B@O oA (614Q \MATCHBLOCK/PATERR 600Q \MATCHBLOCK/MKAND 575Q \MATCHBLOCK/DOSIDE 572Q \MATCHBLOCK/QLDIFF 562Q \MATCHBLOCK/QMATCHWM 557Q \APPEND2 550Q \MATCHBLOCK/MAKE!PAT 545Q \MATCHBLOCK/MAKESUBPAT 516Q \MATCHBLOCK/QMATCHWM 513Q \APPEND2 470Q \MATCHBLOCK/QMATCHWM 402Q \MATCHBLOCK/QMATCHWM 363Q \MATCHBLOCK/NULLPAT? 353Q LAST 325Q \MATCHBLOCK/PATERR 313Q \MATCHBLOCK/QMATCHWM 275Q \MATCHBLOCK/NULLPAT? 257Q SUBPAIR 242Q \MATCHBLOCK/MKAND 236Q \MATCHBLOCK/QOR 230Q \MATCHBLOCK/QEQUAL 223Q \MATCHBLOCK/QNULL 216Q \MATCHBLOCK/QNULL 211Q \MATCHBLOCK/CANMATCHNILLIST 202Q \MATCHBLOCK/QOR 174Q \MATCHBLOCK/QEQUAL 167Q \MATCHBLOCK/QNULL 142Q \MATCHBLOCK/MKAND 137Q \MATCHBLOCK/QMATCHWM 131Q \MATCHBLOCK/DOSIDE 126Q \MATCHBLOCK/QLDIFF 115Q \MATCHBLOCK/BINDVAR 112Q \MATCHBLOCK/GENSYML 107Q \MATCHBLOCK/BINDVAR 104Q \MATCHBLOCK/GENSYML 65Q \MATCHBLOCK/PATERR 51Q \MATCHBLOCK/MKAND 46Q \MATCHBLOCK/DOSIDE 41Q \MATCHBLOCK/QMATCHELT 31Q \MATCHBLOCK/QMATCHWM 5 \MATCHBLOCK/NILPAT) (536Q *GLITCH 474Q SUBPAT 432Q ' 412Q SUBPAT 407Q ! 332Q ' 317Q !AT 264Q == 76Q = 17Q SUBPAT) ( 605Q "Invalid use of ! in pattern" 254Q (PROG NIL (SETQ TEMVAR ONVAR) (SETQ TAILVAR VAR) $$LP (COND ((NLISTP TEMVAR) (RETURN FINALLY)) ((OR (NLISTP TAILVAR) (NOT (EQUAL (CAR TEMVAR) (CAR TAILVAR)))) (RETURN))) (SETQ TAILVAR (CDR TAILVAR)) (SETQ TEMVAR (CDR TEMVAR)) (GO $$LP)) 147Q (TAILVAR VAR TEMVAR ONVAR FINALLY) 61Q "Invalid '!'") \MATCHBLOCK/QMATCH$= D1 (L (2 FN 1 PAT 0 VAR) P 0 SKIPEDLEN F 5 CHECKINGLENGTH F 6 INASOME) ûjAA ²Uhðµ @A B@ B³dA°%d[dgð˜¿kH ¸hgð˜HK ¸h€i¤µÛhd ²#¿Uhðµ @AH ºV™VJ ¿iJ«@AH €hµvA\jð³&LµA3²-A`ýñ²#@A °$ ²ãB@d @A @A YUhðµA hðµIB@I I A (370Q \MATCHBLOCK/MKAND 365Q \MATCHBLOCK/MKAND 362Q \MATCHBLOCK/QMATCHWM 355Q \MATCHBLOCK/QCDR 351Q \MATCHBLOCK/DOSIDE 346Q \MATCHBLOCK/QLDIFF 343Q \MATCHBLOCK/QCDR 330Q \MATCHBLOCK/CANMATCHNILLIST 315Q \MATCHBLOCK/SUBSTVAR 312Q \MATCHBLOCK/QNTH 302Q \MATCHBLOCK/MKAND 277Q \MATCHBLOCK/QMATCHWM 271Q \MATCHBLOCK/DOSIDE 266Q \MATCHBLOCK/QLDIFF 256Q \FZEROP 251Q \MATCHBLOCK/QNTH 200Q \MATCHBLOCK/QEQLENGTH 175Q \MATCHBLOCK/QPLUS 157Q \MATCHBLOCK/DOWATCH 144Q \MATCHBLOCK/QNOTLESSPLENGTH 141Q \MATCHBLOCK/QPLUS 121Q \MATCHBLOCK/NULLPAT? 103Q \MATCHBLOCK/QPLUS 64Q \MATCHBLOCK/QPLUS 36Q \MATCHBLOCK/MKAND 33Q \MATCHBLOCK/DOSIDE 26Q \MATCHBLOCK/QEQLENGTH 10Q \MATCHBLOCK/NILPAT) (236Q MAXCDDDDRS 73Q $= 54Q &) () \MATCHBLOCK/QMATCHELT1 D1 (L (2 FN 1 PAT 0 VAR) P 0 INASOME F 1 INASOME F 2 CHECKINGLENGTH) ŒRhðµ*Ad² ˜A ’@°i° •@k †@ @ A B@ Ahðµ?Qgð².Ad—o‡ohð²QhQ@ A ¿iˆ@ A (211Q \MATCHBLOCK/MKAND 206Q \MATCHBLOCK/MKAND 203Q \MATCHBLOCK/MKAND 200Q \MATCHBLOCK/QMATCHWM 173Q \MATCHBLOCK/QCDR 162Q \MATCHBLOCK/QMATCHWM 155Q \MATCHBLOCK/QCDR 75Q \MATCHBLOCK/DOSIDE 72Q \MATCHBLOCK/QCAR 65Q \MATCHBLOCK/QMATCHELT 60Q \MATCHBLOCK/QCAR 54Q \MATCHBLOCK/QNULL 51Q \MATCHBLOCK/QCDR 44Q \MATCHBLOCK/QEQLENGTH 36Q \MATCHBLOCK/CANMATCHNIL 23Q \MATCHBLOCK/CANMATCHNILLIST 15Q \MATCHBLOCK/CANMATCHNIL) (110Q FASTINASOME) ( 135Q ($1 &) 126Q (= == ' *ANY* @ SUBPAT)) \MATCHBLOCK/QMATCHELT D1 (L (1 PATELT 0 VAR) F 4 CHECKINGLENGTH F 5 CHECKLENGTH) Ad³gð«Agð¥Agð‘i@A dgð—¿@A dgð²/¿A ²A@ @A @A A@ dgð²'¿@A°d»@K ¸IµHhZH&¹µêJ dgðš¿@A dgð² ¿@AHdždiðª3µ gHh dgð—¿@A dgð—¿@A gð²T¢±ÿ/U–@A @A o (400Q \MATCHBLOCK/PATHELP 370Q \MATCHBLOCK/QNOTLESSPLENGTH 361Q \MATCHBLOCK/QEQLENGTH 335Q \MATCHBLOCK/QMATCHSUBPAT 317Q \MATCHBLOCK/QEQUAL 301Q \MATCHBLOCK/QEQUAL 234Q \MATCHBLOCK/QNOT 231Q \MATCHBLOCK/QMATCHELT 213Q \MATCHBLOCK/QOR 166Q \MATCHBLOCK/QMATCHELT 137Q \MATCHBLOCK/MKAND 134Q \MATCHBLOCK/QAPPLY* 125Q \MATCHBLOCK/QMATCHELT 115Q \MATCHBLOCK/MKAND 112Q \MATCHBLOCK/QMATCHELT 103Q \MATCHBLOCK/QAPPLY* 72Q \MATCHBLOCK/SIMPLEFN 53Q \MATCHBLOCK/QEQ 34Q \MATCHBLOCK/QEQUAL) (341Q $= 324Q SUBPAT 306Q = 271Q QUOTE 241Q ' 220Q ~ 144Q *ANY* 60Q @ 42Q == 23Q & 15Q -- 7 $) ( 375Q "MATCHELT invalid pattern") \MATCHBLOCK/SIMPLEFN D1 (L (0 FN)) @`NIL (3 SIMPLE.PREDICATES) () \MATCHBLOCK/DOSIDE D1 (L (1 X 0 WHATTODO) F 0 POSTPONEDSETQS F 1 POSTPONEDRPLACS F 2 LASTEFFECTCANBENIL) é@hðµ‚±á@dgð²-¿A@ µ‚±Âg@Ah@ ´ih ±£dgð²9¿A@ µ‚±@ ¿A ¿g@AhPc¿@ c¿i°ddgðš¿A@ °Sdgð² ¿@ ¿A ¿A@ Qc¿i°.dgðš¿@A °gð@A¿A ¿i‡o@ @A (346Q \MATCHBLOCK/MKAND 343Q \MATCHBLOCK/DOSIDE 335Q \MATCHBLOCK/PATHELP 322Q \MATCHBLOCK/DOWATCH 300Q \MATCHBLOCK/QAPPLY* 251Q \MATCHBLOCK/QREPLACE 240Q \MATCHBLOCK/DOWATCH 233Q \MATCHBLOCK/DOWATCH 212Q \MATCHBLOCK/QREPLACE 165Q \MATCHBLOCK/CANMATCHNIL 134Q \MATCHBLOCK/DOWATCH 127Q \MATCHBLOCK/DOWATCH 112Q \MATCHBLOCK/CHECKSETQ 72Q MKPROGN 61Q \MATCHBLOCK/CANMATCHNIL 30Q \MATCHBLOCK/CHECKSETQ) (305Q *GLITCH 265Q @ 220Q % 177Q -> 140Q SETQ 101Q _ 41Q SETQ 17Q <-) ( 331Q "MATCH FUNARG MISMATCH") \MATCHBLOCK/CHECKSETQ D1 (L (1 ARGS 0 X) F 1 #LIST F 2 #LISTUSED F 3 INASOME F 4 MUSTRETURN) PAdQ²6dR²"¿S°dHdgð¦gð“Hh¿µçA@gigð´ @ @ci(111Q \MATCHBLOCK/DOWATCH 72Q \MATCHBLOCK/MAKESUBST) (102Q * 67Q WATCH 44Q FASTINASOME 36Q INASOME) () \MATCHBLOCK/DOREPLACE D1 (L (1 SUBSTDONE 0 EXPRESSION)) 9@@@gðAµA³ìib²ç@@ µ@b°Øb¿A¥@ µ@(63Q \MATCHBLOCK/DOSUBST1 41Q \MATCHBLOCK/DOSUBST1 20Q \MATCHBLOCK/DOREPLACE1) (13Q TOPREPLACE) () \MATCHBLOCK/DOREPLACE1 D1 (L (3 SUBSTDONE 2 TOPFLG 1 EXPR2 0 EXPR1)) ¯@Aôµ‚±§B²QAdgð¦dgð²>¿@ AidAgð–Ahðµ@ Adgð˜¿gA‚id ¿hµT@dgðŸ¿g @AhdgðŸ¿g @Ahgð²@A@ b¿b±ÿbC´ g@A(254Q \MATCHBLOCK/LOOKLIST 231Q \MATCHBLOCK/QNCONC 177Q \MATCHBLOCK/LOOK 151Q \MATCHBLOCK/LOOK 125Q \MATCHBLOCK/MKAND2 122Q \MATCHBLOCK/DOREPLACE1 71Q \MATCHBLOCK/QCDR 47Q \MATCHBLOCK/DOREPLACE1 37Q \MATCHBLOCK/QCAR) (247Q RPLNODE2 213Q LDIFF 174Q RPLACD 166Q CDR 146Q RPLACA 140Q CAR 105Q LIST 77Q LIST 54Q LIST 27Q LIST 21Q CONS) () \MATCHBLOCK/PATLEN D1 (L (1 !ED 0 PATELT)) ù@³,@gð’±«@dgð’±¡gðšAhð´‚±½kA¢±µj@dgð²)¿A¢±¤@jHµIºIJ d¢± ¹HX°èdgð“¿@dgð³"dgð³dgð³dgð«dgð¥dgð˜¿@b±ÿldgðœ¿@bib¿¿±ÿXdgð•¿A²+hdgð™¿A²@ dgð«dgð¥dgð–Ahð´kdgð³Ðdgð³É¿o@ (366Q \MATCHBLOCK/PATHELP 305Q LENGTH 127Q \MATCHBLOCK/QPLUS 117Q \MATCHBLOCK/PATLEN) (352Q $< 343Q $> 326Q ~ 320Q == 312Q = 272Q ' 256Q *ANY* 233Q ! 214Q *GLITCH 206Q @ 200Q % 171Q <- 162Q -> 153Q _ 141Q $= 63Q SUBPAT 31Q & 21Q -- 7 $) ( 362Q "PATLEN invalid pattern") \MATCHBLOCK/$? D1 (L (0 PATELT)) @gðµ@gðNIL (12Q $ 3 --) () \MATCHBLOCK/ELT? D1 (L (0 PATELT)) o@µ@d3©µ@odgð³"dgð³dgð³dgð«dgð¥dgð‘idgð³#dgð³dgð³dgð¬dgð¦dgð´¯¿@b°•NIL (142Q *GLITCH 134Q @ 126Q % 117Q <- 110Q -> 101Q _ 71Q *ANY* 63Q ~ 55Q SUBPAT 46Q ' 37Q == 30Q =) ( 21Q (& NIL T)) \MATCHBLOCK/SIMPLELT? D1 (L (0 PATELT)) 4@hðµ.@dgð—¿@b°ídgð³dgð«dgð¥dgð‘hiNIL (54Q % 46Q <- 40Q -> 31Q _ 13Q @) () \MATCHBLOCK/ARB? D1 (L (1 @OKFLG 0 PATELT)) D@µ@ dgð‘hdgð‘Adgð³dgð³dgð¬dgð¦dgð´Ø¿@b°À(7 \MATCHBLOCK/$?) (67Q *GLITCH 61Q -> 53Q _ 44Q % 35Q <- 25Q @ 15Q !) () \MATCHBLOCK/NULLPAT? D1 (L (0 PAT) F 1 CHECKLENGTH) @µQhðdHH ´µñi(20Q \MATCHBLOCK/$?) NIL () \MATCHBLOCK/NILPAT D1 (L (0 PATLIST) F 0 CHECKLENGTH) P´@hðNIL NIL () \MATCHBLOCK/CANMATCHNIL D1 (L (0 PATELT) F 1 LISTPCHECK F 2 PATVARSNIL) Z@µ@gð³@²@gðª@gð´‚±#i’±-@dgð²#¿@ ´‚±@`hð´‚±öodgðŸ¿Qhð´‚±á@ dgð³³dgð²¿@3hðµ‚±Àk@ñdgð’±±dgð³dgð³dgð«dgð¥dgð˜¿@b±ÿKdgð²¿@dgð• b±ÿ.dgð•¿@hðdgð¦dgð²7¿@dlðiðµ&@´"Rhð°hðµ@goµ @`hðdgð²¿@‹dHH ¤µòhgð’@o@ o (527Q \MATCHBLOCK/PATHELP 517Q \MATCHBLOCK/PATHELP 467Q \MATCHBLOCK/CANMATCHNIL 316Q \MATCHBLOCK/CANMATCHNILLIST 145Q \MATCHBLOCK/CANMATCHNILLIST 66Q \MATCHBLOCK/CANMATCHNIL) (502Q ~ 447Q *ANY* 437Q NEVERNILFUNCTIONS 421Q CLISPCLASS 353Q == 345Q = 331Q ' 307Q SUBPAT 274Q ! 255Q *GLITCH 247Q <- 241Q % 232Q -> 223Q _ 212Q $> 161Q $= 152Q $< 124Q SUBPAT 102Q PATNONNILFUNCTIONS 54Q @ 27Q -- 21Q $ 7 &) ( 524Q "CANMATCHNIL invalid pattern" 513Q "CANMATCHNIL invalid pattern" 426Q (+ * ^ RPLACA RPLACD / - +-) 117Q (MAYBE, MAYBE NOT)) \MATCHBLOCK/CANMATCHNILLIST D1 (L (0 PATLIST) F 1 CHECKINGLENGTH) @°dQ—H hð´H ´µèi(25Q \MATCHBLOCK/CANMATCHNIL 15Q \MATCHBLOCK/ELT?) NIL () \MATCHBLOCK/REPLACEIN D1 (L (0 PATELT)) @´Z@dgð«dgð¥dgð‘idgð«dgð¥dgð—¿@b°Ïdgð–¿@b°Âdgð²¿@‹dHH ¤µòhdgð³ùdgð³òdgð³ëdgð³ädgð³Ýdgð³Ödgð³Ïdgð³È¿o@ (235Q \MATCHBLOCK/PATHELP 124Q \MATCHBLOCK/REPLACEIN) (221Q *ANY* 212Q ~ 203Q $> 174Q $< 165Q ' 156Q == 147Q = 140Q $= 104Q SUBPAT 67Q ! 51Q <- 43Q _ 35Q @ 25Q *GLITCH 17Q % 11Q ->) ( 231Q "Invalid pattern REPLACEIN") \MATCHBLOCK/EASYTORECOMPUTE D1 (L (0 EXPRESSION)) -@µ@d³%g³@dgð¥dgð’¿i¿h´ @b°ØNIL (32Q CDR 24Q CAR 13Q CROPS) () \MATCHBLOCK/GENSYML D1 (F 1 GENSYMVARLIST F 2 VARS) QcµXR³óH(14Q GENSYM) NIL () \MATCHBLOCK/MAKESUBST D1 (L (2 FLG 1 VAL 0 VAR) F 0 SUBLIST) 9@¥b¿Bgð™@ ¿A ¿@ABdið’¿igð´ A hðhðPc@(53Q \MATCHBLOCK/EASYTORECOMPUTE 26Q \MATCHBLOCK/DOWATCH 21Q \MATCHBLOCK/DOWATCH 4 \MATCHBLOCK/GENSYML) (44Q WATCH 13Q WATCH) () \MATCHBLOCK/DOSUBST D1 (L (0 EXPRESSION)) @d¦h ‚ µ@(15Q \MATCHBLOCK/DOSUBST1 10Q \MATCHBLOCK/DOSUBST1) NIL () \MATCHBLOCK/DOSUBST1 D1 (L (0 EXPRESSION) P 7 SUBLIST F 21Q SUBLIST) ÷p@µh’±˜W"h»Zµ9hX¢±Š@@bHd²?¿ ¹HgIHh¿HI¿Hi°)[d¥@ðœ°À@ð•Kµ¹i°¶J°«HH¡i€@¿@H@dª µ‚±n@d µ@@dd µ@¿@dgð²%@W" @ _´‚±2@@Odgð¢±•¿0 0 @°0d\d² _™i_¿LO€L_¿Oµ Oh_‚O&_¿µÑO_0@°dd_¿Oµ Oh_ ‚O&_¿µäO W" @ _§O´‚±›@OOµ@dgð³rdgð¥dgð•¿@ ¿@dgð¦dgð²¿@dgð¥dgð’¿i¿h²@ µ@X@gð”d H @ ]@ ^@gð—d´@NhMµ N´ Mµ@Nµ@(723Q \MATCHBLOCK/DOSUBST1 715Q \MATCHBLOCK/DOSUBST1 707Q \MATCHBLOCK/QCAR 702Q \MATCHBLOCK/QCDR 661Q \MATCHBLOCK/DOSUBST1 602Q \MATCHBLOCK/DOREPLACE 521Q \MATCHBLOCK/DOSUBST1 510Q \NCONC2 357Q \MATCHBLOCK/DOSUBST1 275Q \MATCHBLOCK/DOSUBST1 264Q \APPEND2 234Q \MATCHBLOCK/DOSUBST1 220Q \MATCHBLOCK/DOSUBST1 203Q \MATCHBLOCK/DOSUBST1 61Q \MATCHBLOCK/BINDVAR 56Q \MATCHBLOCK/GENSYML) (731Q DUMMY 674Q CDR 642Q CDR 634Q CAR 620Q CDR 612Q CAR 573Q REPLACE 565Q TOPREPLACE 556Q QUOTE 323Q PROG 251Q LAMBDA 70Q SETQ) () \MATCHBLOCK/SUBSTVAR D1 (L (0 X)) @ (6 \MATCHBLOCK/MAKESUBST 2 \MATCHBLOCK/GENSYML) NIL () \MATCHBLOCK/BINDVAR D1 (L (1 VAL 0 VAR) F 0 BOUNDVARS F 1 BOUNDVALS) @PcAQc@NIL NIL () \MATCHBLOCK/SELFQUOTEABLE D1 (L (0 EXPRESSION)) @d3«µ @hðµ@iðNIL NIL () \MATCHBLOCK/FINDIN0 D1 (L (1 X 0 VAR) F 1 SUBLIST) &@A µQ°dHH ´@H ¤µéh(34Q \MATCHBLOCK/FINDIN1 24Q \MATCHBLOCK/FINDIN1 4 \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/FINDIN1 D1 (L (1 LST 0 AT)) @AðµA´@A µ Ab¿°ê(16Q \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/DOWATCH D1 (L (0 X) F 1 WATCHPOSTPONELST) &Qd²"°dHgð¬HH •Hg¿µåh(26Q \MATCHBLOCK/FINDIN0) (33Q FOUND 16Q FOUND) () \MATCHBLOCK/PATNARGS D1 (L (0 X)) @gµ@ (12Q NARGS) (3 NARGS) () \MATCHBLOCK/QNLEFT D1 (L (3 NOTFASTFLG 2 TAIL 1 N 0 EXPRESSION)) OBžg @ABhAjð«Ad²d ž¿gg@hhkðžC—g@h@ g @Ah(106Q \MATCHBLOCK/LOOK 77Q \MATCHBLOCK/QLAST 36Q \FZEROP 7 \MATCHBLOCK/LOOK) (103Q NLEFT 66Q LAST 46Q LAST 43Q CDR 4 NLEFT) () \MATCHBLOCK/QNCONC D1 (L (1 EXPR2 0 EXPR1)) LA¡@@gð² @ °dgHAhbµíAAgðžAªg@Ag@A(111Q \MATCHBLOCK/LOOKLIST 100Q \MATCHBLOCK/LOOKLIST 21Q REVERSE) (104Q NCONC 71Q NCONC1 60Q LIST 33Q CONS 11Q LIST) () \MATCHBLOCK/QNOT D1 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NOT) () \MATCHBLOCK/QNULL D1 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NULL) () \MATCHBLOCK/QNOT1 D1 (L (1 FNNAME 0 X)) ^@d³“@ið—o A@hdgð¥dgð”¿@dgð–¿@gdgð–¿@gdgð–¿@ggð²½@g(20Q \MATCHBLOCK/PATERR) (132Q LISTP 123Q NLISTP 116Q NLISTP 107Q LISTP 101Q EQ 72Q NEQ 64Q NEQ 55Q EQ 42Q NULL 34Q NOT) ( 15Q "NULL check of T or NIL; possibly a bad pattern") \MATCHBLOCK/QNOTLESSPLENGTH D1 (L (1 N 0 X)) Ajð¯Aµ@A ²÷i(21Q \FZEROP 15Q \MATCHBLOCK/QNTH) NIL () \MATCHBLOCK/QNTH D1 (L (1 LEN 0 VAR) F 0 CHECKINGLENGTH) [A”kAñ²P–g ‚g@AhAd`ñ²#¿@gðœAkØb¿@b°îg@AhAkÙbjñ›g@hb¿°î@(20Q \MATCHBLOCK/LOOK) (116Q CDR 74Q NTH 52Q CDR 40Q MAXCDDDDRS 24Q FNTH 15Q NTH) () \MATCHBLOCK/QOR D1 (L (0 LISTOFEXPRESSIONS)) @d–¿g@NIL (7 OR) () \MATCHBLOCK/QPLUS D1 (L (1 EXPR2 0 EXPR1)) @3—A3“@AØg@AhNIL (16Q IPLUS) () \MATCHBLOCK/QREPLACE D1 (L (1 EXPRESSION 0 VAR)) g@AhNIL (2 REPLACE) () \MATCHBLOCK/MKAND D1 (L (1 Y 0 X)) @A µg@Ah(4 \MATCHBLOCK/MKAND2) (11Q AND) () \MATCHBLOCK/QCAR D1 (L (0 X)) g@hNIL (2 CAR) () \MATCHBLOCK/QCDR D1 (L (0 X)) g@hNIL (2 CDR) () \MATCHBLOCK/QEQ D1 (L (1 EXPRESSION 0 VAR)) )Aµ@ jð³Aµg@Ah ²óg@h(35Q \FZEROP 6 \MATCHBLOCK/QNULL) (42Q ZEROP 23Q EQ) () \MATCHBLOCK/QEQLENGTH D1 (L (1 LEN 0 VAR)) ;Ajð³%Aµ@gð²@kA b¿b¿°ß ²ä@ g @Ah(62Q \MATCHBLOCK/LOOK 53Q \MATCHBLOCK/QNULL 45Q \FZEROP 32Q \MATCHBLOCK/QPLUS) (57Q EQLENGTH 17Q CDR) () \MATCHBLOCK/QEQUAL D1 (L (1 EXPRESSION 0 VAR)) eAd²dgðd •¿Ab¤@ Adið–¿@A ³Ad²dgðždlð•¿g°3“gŠA“g‚g@Ah(52Q \MATCHBLOCK/QEQ 36Q \MATCHBLOCK/QNULL 22Q \MATCHBLOCK/SELFQUOTEABLE) (134Q EQUAL 130Q STREQUAL 120Q EQP 110Q EQ 71Q QUOTE 11Q QUOTE) () \MATCHBLOCK/QLAST D1 (L (0 X)) g@ @h(6 \MATCHBLOCK/LOOK) (2 LAST) () \MATCHBLOCK/QAPPLY* D1 (L (1 VAR 0 FNNAME)) @d–gð•@AhAg@(27Q SUBST) (23Q @ 7 LAMBDA) () \MATCHBLOCK/QLDIFF D1 (L (1 Y 0 X)) g @Ah(5 \MATCHBLOCK/LOOK) (2 LDIFF) () \MATCHBLOCK/QFOR D1 (L (5 NOSOMEFLG 4 {FINALLY}EXPR 3 {UNTIL}EXPR 2 {ON}VAR 1 I.V. 0 {OLD})) b Cdið²¿o@ABDh ¿CAð–g ¿E’±ÐCdgð²dAð²d˜¿gC‚bdgð²¿CA ô²,gCB°gð²CA ôgCBhµYgBAh¹gCIð²2Cdl œ¿Cd kð³¿C kð²Cl ›CIð’CˆgIChhh¸@£DiðªAH AD Hg@§ABhh€h@´gA BhhggC ggAhgAgAhhohoigDhhhh (535Q \APPEND2 440Q NEGATE 417Q \MATCHBLOCK/BINDVAR 364Q \MATCHBLOCK/MKAND 357Q \MATCHBLOCK/MAKESUBST 306Q EQLENGTH 274Q \MATCHBLOCK/PATNARGS 262Q \MATCHBLOCK/PATNARGS 252Q EQLENGTH 223Q \MATCHBLOCK/GENSYML 174Q \MATCHBLOCK/QCAR 155Q \MATCHBLOCK/LOOKLIST 137Q \MATCHBLOCK/QCAR 44Q \MATCHBLOCK/PATERR 31Q \MATCHBLOCK/PATHELP) (514Q RETURN 461Q CDR 455Q SETQ 446Q LISTP 443Q COND 434Q COND 431Q $$SOMELP 413Q SETQ 372Q PROG 326Q LAMBDA 233Q FUNCTION 217Q SOME 201Q MEMBER 162Q EQUAL 145Q MEMB 124Q EQ 104Q AND 61Q AND 41Q BACKTRACK) ( 506Q ((RETURN)) 475Q ((GO $$SOMELP)) 15Q " a SOME with null terminator") \MATCHBLOCK/QLISTP D1 (L (0 X)) g@hNIL (2 LISTP) () \MATCHBLOCK/PATERR D1 (L (1 AT 0 MSG) F 0 MATCHEXPRESSION) °@dgð–¿o°wgð•o°l@dgð–¿o°^gð•o°S@dgð–¿o°Egð•o°:@dgð–¿o°,gð•o°!@dgð–¿o°gð”o†@µoi i AŸoi ¿Aid¿oi Pid(255Q ERROR! 252Q LISPXPRINT 244Q LISPXPRIN1 233Q LISPXPRINT 224Q LISPXPRIN1 212Q LISPXTERPRI 206Q LISPXPRIN1) (164Q !AT 150Q AMBIG 133Q NOWITH 117Q BADELT 102Q BAD# 66Q BAD* 51Q TWO! 35Q BADNOT 20Q CLISP 4 BACKTRACK) ( 240Q " in: " 220Q " at: " 202Q "bad pattern" 172Q "!atom in middle of pattern" 157Q "ambiguous pattern" 141Q "no WITH" 126Q "Pattern item not atom or list " 110Q "invalid #" 75Q "invalid *" 57Q "Two !'s in a row" 44Q "Cannot negate a non-element pattern" 26Q "The pattern matcher is confused by what it thinks is CLISP within a pattern - please recode this patNIL" 13Q "This pattern contains an empty test after a -- or $") \MATCHBLOCK/PATHELP D1 (L (1 MESS2 0 MESS1)) oi i @A (20Q HELP 13Q LISPXTERPRI 7 LISPXPRIN1) NIL ( 3 "error in Pattern Match") \MATCHBLOCK/LOOKLIST D1 (L (2 ARG' 1 ARG 0 FN)) @ABABh(5 \MATCHBLOCK/LOOK) NIL () \MATCHBLOCK/VALUELOOKUP D1 (L (0 VAR) F 0 LOCALDECLARATION F 1 MATCHEXPRESSION) Pž@QhPhg @ (24Q GETTOPVAL 17Q CLISPLOOKUP0) (13Q VALUE) () \MATCHBLOCK/LOOK D1 (L (2 ARG' 1 ARG 0 FN) F 2 LOCALDECLARATION) (@gµ@R²@gYŸ@ABRH@gI H(43Q CLISPLOOKUP0) (35Q CLISPCLASS 21Q CLISPCLASSDEF 3 LISPFN) () \MATCHBLOCK/MKAND2 D1 (L (1 EXPR2 0 EXPR1)) × @ið‘AAið‘@@A ³óA@ ³ò@dgð—¿@A °wdgð²¿@ XA Y²c@H Ih °Sdgð²6¿@ XA Y²@Hð“@Šg@H I °!@Ah °gð²@A ™@dAµAgð´@A µg@AAd˜¿gA‚ (324Q \MATCHBLOCK/MKAND 264Q \MATCHBLOCK/MKAND2 242Q SUBST 231Q \MATCHBLOCK/EQUALUNCROP 212Q \APPEND2 201Q \MATCHBLOCK/MKAND 174Q LDIFF 144Q \MATCHBLOCK/MKAND2 136Q LAST 117Q \NCONC2 111Q LDIFF 100Q \MATCHBLOCK/MKAND2 72Q LAST 53Q \MATCHBLOCK/CHECKSLISTP 32Q \MATCHBLOCK/EQUALUNCROP 23Q \MATCHBLOCK/EQUALUNCROP) (311Q AND 271Q AND 252Q AND 217Q SETQ 165Q AND 125Q AND 61Q PROGN 43Q LISTP) () \MATCHBLOCK/CHECKSLISTP D1 (L (1 EXPR2 0 EXPR1)) `@Aô‘@Aµhdgð³dgð«dgð¥dgð¿Ad@ô²8°/dgð³dgð³dgð«dgð¥dgðš¿Ad@ô™¿hµ‚±øAdgð³?dgð³8dgð³1dgð³*dgð³#dgð³dgð³dgð¬dgð¦dgð²¿@A b´‚±¢A@Adgð³dgð¬dgð¦dgð²:¿A´wA ³Agð´bA´Z@A b´OA@Adgð³(dgð³!dgð³dgð³dgðªdgð´‚±þÉ¿@A b´AA@h(517Q \MATCHBLOCK/CHECKSLISTP 414Q \MATCHBLOCK/CHECKSLISTP 357Q \MATCHBLOCK/SELFQUOTEABLE 266Q \MATCHBLOCK/CHECKSLISTP) (477Q SASSOC 471Q ASSOC 462Q MEMBER 453Q MEMB 444Q FASSOC 435Q FMEMB 372Q QUOTE 336Q EQP 330Q STREQUAL 322Q EQ 313Q EQUAL 253Q EQLENGTH 245Q NTH 237Q SOME 230Q LAST 221Q NLEFT 212Q LISTP 203Q FLAST 174Q FNTH 165Q CDR 156Q CAR 123Q EQLENGTH 115Q NTH 107Q LAST 100Q NLEFT 71Q SOME 45Q SASSOC 37Q ASSOC 31Q MEMBER 22Q MEMB) () \MATCHBLOCK/EQUALUNCROP D1 (L (1 EXPR2 0 EXPR1)) â@Aôµ‚±ÚA´‚±ÒAdg–b¿°âdgð³7dgð³0dgð³)dgð³"dgð³dgð³dgð«dgð¥dgð˜¿Ab¿°œdgð³"dgð³dgð³dgð«dgð¥dgðš¿Ab¿±ÿkdgð³dgð¬dgð¦dgð´0¿Adið³d3³gð´A´Ab¿±ÿ#NIL (313Q QUOTE 256Q IEQP 250Q EQP 242Q EQUAL 233Q EQ 212Q FASSOC 204Q SASSOC 176Q ASSOC 167Q MEMBER 160Q FMEMB 151Q MEMB 132Q LISTP 124Q SOME 116Q FNTH 107Q FLAST 100Q LAST 71Q NLEFT 62Q NTH 53Q CDR 44Q CAR 26Q CROPS) () \MATCHBLOCK/PATPARSE D1 (L (0 PAT) P 0 DEFAULTLST) @¨o@ ¿@ (22Q \MATCHBLOCK/PATPARSE1 12Q \MATCHBLOCK/PATHELP) NIL ( 6 "bad input") \MATCHBLOCK/PATPARSE1 D1 (L (1 PREFIX 0 PAT) F 10Q #LIST) ç€@d’±ed^N •µöi¿h’±“o@ ±‡dgð²1¿K_•O3²@gKh ±@gKL± gð™g@ ±þK [±7lð³K’±+K3’±$gK ±Kið’±K¢±Kgð’±Kgð’±üKdgð’±ñdgð—¿g[±ãdgð—¿g[±Õgð³2Kgð³+Kgð³$Kgð³Kgð³KgðKgð§Kdgðž¿gKl [±‘gð³Kgð³Kgð®Kgð¨Kdgð²$¿L@ ¹Kdgðš¿Ikð“gƒKI»I\°Ogð¨Kdgð²¿L YI@AIgðL Y@ IKgðšgL»L\Š@ Xµ@]¿L²LµgLh\…b±«L´L`X²FM²/KW³oKkhk –KWc¿LL ºHKJJHL \K»L\°žM¢±žLk gð²$L kñ²LgLlmÿ L±ÿjA²`@ “g‚g@ ¿@hAb¿h]¿@²@dg@hb¿@[`ð™`¥@ »@¼Kd¢±ýàdgð¢±ý†¿KK [±ýcLdgð² µL¼gL K»L\±þÜ µ KL \±þÌ(1337Q \MATCHBLOCK/PATPARSE1 1330Q \MATCHBLOCK/PATUNPACKINFIX 1313Q \MATCHBLOCK/PATGETFNNAME 1277Q \MATCHBLOCK/PATUNPACKINFIX1 1255Q \MATCHBLOCK/PATPARSE1 1217Q GETCOMMENT 1143Q \MATCHBLOCK/PARSEDEFAULT 1134Q \MATCHBLOCK/PATERR 1120Q STRPOSL 1102Q /RPLNODE 1074Q MKATOM 1071Q SUBSTRING 1050Q NCHARS 1035Q NTHCHAR 1007Q \MATCHBLOCK/PATGETEXPR 761Q \MATCHBLOCK/PATPARSE1 743Q STRPOS 647Q \MATCHBLOCK/PATUNPACK 616Q \MATCHBLOCK/NEGATEPAT 610Q \MATCHBLOCK/PATPARSE1 573Q \MATCHBLOCK/MAKE!PAT 563Q \MATCHBLOCK/PATPARSE1 505Q \MATCHBLOCK/PATGETEXPR 431Q NTHCHAR 223Q \MATCHBLOCK/PATERR 164Q \MATCHBLOCK/MAKESUBPAT 161Q \MATCHBLOCK/PATPARSE1 152Q /ATTACH 133Q /RPLNODE 114Q /RPLACA 111Q PACK 45Q \MATCHBLOCK/PATERR 20Q \MATCHBLOCK/SIMPLELT?) (1307Q @ 1270Q @ 1240Q *ANY* 1212Q NORMALCOMMENTSFLG 1205Q COMMENTFLG 1166Q %. 1130Q AMBIG 1124Q CLISP 1113Q CLISPCHARRAY 1060Q _ 1040Q _ 712Q PATTERNREPLACEOPRS 667Q %. 633Q ' 626Q ' 602Q ~ 553Q %. 544Q ! 526Q & 513Q $= 474Q $= 465Q $< 457Q $> 450Q = 441Q == 423Q $= 415Q $9 406Q $8 400Q $7 371Q $6 362Q $5 353Q $4 344Q $3 335Q $2 326Q & 320Q $1 310Q -- 302Q $$ 271Q $ 257Q -- 246Q & 217Q BADELT 146Q &@ 141Q LAMBDA 123Q ' 100Q ' 54Q QUOTE) ( 733Q "#" 41Q "*ANY*/*EVERY* construct too compicated") \MATCHBLOCK/PATUNPACKINFIX1 D1 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) () \MATCHBLOCK/PARSEDEFAULT D1 (L (2 PREFIX 1 LOCALVARDEFAULT 0 PAT) F 2 VARDEFAULT F 3 DEFAULTLST) …@lð—@ið¢@©o@ ¿ @S–gb°[o@khk ²@lmÿ3³!g°o@ ²@gð§g@ –gb°@³`@ —g@ ¿Aµ Rhð´Rdgð¬dgð¦dgð²$¿@Sc¿@gg@¹H¢±Í@I @dgð¦dgð²¿H˜g@ °Üg@dgð¦dgð²¿H˜g@ °½g@dgð¦dgð²¿H˜g@ °žg@dgð¦dgð²¿H™g@ ±ÿgg@¿i¸AŸR”o‚g@ °'@dgkð—¿h¸g°idd“g†Rµ gb±ÿ°úI(555Q \MATCHBLOCK/VARCHECK 522Q \MATCHBLOCK/PATERR 462Q /ATTACH 423Q /ATTACH 364Q /ATTACH 325Q /ATTACH 274Q /RPLNODE2 176Q \MATCHBLOCK/PATERR 166Q STRPOSL 141Q \MATCHBLOCK/PATERR 121Q STRPOS 77Q SUBATOM 64Q STRPOS 27Q \MATCHBLOCK/PATHELP) (571Q ? 561Q = 544Q @ 532Q NARGS 516Q AMBIG 473Q @ 470Q $1 456Q $1@ 445Q APPLY* 437Q @ 430Q == 417Q == 406Q EQ 400Q == 371Q = 360Q = 347Q EQUAL 341Q = 332Q ' 321Q ' 310Q ' 302Q QUOTE 254Q & 251Q _ 231Q SET 223Q SETQ 215Q _ 172Q CLISP 161Q CLISPCHARRAY 145Q SETQ 135Q BAD* 130Q * 106Q BAD# 43Q =) ( 512Q "invalid PATTERNVARDEFAULT" 114Q "*" 53Q "#" 22Q "MAKEDEFAULT") \MATCHBLOCK/VARCHECK D1 (L (3 PROPFLG 2 SPELLFLG 1 NOMESSFLG 0 VAR) F 0 VARS) $@lð@dP¦-gð¢@µAhð´@oi(41Q ERROR) (16Q NOBIND) ( 35Q "NOT A VARIABLE") \MATCHBLOCK/PATUNPACK D1 (L (0 PAT)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATCHARS) () \MATCHBLOCK/PATUNPACKINFIX D1 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) () \MATCHBLOCK/PATGETFNNAME D1 (L (0 L)) ;@d³4d ³-¿@dlF`i@ghdi ³¿@lF`i@gi ¿@(65Q FIXSPELL 41Q FIXSPELL 12Q \DEFINEDP) (60Q GETD 53Q USERWORDS 32Q GETD 25Q SPELLINGS2) () \MATCHBLOCK/PATGETEXPR D1 (L (1 UP 0 L) P 0 VARS F 3 #LISTUSED F 4 #LIST F 5 VARS F 6 FAULTFN) Q@µoA ¿@ µ@bd²TU @@hddV TIµ@ZS¬Jd@ “Sc¿IY°æ(104Q \MATCHBLOCK/FINDIN1 55Q DWIMIFY0? 36Q \APPEND2 17Q \MATCHBLOCK/PATUNPACKINFIX 12Q \MATCHBLOCK/PATERR) NIL ( 6 "missing an expression") \MATCHBLOCK/PATPARSEAT D1 (L (1 CHRS 0 PAT)) @@³`@ ´@ ¹Aµh@ð³÷A³=I[µh°LA"Mµ…¾Lµi²Kµ4i°1_¿NOð¢h°íM½L¼°ÙK°ÈIA"Mµ…¾Lµi´IZ³Ab°”_¿NOð¢h°éM½L¼°Õ@JA kØ Xµ=@b¿H²CAdgð²8¿Hdgð³dgð³dgð«dgð¥dgðš¿i‰ @°Á¿h£g„A¸JIð³@IJ H@LMN‚@H@(406Q \MATCHBLOCK/PACKLDIFF 351Q PACK 250Q FNTH 243Q FLENGTH 26Q UNPACK 17Q STRPOSL) (364Q $= 341Q > 333Q < 325Q = 316Q @ 307Q _ 275Q $ 12Q PATTERNCHARRAY) () \MATCHBLOCK/MAKE!PAT D1 (L (3 PREFIX 2 REALPAT 1 PATALL 0 PATELT) F 0 DEFAULTLST) ÒBgð²2@dAð²,dgð§dgð²P³@@A Ah@@³!@dgð–¿g±‚gð¦@gð²wg°p@dgð™¿g@ °^dgð³dgð³dgð«dgð¥dgðœ¿@@ ¿°0dgðš¿@@ ° dgð²¿@³@ «@…gð’@µg@(275Q \MATCHBLOCK/ELT? 247Q \MATCHBLOCK/MAKE!PAT 225Q \MATCHBLOCK/MAKE!PAT 152Q \MATCHBLOCK/PATERR 61Q \MATCHBLOCK/MAKE!PAT 56Q \MATCHBLOCK/MAKESUBPAT) (315Q ! 305Q $= 256Q SUBPAT 235Q * 212Q @ 204Q -> 176Q % 167Q <- 160Q _ 146Q TWO! 140Q ! 130Q $ 122Q -- 114Q $ 106Q $ 100Q & 32Q <- 23Q _ 4 !) () \MATCHBLOCK/MAKESUBPAT D1 (L (0 PATLST)) @d oô¦@oô“gg@NIL (27Q SUBPAT 23Q &) ( 16Q ($) 7 (--)) \MATCHBLOCK/NEGATEPAT D1 (L (1 REALPAT 0 PE)) q@d³gð¦@gð²[o@°Pdgð³Kdgð³Ddgð³=dgð³6dgð³dgð«dgð¥dgðž¿@@@ gð§gA ¿g@(150Q \MATCHBLOCK/PATERR 131Q \MATCHBLOCK/NEGATEPAT) (154Q ~ 144Q BADNOT 137Q @ 113Q -> 105Q <- 77Q % 70Q _ 61Q SUBPAT 52Q ' 43Q == 34Q = 15Q $ 7 &) ( 24Q "Cannot negate this type of pattern") \MATCHBLOCK/PACKLDIFF D1 (L (1 LST2 0 LST1)) @kAXµh@ Hh¿(24Q PACK 16Q HELP 10Q NLEFT) NIL () (PRETTYCOMPRINT MATCHCOMS) (RPAQQ MATCHCOMS ((FNS MAKEMATCH QMATCHSUBPAT QMATCHWM QMATCH$ QMATCH! QMATCH$= QMATCHELT1 QMATCHELT SIMPLEFN DOSIDE CHECKSETQ DOREPLACE DOREPLACE1) (FNS PATLEN $? ELT? SIMPLELT? ARB? NULLPAT? NILPAT CANMATCHNIL CANMATCHNILLIST REPLACEIN) (FNS EASYTORECOMPUTE GENSYML MAKESUBST DOSUBST DOSUBST1 SUBSTVAR BINDVAR SELFQUOTEABLE FINDIN0 FINDIN1 DOWATCH PATNARGS) (FNS QNLEFT QNOT QNULL QNOT1 QNOTLESSPLENGTH QNTH QOR QPLUS QREPLACE MKAND QCAR QCDR QEQ QEQLENGTH QEQUAL QLAST QAPPLY* QLDIFF QFOR QLISTP QNCONC) (FNS PATERR PATHELP LOOKLIST VALUELOOKUP LOOK) (FNS MKAND2 CHECKSLISTP EQUALUNCROP) ( FNS PATPARSE PATPARSE1 PATUNPACKINFIX1 PARSEDEFAULT VARCHECK PATUNPACK PATUNPACKINFIX PATGETFNNAME PATGETEXPR PATPARSEAT MAKE!PAT MAKESUBPAT NEGATEPAT PACKLDIFF) (VARS PATCHARS PATTERNINFIXES PATTERNINFIXES1 PATTERNREPLACEOPRS PATTERNITEMS NEVERNILFUNCTIONS PATNONNILFUNCTIONS (PATTERNCHARRAY ( MAKEBITTABLE (NCONC (MAPCAR PATCHARS (QUOTE CAAR)) (MAPCAR PATTERNITEMS (QUOTE CAR))))) PATGENSYMVARS (PATVARDEFAULT (QUOTE =)) MAXCDDDDRS (PATCHECKLENGTH T) (PATLISTPCHECK (EQ (QUOTE VAX) (SYSTEMTYPE))) (PATVARSMIGHTBENIL T)) (VARS PATCHARS PATTERNINFIXES PATTERNINFIXES1 PATTERNREPLACEOPRS PATTERNITEMS NEVERNILFUNCTIONS PATNONNILFUNCTIONS SIMPLE.PREDICATES (PATTERNCHARRAY (MAKEBITTABLE (NCONC (MAPCAR PATCHARS (QUOTE CAAR)) (MAPCAR PATTERNITEMS (QUOTE CAR))))) PATGENSYMVARS) (P (OR (BOUNDP (QUOTE MATCHSTATS)) (SETQ MATCHSTATS))) (VARS PATVARDEFAULT MAXCDDDDRS (PATCHECKLENGTH T) (PATLISTPCHECK NIL) (PATVARSMIGHTBENIL T)) (BLOCKS * MATCHBLOCKS))) (RPAQQ PATCHARS ((($ <) T $<) (($ >) T $>) (($ =) T $=) ((') T ') ((!) T !) ((= =) T ==) ((=) T =) ((~ ) T ~) ((< -) NIL <-) ((@) NIL @) ((_) NIL _) (($) T $))) (RPAQQ PATTERNINFIXES (((_) T _) ((< -) T <-) ((@) T @))) (RPAQQ PATTERNINFIXES1 (((_) NIL _) ((< -) NIL <-) ((@) NIL @))) (RPAQQ PATTERNREPLACEOPRS ((_ _ %) (__ <- ->) (_!!_!_ _ %) (<- <- ->))) (RPAQQ PATTERNITEMS ((&) (--) ($$ --) (T) (NIL) (&) (--) ($) ($1 &) ($2 ($= . 2)) ($3 ($= . 3)) ($4 ( $= . 4)) ($5 ($= . 5)) ($6 ($= . 6)))) (RPAQQ NEVERNILFUNCTIONS (CONS LIST QUOTE ABS ADD1 SUB1 CONCAT REMAINDER FREMAINDER IREMAINDER LOGOR LOGAND LOGXOR)) (RPAQQ PATNONNILFUNCTIONS (GETD NUMBERP STRINGP ZEROP LISTP SMALLP)) (RPAQ PATTERNCHARRAY (MAKEBITTABLE (NCONC (MAPCAR PATCHARS (QUOTE CAAR)) (MAPCAR PATTERNITEMS (QUOTE CAR))))) (RPAQQ PATGENSYMVARS (GENSYMVARS: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17)) (RPAQQ PATVARDEFAULT =) (RPAQQ MAXCDDDDRS 5) (RPAQQ PATCHECKLENGTH T) (RPAQ PATLISTPCHECK (EQ (QUOTE VAX) (SYSTEMTYPE))) (RPAQQ PATVARSMIGHTBENIL T) (RPAQQ PATCHARS ((($ <) T $<) (($ >) T $>) (($ =) T $=) ((') T ') ((!) T !) ((= =) T ==) ((=) T =) ((~ ) T ~) ((< -) NIL <-) ((@) NIL @) ((_) NIL _) (($) T $))) (RPAQQ PATTERNINFIXES (((_) T _) ((< -) T <-) ((@) T @))) (RPAQQ PATTERNINFIXES1 (((_) NIL _) ((< -) NIL <-) ((@) NIL @))) (RPAQQ PATTERNREPLACEOPRS ((_ _ %) (__ <- ->) (_!!_!_ _ %) (<- <- ->))) (RPAQQ PATTERNITEMS ((&) (--) ($$ --) (T) (NIL) (&) (--) ($) ($1 &) ($2 ($= . 2)) ($3 ($= . 3)) ($4 ( $= . 4)) ($5 ($= . 5)) ($6 ($= . 6)))) (RPAQQ NEVERNILFUNCTIONS (CONS LIST QUOTE ABS ADD1 SUB1 CONCAT REMAINDER FREMAINDER IREMAINDER LOGOR LOGAND LOGXOR)) (RPAQQ PATNONNILFUNCTIONS (GETD NUMBERP STRINGP ZEROP LISTP SMALLP)) (RPAQQ SIMPLE.PREDICATES (LISTP LITATOM NLISTP CAR CDR NULL)) (RPAQ PATTERNCHARRAY (MAKEBITTABLE (NCONC (MAPCAR PATCHARS (QUOTE CAAR)) (MAPCAR PATTERNITEMS (QUOTE CAR))))) (RPAQQ PATGENSYMVARS (GENSYMVARS: $$1 $$2 $$3 $$4 $$5 $$6 $$7 $$8 $$9 $$10 $$11 $$12 $$13 $$14 $$15 $$16 $$17)) (OR (BOUNDP (QUOTE MATCHSTATS)) (SETQ MATCHSTATS)) (RPAQQ PATVARDEFAULT =) (RPAQQ MAXCDDDDRS 5) (RPAQQ PATCHECKLENGTH T) (RPAQQ PATLISTPCHECK NIL) (RPAQQ PATVARSMIGHTBENIL T) (RPAQQ MATCHBLOCKS ((MATCHBLOCK (ENTRIES MAKEMATCH) (GLOBALVARS PATCHARS MAXCDDDDRS PATNONNILFUNCTIONS PATGENSYMVARS PATTERNREPLACEOPRS PATTERNINFIXES1 PATTERNCHARRAY NEVERNILFUNCTIONS MATCHSTATS SIMPLE.PREDICATES USERWORDS SPELLINGS2 CLISPCHARRAY NORMALCOMMENTSFLG COMMENTFLG) (LOCALFREEVARS WATCHPOSTPONELST SUBLIST INASOME CHECKINGLENGTH WMLST LASTEFFECTCANBENIL POSTPONEDSETQS MUSTRETURN BOUNDVARS BOUNDVALS GENSYMVARLIST SKIPEDLEN ZLENFLG LOCALDECLARATION MATCHEXPRESSION MATCHEFFECTS CHECKLENGTH #LIST #LISTUSED PATVARSNIL POSTPONEDRPLACS LISTPCHECK DEFAULTLST VARDEFAULT) (SPECVARS EXPR FAULTFN VARS CLISPCHANGE) MAKEMATCH QMATCHSUBPAT QMATCHWM QMATCH$ QMATCH! QMATCH$= QMATCHELT1 QMATCHELT SIMPLEFN DOSIDE CHECKSETQ DOREPLACE DOREPLACE1 PATLEN $? ELT? SIMPLELT? ARB? NULLPAT? NILPAT CANMATCHNIL CANMATCHNILLIST REPLACEIN EASYTORECOMPUTE GENSYML MAKESUBST DOSUBST DOSUBST1 SUBSTVAR BINDVAR SELFQUOTEABLE FINDIN0 FINDIN1 DOWATCH PATNARGS QNLEFT QNCONC QNOT QNULL QNOT1 QNOTLESSPLENGTH QNTH QOR QPLUS QREPLACE MKAND QCAR QCDR QEQ QEQLENGTH QEQUAL QLAST QAPPLY* QLDIFF QFOR QLISTP PATERR PATHELP LOOKLIST VALUELOOKUP LOOK MKAND2 CHECKSLISTP EQUALUNCROP PATPARSE PATPARSE1 PATUNPACKINFIX1 PARSEDEFAULT VARCHECK PATUNPACK PATUNPACKINFIX PATGETFNNAME PATGETEXPR PATPARSEAT MAKE!PAT MAKESUBPAT NEGATEPAT PACKLDIFF))) (PUTPROPS MATCH COPYRIGHT ("Xerox Corporation" 1982 1984)) NIL