(FILECREATED "20-OCT-83 09:51:05" ("compiled on " {PHYLUM}SOURCES>MATCH.;1) "12-OCT-83 13:52:28" bcompl'd in WORK dated "12-OCT-83 19:52:21") (FILECREATED "22-NOV-82 12:25:45" MATCH.;1 70242 changes to: (FNS MAKEMATCH PATPARSEAT BINDVAR DOSIDE DOSUBST1 QFOR) (VARS MATCHBLOCKS MATCHCOMS) previous date: "27-Jan-82 10:16:46" MATCH.;146) 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 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 $) NIL \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³qA°%d]dgð˜¿kH ¸hgð˜HM ¸h€i¤µÛh¼Hjð³@L”L •@H Hd¥d¡ž@HkØ AL @H AL A°d ^µiŒjð’i»…HN ¸h¤µæh\ ²qHjð³@dgð²0¿A ³&A ²@dgð‘Hk hK ‰@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 (1362Q \MATCHBLOCK/QFOR 1356Q \MATCHBLOCK/CANMATCHNILLIST 1330Q \MATCHBLOCK/MKAND 1304Q \MATCHBLOCK/DOSIDE 1301Q \MATCHBLOCK/QLDIFF 1271Q \MATCHBLOCK/DOSIDE 1266Q \MATCHBLOCK/QLDIFF 1242Q \MATCHBLOCK/PATHELP 1202Q \MATCHBLOCK/QMATCHWM 1157Q \MATCHBLOCK/REPLACEIN 1150Q \MATCHBLOCK/ELT? 1141Q \MATCHBLOCK/QCDR 1072Q \MATCHBLOCK/GENSYML 1047Q \MATCHBLOCK/PATHELP 1032Q \MATCHBLOCK/QMATCHSUBPAT 1024Q \MATCHBLOCK/SUBSTVAR 770Q \MATCHBLOCK/LOOK 710Q \MATCHBLOCK/QMATCHELT 617Q \MATCHBLOCK/ARB? 551Q \MATCHBLOCK/NULLPAT? 517Q \MATCHBLOCK/MKAND 514Q \MATCHBLOCK/MKAND 511Q \MATCHBLOCK/DOSIDE 506Q \MATCHBLOCK/QLDIFF 473Q \MATCHBLOCK/QMATCHWM 460Q \MATCHBLOCK/CANMATCHNILLIST 452Q \MATCHBLOCK/SUBSTVAR 447Q \MATCHBLOCK/QNLEFT 437Q \MATCHBLOCK/QCDR 434Q \MATCHBLOCK/SUBSTVAR 431Q \MATCHBLOCK/QNLEFT 424Q \MATCHBLOCK/QPLUS 402Q \MATCHBLOCK/REPLACEIN 372Q \MATCHBLOCK/ELT? 337Q \MATCHBLOCK/NILPAT 323Q \MATCHBLOCK/QPLUS 303Q \MATCHBLOCK/PATLEN 272Q \MATCHBLOCK/QMATCHWM 263Q \MATCHBLOCK/QCDR 260Q \MATCHBLOCK/QCDR 255Q \MATCHBLOCK/SUBSTVAR 252Q \MATCHBLOCK/QNTH 244Q \MATCHBLOCK/QMATCHWM 235Q \MATCHBLOCK/QNTH 211Q \MATCHBLOCK/QNOTLESSPLENGTH 203Q \MATCHBLOCK/NULLPAT? 155Q \MATCHBLOCK/QPLUS 136Q \MATCHBLOCK/QPLUS 105Q \MATCHBLOCK/PATERR 75Q \MATCHBLOCK/ARB? 65Q \MATCHBLOCK/DOWATCH 60Q \MATCHBLOCK/QMATCHWM 40Q \MATCHBLOCK/PATHELP 13Q \MATCHBLOCK/DOSIDE) (1340Q FOUND 1226Q FASTINASOME 1220Q INASOME 1110Q CDR 1066Q INASOME 1062Q FASTINASOME 1055Q $ 1010Q & 774Q SASSOC 764Q ASSOC 757Q EQ 741Q STREQUAL 733Q EQP 725Q EQUAL 716Q EQ 700Q DUMMY 577Q $ 564Q SUBPAT 413Q CDR 360Q CDR 145Q $= 126Q & 110Q Must) (1313Q (INASOME FASTINASOME NIL) 1237Q "bad pattern tail" 1044Q "INASOME mismatch" 672Q (= == ') 654Q (& $ --) 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 4 CHECKINGLENGTH F 5 INASOME) ÷j1A ²Thðµ @A B@ B³dA°%d[dgð˜¿kH ¸hgð˜HK ¸h€i¤µÛhd ²#¿Thðµ @AH ºU™UJ ¿iJ«@AH €hµrAdjð²¿B@d @A d¥d¡²A`ýñ—@A ‰@A YThðµA hðµIB@I I A (364Q \MATCHBLOCK/MKAND 361Q \MATCHBLOCK/MKAND 356Q \MATCHBLOCK/QMATCHWM 351Q \MATCHBLOCK/QCDR 345Q \MATCHBLOCK/DOSIDE 342Q \MATCHBLOCK/QLDIFF 337Q \MATCHBLOCK/QCDR 324Q \MATCHBLOCK/CANMATCHNILLIST 311Q \MATCHBLOCK/SUBSTVAR 306Q \MATCHBLOCK/QNTH 276Q \MATCHBLOCK/QNTH 237Q \MATCHBLOCK/MKAND 234Q \MATCHBLOCK/QMATCHWM 226Q \MATCHBLOCK/DOSIDE 223Q \MATCHBLOCK/QLDIFF 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) (264Q MAXCDDDDRS 73Q $= 54Q &) NIL \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ð³d¥d¡µ gHh dgð—¿@A dgð—¿@A gð²T¢±ÿ%U–@A @A o (412Q \MATCHBLOCK/PATHELP 402Q \MATCHBLOCK/QNOTLESSPLENGTH 373Q \MATCHBLOCK/QEQLENGTH 347Q \MATCHBLOCK/QMATCHSUBPAT 331Q \MATCHBLOCK/QEQUAL 313Q \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) (353Q $= 336Q SUBPAT 320Q = 303Q QUOTE 241Q ' 220Q ~ 144Q *ANY* 60Q @ 42Q == 23Q & 15Q -- 7 $) (407Q "MATCHELT invalid pattern") \MATCHBLOCK/SIMPLEFN D1 (L (0 FN)) @`NIL (3 SIMPLE.PREDICATES) NIL \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) NIL \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) NIL \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±ÿ`C´ g@A(256Q \MATCHBLOCK/LOOKLIST 233Q \MATCHBLOCK/QNCONC 201Q \MATCHBLOCK/LOOK 153Q \MATCHBLOCK/LOOK 127Q \MATCHBLOCK/MKAND2 124Q \MATCHBLOCK/DOREPLACE1 73Q \MATCHBLOCK/QCDR 51Q \MATCHBLOCK/DOREPLACE1 41Q \MATCHBLOCK/QCAR 4 EQUAL) (251Q RPLNODE2 215Q LDIFF 176Q RPLACD 170Q CDR 150Q RPLACA 142Q CAR 107Q LIST 101Q LIST 56Q LIST 31Q LIST 23Q CONS) NIL \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 --) NIL \MATCHBLOCK/ELT? D1 (L (0 PATELT)) w@µ@dd¥d¡©µ@odgð³"dgð³dgð³dgð«dgð¥dgð‘idgð³#dgð³dgð³dgð¬dgð¦dgð´¯¿@b°NIL (152Q *GLITCH 144Q @ 136Q % 127Q <- 120Q -> 111Q _ 101Q *ANY* 73Q ~ 65Q SUBPAT 56Q ' 47Q == 40Q =) (31Q (& NIL T)) \MATCHBLOCK/SIMPLELT? D1 (L (0 PATELT)) 4@hðµ.@dgð—¿@b°ídgð³dgð«dgð¥dgð‘hiNIL (54Q % 46Q <- 40Q -> 31Q _ 13Q @) NIL \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 !) NIL \MATCHBLOCK/NULLPAT? D1 (L (0 PAT) F 1 CHECKLENGTH) @µQhðdHH ´µñi(20Q \MATCHBLOCK/$?) NIL NIL \MATCHBLOCK/NILPAT D1 (L (0 PATLIST) F 0 CHECKLENGTH) P´@hðNIL NIL NIL \MATCHBLOCK/CANMATCHNIL D1 (L (0 PATELT) F 1 LISTPCHECK F 2 PATVARSNIL) S@µ@o´‚±+i’±5@dgð²#¿@ ´‚± @`hð´‚±þodgðŸ¿Qhð´‚±é@ dgð³³dgð²¿@d¥d¡hðµ‚±Àk@ñdgð’±±dgð³dgð³dgð«dgð¥dgð˜¿@b±ÿRdgð²¿@dgð• b±ÿ5dgð•¿@hðdgð¦dgð²7¿@dlðiðµ&@´"Rhð°hðµ@goµ @`hðdgð²¿@‹dHH ¤µòhgð’@o@ o (520Q \MATCHBLOCK/PATHELP 510Q \MATCHBLOCK/PATHELP 460Q \MATCHBLOCK/CANMATCHNIL 307Q \MATCHBLOCK/CANMATCHNILLIST 126Q \MATCHBLOCK/CANMATCHNILLIST 47Q \MATCHBLOCK/CANMATCHNIL) (473Q ~ 440Q *ANY* 430Q NEVERNILFUNCTIONS 412Q CLISPCLASS 344Q == 336Q = 322Q ' 300Q SUBPAT 265Q ! 246Q *GLITCH 240Q <- 232Q % 223Q -> 214Q _ 203Q $> 142Q $= 133Q $< 105Q SUBPAT 63Q PATNONNILFUNCTIONS 35Q @) (515Q "CANMATCHNIL invalid pattern" 504Q "CANMATCHNIL invalid pattern" 417Q (+ * ^ RPLACA RPLACD / - +-) 100Q (MAYBE, MAYBE NOT) 10Q (& NIL $ --)) \MATCHBLOCK/CANMATCHNILLIST D1 (L (0 PATLIST) F 1 CHECKINGLENGTH) @°dQ—H hð´H ´µèi(25Q \MATCHBLOCK/CANMATCHNIL 15Q \MATCHBLOCK/ELT?) NIL 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¨@o´ @b°åNIL (13Q CROPS) (23Q (CAR CDR)) \MATCHBLOCK/GENSYML D1 (F 1 GENSYMVARLIST F 2 VARS) QcµXR³óH(14Q GENSYM) NIL 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) NIL \MATCHBLOCK/DOSUBST D1 (L (0 EXPRESSION)) @d¦h ‚ µ@(15Q \MATCHBLOCK/DOSUBST1 10Q \MATCHBLOCK/DOSUBST1) NIL 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) NIL \MATCHBLOCK/SUBSTVAR D1 (L (0 X)) @ (6 \MATCHBLOCK/MAKESUBST 2 \MATCHBLOCK/GENSYML) NIL NIL \MATCHBLOCK/BINDVAR D1 (L (1 VAL 0 VAR) F 0 BOUNDVARS F 1 BOUNDVALS) @PcAQc@NIL NIL NIL \MATCHBLOCK/SELFQUOTEABLE D1 (L (0 EXPRESSION)) @dd¥d¡«µ @hðµ@iðNIL 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 NIL \MATCHBLOCK/FINDIN1 D1 (L (1 LST 0 AT)) @AðµA´@A µ Ab¿°ê(16Q \MATCHBLOCK/FINDIN1) NIL NIL \MATCHBLOCK/DOWATCH D1 (L (0 X) F 1 WATCHPOSTPONELST) &Qd²"°dHgð¬HH •Hg¿µåh(26Q \MATCHBLOCK/FINDIN0) (33Q FOUND 16Q FOUND) NIL \MATCHBLOCK/PATNARGS D1 (L (0 X)) @gµ@ (12Q NARGS) (3 NARGS) NIL \MATCHBLOCK/QNLEFT D1 (L (3 NOTFASTFLG 2 TAIL 1 N 0 EXPRESSION)) EBžg @ABhAdjðž¿gg@hhkðžC—g@h@ g @Ah(74Q \MATCHBLOCK/LOOK 65Q \MATCHBLOCK/QLAST 7 \MATCHBLOCK/LOOK) (71Q NLEFT 54Q LAST 34Q LAST 31Q CDR 4 NLEFT) NIL \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) NIL \MATCHBLOCK/QNOT D1 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NOT) NIL \MATCHBLOCK/QNULL D1 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NULL) NIL \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ð‘i@A (12Q \MATCHBLOCK/QNTH) NIL 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) NIL \MATCHBLOCK/QOR D1 (L (0 LISTOFEXPRESSIONS)) @d–¿g@NIL (7 OR) NIL \MATCHBLOCK/QPLUS D1 (L (1 EXPR2 0 EXPR1)) '@d¥d¡ŸAd¥d¡“@AØg@AhNIL (36Q IPLUS) NIL \MATCHBLOCK/QREPLACE D1 (L (1 EXPRESSION 0 VAR)) g@AhNIL (2 REPLACE) NIL \MATCHBLOCK/MKAND D1 (L (1 Y 0 X)) @A µg@Ah(4 \MATCHBLOCK/MKAND2) (11Q AND) NIL \MATCHBLOCK/QCAR D1 (L (0 X)) g@hNIL (2 CAR) NIL \MATCHBLOCK/QCDR D1 (L (0 X)) g@hNIL (2 CDR) NIL \MATCHBLOCK/QEQ D1 (L (1 EXPRESSION 0 VAR)) Aµ@ jð—g@hg@Ah(6 \MATCHBLOCK/QNULL) (25Q EQ 15Q ZEROP) NIL \MATCHBLOCK/QEQLENGTH D1 (L (1 LEN 0 VAR)) /Ajð”@ @gðŸ@kA b¿b¿°ág @Ah(46Q \MATCHBLOCK/LOOK 30Q \MATCHBLOCK/QPLUS 7 \MATCHBLOCK/QNULL) (43Q EQLENGTH 16Q CDR) NIL \MATCHBLOCK/QEQUAL D1 (L (1 EXPRESSION 0 VAR)) mAd²dgðd •¿Ab¤@ Adið–¿@A ³Ad²dgðždlð•¿g°d¥d¡“gŠA“g‚g@Ah(52Q \MATCHBLOCK/QEQ 36Q \MATCHBLOCK/QNULL 22Q \MATCHBLOCK/SELFQUOTEABLE) (144Q EQUAL 140Q STREQUAL 130Q EQP 110Q EQ 71Q QUOTE 11Q QUOTE) NIL \MATCHBLOCK/QLAST D1 (L (0 X)) g@ @h(6 \MATCHBLOCK/LOOK) (2 LAST) NIL \MATCHBLOCK/QAPPLY* D1 (L (1 VAR 0 FNNAME)) @d–gð•@AhAg@(27Q SUBST) (23Q @ 7 LAMBDA) NIL \MATCHBLOCK/QLDIFF D1 (L (1 Y 0 X)) g @Ah(5 \MATCHBLOCK/LOOK) (2 LDIFF) NIL \MATCHBLOCK/QFOR D1 (L (5 NOSOMEFLG 4 {FINALLY}EXPR 3 {UNTIL}EXPR 2 {ON}VAR 1 I.V. 0 {OLD})) f 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 (541Q \APPEND2 444Q NEGATE 423Q \MATCHBLOCK/BINDVAR 370Q \MATCHBLOCK/MKAND 363Q \MATCHBLOCK/MAKESUBST 312Q EQLENGTH 300Q \MATCHBLOCK/PATNARGS 266Q \MATCHBLOCK/PATNARGS 256Q EQLENGTH 227Q \MATCHBLOCK/GENSYML 201Q EQUAL 176Q \MATCHBLOCK/QCAR 157Q \MATCHBLOCK/LOOKLIST 142Q EQUAL 137Q \MATCHBLOCK/QCAR 44Q \MATCHBLOCK/PATERR 31Q \MATCHBLOCK/PATHELP) (520Q RETURN 465Q CDR 461Q SETQ 452Q LISTP 447Q COND 440Q COND 435Q $$SOMELP 417Q SETQ 376Q PROG 332Q LAMBDA 237Q FUNCTION 223Q SOME 205Q MEMBER 164Q EQUAL 147Q MEMB 124Q EQ 104Q AND 61Q AND 41Q BACKTRACK) (512Q ((RETURN)) 501Q ((GO $$SOMELP)) 15Q " a SOME with null terminator") \MATCHBLOCK/QLISTP D1 (L (0 X)) g@hNIL (2 LISTP) NIL \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 NIL \MATCHBLOCK/VALUELOOKUP D1 (L (0 VAR) F 0 LOCALDECLARATION F 1 MATCHEXPRESSION) Pž@QhPhg @ (24Q GETTOPVAL 17Q CLISPLOOKUP0) (13Q VALUE) NIL \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) NIL \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) NIL \MATCHBLOCK/CHECKSLISTP D1 (L (1 EXPR2 0 EXPR1)) f@A ‘@Aµhdgð³dgð«dgð¥dgðŸ¿Ad@ ²:°1dgð³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(525Q \MATCHBLOCK/CHECKSLISTP 422Q \MATCHBLOCK/CHECKSLISTP 365Q \MATCHBLOCK/SELFQUOTEABLE 274Q \MATCHBLOCK/CHECKSLISTP 144Q EQUAL 65Q EQUAL 6 EQUAL) (505Q SASSOC 477Q ASSOC 470Q MEMBER 461Q MEMB 452Q FASSOC 443Q FMEMB 400Q QUOTE 344Q EQP 336Q STREQUAL 330Q EQ 321Q EQUAL 261Q EQLENGTH 253Q NTH 245Q SOME 236Q LAST 227Q NLEFT 220Q LISTP 211Q FLAST 202Q FNTH 173Q CDR 164Q CAR 127Q EQLENGTH 121Q NTH 113Q LAST 104Q NLEFT 75Q SOME 47Q SASSOC 41Q ASSOC 33Q MEMBER 24Q MEMB) NIL \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¿±ÿidgð³dgð¬dgð¦dgð´8¿Adið³&dd¥d¡³gð´A´Ab¿±ÿ(4 EQUAL) (325Q QUOTE 260Q IEQP 252Q EQP 244Q EQUAL 235Q EQ 214Q FASSOC 206Q SASSOC 200Q ASSOC 171Q MEMBER 162Q FMEMB 153Q MEMB 134Q LISTP 126Q SOME 120Q FNTH 111Q FLAST 102Q LAST 73Q NLEFT 64Q NTH 55Q CDR 46Q CAR 30Q CROPS) NIL \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 7 #LIST) íp@d’±kd^N •µöi¿h’±—o@ ±‹dgð²-¿Klñž@gKL±*@gKh ±gð™g@ ±K [±?lð³"K’±3Kd¥d¡’±$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±ÿhA²`@ “g‚g@ ¿@hAb¿h]¿@²@dg@hb¿@[`ð™`¥@ »@¼Kd¢±ýÖdgð¢±ý€¿KK [±ý]Ldgð² µL¼gL K»L\±þÚ µ KL \±þÊ(1345Q \MATCHBLOCK/PATPARSE1 1336Q \MATCHBLOCK/PATUNPACKINFIX 1321Q \MATCHBLOCK/PATGETFNNAME 1305Q \MATCHBLOCK/PATUNPACKINFIX1 1263Q \MATCHBLOCK/PATPARSE1 1225Q GETCOMMENT 1151Q \MATCHBLOCK/PARSEDEFAULT 1142Q \MATCHBLOCK/PATERR 1126Q STRPOSL 1110Q /RPLNODE 1102Q MKATOM 1077Q SUBSTRING 1056Q NCHARS 1043Q NTHCHAR 1015Q \MATCHBLOCK/PATGETEXPR 767Q \MATCHBLOCK/PATPARSE1 751Q STRPOS 721Q FASSOC 653Q \MATCHBLOCK/PATUNPACK 622Q \MATCHBLOCK/NEGATEPAT 614Q \MATCHBLOCK/PATPARSE1 577Q \MATCHBLOCK/MAKE!PAT 567Q \MATCHBLOCK/PATPARSE1 511Q \MATCHBLOCK/PATGETEXPR 435Q NTHCHAR 227Q \MATCHBLOCK/PATERR 160Q \MATCHBLOCK/MAKESUBPAT 155Q \MATCHBLOCK/PATPARSE1 146Q /ATTACH 127Q /RPLACA 124Q PACK 104Q /RPLNODE 45Q \MATCHBLOCK/PATERR 20Q \MATCHBLOCK/SIMPLELT?) (1315Q @ 1276Q @ 1246Q *ANY* 1220Q NORMALCOMMENTSFLG 1213Q COMMENTFLG 1174Q %. 1136Q AMBIG 1132Q CLISP 1121Q CLISPCHARRAY 1066Q _ 1046Q _ 716Q PATTERNREPLACEOPRS 673Q %. 637Q ' 632Q ' 606Q ~ 557Q %. 550Q ! 532Q & 517Q $= 500Q $= 471Q $< 463Q $> 454Q = 445Q == 427Q $= 421Q $9 412Q $8 404Q $7 375Q $6 366Q $5 357Q $4 350Q $3 341Q $2 332Q & 324Q $1 314Q -- 306Q $$ 275Q $ 263Q -- 252Q & 223Q BADELT 142Q &@ 135Q LAMBDA 113Q ' 74Q ' 54Q QUOTE) (741Q "#" 41Q "*ANY*/*EVERY* construct too compicated") \MATCHBLOCK/PATUNPACKINFIX1 D1 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) NIL \MATCHBLOCK/PARSEDEFAULT D1 (L (2 PREFIX 1 LOCALVARDEFAULT 0 PAT) F 2 VARDEFAULT F 3 DEFAULTLST) @lð—@ið¢@©o@ ¿ @S–gb°co@khk ²@lmÿd¥d¡³!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(565Q \MATCHBLOCK/VARCHECK 532Q \MATCHBLOCK/PATERR 472Q /ATTACH 433Q /ATTACH 374Q /ATTACH 335Q /ATTACH 304Q /RPLNODE2 206Q \MATCHBLOCK/PATERR 176Q STRPOSL 151Q \MATCHBLOCK/PATERR 131Q STRPOS 77Q SUBATOM 64Q STRPOS 27Q \MATCHBLOCK/PATHELP) (601Q ? 571Q = 554Q @ 542Q NARGS 526Q AMBIG 503Q @ 500Q $1 466Q $1@ 455Q APPLY* 447Q @ 440Q == 427Q == 416Q EQ 410Q == 401Q = 370Q = 357Q EQUAL 351Q = 342Q ' 331Q ' 320Q ' 312Q QUOTE 264Q & 261Q _ 241Q SET 233Q SETQ 225Q _ 202Q CLISP 171Q CLISPCHARRAY 155Q SETQ 145Q BAD* 140Q * 116Q BAD# 43Q =) (522Q "invalid PATTERNVARDEFAULT" 124Q "*" 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) NIL \MATCHBLOCK/PATUNPACKINFIX D1 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) NIL \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) NIL \MATCHBLOCK/PATGETEXPR D1 (L (1 UP 0 L) P 0 VARS F 2 #LISTUSED F 3 #LIST F 4 VARS F 5 FAULTFN) P@µoA ¿@ µ@bd²ST @@hddU S°dIR¬I@ •IRc¿µç@(100Q \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) NIL \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 !) NIL \MATCHBLOCK/MAKESUBPAT D1 (L (0 PATLST)) @d o ¨@o “gg@(23Q EQUAL 12Q EQUAL) (33Q SUBPAT 27Q &) (20Q ($) 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 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))) NIL