(FILECREATED " 8-Jan-87 18:33:32" ("compiled on " {ERIS}LIBRARY>MATCH.;1) " 7-Jan-87 03:28:48" bcompl'd in "Xerox Lisp 7-Jan-87 ..." dated " 7-Jan-87 03:56:58") (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 §D4 (L (1 PATTERN) P 23 VARS P 22 INASOME P 19 MATCHEFFECTS P 17 SUBLIST P 16 WATCHPOSTPONELST P 15 WMLST P 14 MUSTRETURN P 13 POSTPONEDSETQS P 12 POSTPONEDRPLACS P 10 PATVARSNIL P 9 VARDEFAULT P 8 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 24 FAULTFN F 25 EXPR F 26 CLISPCHANGE F 27 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*(412 \MATCHBLOCK/DOSUBST 391 \NCONC2 388 \NCONC2 363 DREVERSE 358 DREVERSE 344 MKPROGN 316 DREVERSE 309 \MATCHBLOCK/QMATCHSUBPAT 301 \MATCHBLOCK/SUBSTVAR 290 \MATCHBLOCK/EASYTORECOMPUTE 274 DWIMIFY0? 255 \APPEND2 240 \MATCHBLOCK/PATPARSE 231 HELP 222 \MATCHBLOCK/PATERR 184 \MATCHBLOCK/PATERR 174 /ATTACH 164 FIXSPELL1 138 FIXSPELL 100 DWIMIFY0? 46 \MATCHBLOCK/VALUELOOKUP 38 \MATCHBLOCK/VALUELOOKUP 30 \MATCHBLOCK/VALUELOOKUP 22 \MATCHBLOCK/VALUELOOKUP 6 GETLOCALDEC) (419 LAMBDA 398 COND 337 TOPREPLACE 331 -> 205 => 198 -> 178 NOWITH 168 with 154 with 116 WITH 109 with 81 MATCH 75 match 60 with 56 match 43 PATVARSMIGHTBENIL 35 PATVARDEFAULT 27 PATLISTPCHECK 19 PATCHECKLENGTH 9 PATGENSYMVARS) ( 228 "Bad arg to MAKEMATCH" 213 "Expression after pattern not preceded by => or ->" 130 (WITH)) \MATCHBLOCK/QMATCHSUBPAT §D4 (L (2 NOLISTPCHECK 1 PATELT 0 VAR) P 1 INASOME P 0 CHECKINGLENGTH F 2 INASOME F 3 LISTPCHECK) ihRSžB¬@ @A @A (28 \MATCHBLOCK/QMATCHWM 22 \MATCHBLOCK/MKAND 19 \MATCHBLOCK/QMATCHWM 14 \MATCHBLOCK/QLISTP) NIL () \MATCHBLOCK/QMATCHWM §D4 (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±þ§(326 \MATCHBLOCK/QMATCHWM 317 \MATCHBLOCK/MAKE!PAT 314 \MATCHBLOCK/MAKESUBPAT 309 \MATCHBLOCK/QAPPLY* 306 \MATCHBLOCK/QLDIFF 270 \MATCHBLOCK/QFOR 266 \MATCHBLOCK/CANMATCHNILLIST 260 \MATCHBLOCK/MKAND 257 \MATCHBLOCK/QMATCHWM 251 \MATCHBLOCK/QAPPLY* 248 \MATCHBLOCK/QLDIFF 237 \MATCHBLOCK/GENSYML 229 \MATCHBLOCK/ARB? 220 \MATCHBLOCK/$? 206 \MATCHBLOCK/MKAND 203 \MATCHBLOCK/QMATCHWM 191 \MATCHBLOCK/QAPPLY* 188 \MATCHBLOCK/QCAR 178 \MATCHBLOCK/SIMPLEFN 151 \MATCHBLOCK/ELT? 134 \MATCHBLOCK/QMATCH$= 120 \MATCHBLOCK/QMATCH! 61 \MATCHBLOCK/QMATCHELT1 53 \MATCHBLOCK/QMATCH$ 27 \MATCHBLOCK/QNULL) (303 @ 295 @ 234 OLD 168 & 159 FASTINASOME 138 @ 125 $= 111 ! 104 *ANY* 97 ~ 90 SUBPAT 83 ' 76 == 69 = 44 -- 38 $) () \MATCHBLOCK/QMATCH$ §D4 (L (2 FN 1 PAT 0 VAR) P 13 WATCHPOSTPONELST P 12 INASOME P 11 CHECKINGLENGTH P 10 INASOME P 3 ZLENFLG P 0 SKIPEDLEN F 17 INASOME F 18 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 (781 \MATCHBLOCK/QFOR 777 \MATCHBLOCK/CANMATCHNILLIST 755 \MATCHBLOCK/MKAND 735 \MATCHBLOCK/DOSIDE 732 \MATCHBLOCK/QLDIFF 724 \MATCHBLOCK/DOSIDE 721 \MATCHBLOCK/QLDIFF 701 \MATCHBLOCK/PATHELP 669 \MATCHBLOCK/QMATCHWM 650 \MATCHBLOCK/REPLACEIN 643 \MATCHBLOCK/ELT? 636 \MATCHBLOCK/QCDR 597 \MATCHBLOCK/GENSYML 578 \MATCHBLOCK/PATHELP 565 \MATCHBLOCK/QMATCHSUBPAT 559 \MATCHBLOCK/SUBSTVAR 531 \MATCHBLOCK/LOOK 483 \MATCHBLOCK/QMATCHELT 426 \MATCHBLOCK/ARB? 388 \MATCHBLOCK/NULLPAT? 362 \MATCHBLOCK/MKAND 359 \MATCHBLOCK/MKAND 356 \MATCHBLOCK/DOSIDE 353 \MATCHBLOCK/QLDIFF 342 \MATCHBLOCK/QMATCHWM 331 \MATCHBLOCK/CANMATCHNILLIST 325 \MATCHBLOCK/SUBSTVAR 322 \MATCHBLOCK/QNLEFT 309 \FZEROP 304 \MATCHBLOCK/QCDR 301 \MATCHBLOCK/SUBSTVAR 298 \MATCHBLOCK/QNLEFT 293 \MATCHBLOCK/QPLUS 275 \MATCHBLOCK/REPLACEIN 267 \MATCHBLOCK/ELT? 248 \FZEROP 228 \MATCHBLOCK/NILPAT 216 \MATCHBLOCK/QPLUS 197 \MATCHBLOCK/PATLEN 188 \MATCHBLOCK/QMATCHWM 181 \MATCHBLOCK/QCDR 178 \MATCHBLOCK/QCDR 175 \MATCHBLOCK/SUBSTVAR 172 \MATCHBLOCK/QNTH 166 \MATCHBLOCK/QMATCHWM 159 \MATCHBLOCK/QNTH 147 \MATCHBLOCK/QNOTLESSPLENGTH 141 \MATCHBLOCK/NULLPAT? 133 \FZEROP 109 \MATCHBLOCK/QPLUS 94 \MATCHBLOCK/QPLUS 69 \MATCHBLOCK/PATERR 61 \MATCHBLOCK/ARB? 53 \MATCHBLOCK/DOWATCH 48 \MATCHBLOCK/QMATCHWM 32 \MATCHBLOCK/PATHELP 11 \MATCHBLOCK/DOSIDE) (763 FOUND 689 FASTINASOME 683 INASOME 611 CDR 593 INASOME 589 FASTINASOME 584 $ 547 & 535 SASSOC 527 ASSOC 522 EQ 508 STREQUAL 502 EQP 496 EQUAL 489 EQ 475 DUMMY 410 $ 399 SUBPAT 284 CDR 257 CDR 101 $= 86 & 72 Must) ( 742 (INASOME FASTINASOME NIL) 698 "bad pattern tail" 575 "INASOME mismatch" 469 (= == ') 455 (& $ --) 66 "Two $ or -- patterns in a row, ambiguous" 29 "INASOME mismatch") \MATCHBLOCK/QMATCH! §D4 (L (2 FN 1 PAT 0 VAR) P 8 WMLST P 3 CHECKLENGTH F 9 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 (396 \MATCHBLOCK/PATERR 384 \MATCHBLOCK/MKAND 381 \MATCHBLOCK/DOSIDE 378 \MATCHBLOCK/QLDIFF 370 \MATCHBLOCK/QMATCHWM 367 \APPEND2 360 \MATCHBLOCK/MAKE!PAT 357 \MATCHBLOCK/MAKESUBPAT 334 \MATCHBLOCK/QMATCHWM 331 \APPEND2 312 \MATCHBLOCK/QMATCHWM 258 \MATCHBLOCK/QMATCHWM 243 \MATCHBLOCK/NULLPAT? 235 LAST 213 \MATCHBLOCK/PATERR 203 \MATCHBLOCK/QMATCHWM 189 \MATCHBLOCK/NULLPAT? 175 SUBPAIR 162 \MATCHBLOCK/MKAND 158 \MATCHBLOCK/QOR 152 \MATCHBLOCK/QEQUAL 147 \MATCHBLOCK/QNULL 142 \MATCHBLOCK/QNULL 137 \MATCHBLOCK/CANMATCHNILLIST 130 \MATCHBLOCK/QOR 124 \MATCHBLOCK/QEQUAL 119 \MATCHBLOCK/QNULL 98 \MATCHBLOCK/MKAND 95 \MATCHBLOCK/QMATCHWM 89 \MATCHBLOCK/DOSIDE 86 \MATCHBLOCK/QLDIFF 77 \MATCHBLOCK/BINDVAR 74 \MATCHBLOCK/GENSYML 71 \MATCHBLOCK/BINDVAR 68 \MATCHBLOCK/GENSYML 53 \MATCHBLOCK/PATERR 41 \MATCHBLOCK/MKAND 38 \MATCHBLOCK/DOSIDE 33 \MATCHBLOCK/QMATCHELT 25 \MATCHBLOCK/QMATCHWM 5 \MATCHBLOCK/NILPAT) (350 *GLITCH 316 SUBPAT 282 ' 266 SUBPAT 263 ! 218 ' 207 !AT 180 == 62 = 15 SUBPAT) ( 389 "Invalid use of ! in pattern" 172 (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)) 103 (TAILVAR VAR TEMVAR ONVAR FINALLY) 49 "Invalid '!'") \MATCHBLOCK/QMATCH$= §D4 (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 (248 \MATCHBLOCK/MKAND 245 \MATCHBLOCK/MKAND 242 \MATCHBLOCK/QMATCHWM 237 \MATCHBLOCK/QCDR 233 \MATCHBLOCK/DOSIDE 230 \MATCHBLOCK/QLDIFF 227 \MATCHBLOCK/QCDR 216 \MATCHBLOCK/CANMATCHNILLIST 205 \MATCHBLOCK/SUBSTVAR 202 \MATCHBLOCK/QNTH 194 \MATCHBLOCK/MKAND 191 \MATCHBLOCK/QMATCHWM 185 \MATCHBLOCK/DOSIDE 182 \MATCHBLOCK/QLDIFF 174 \FZEROP 169 \MATCHBLOCK/QNTH 128 \MATCHBLOCK/QEQLENGTH 125 \MATCHBLOCK/QPLUS 111 \MATCHBLOCK/DOWATCH 100 \MATCHBLOCK/QNOTLESSPLENGTH 97 \MATCHBLOCK/QPLUS 81 \MATCHBLOCK/NULLPAT? 67 \MATCHBLOCK/QPLUS 52 \MATCHBLOCK/QPLUS 30 \MATCHBLOCK/MKAND 27 \MATCHBLOCK/DOSIDE 22 \MATCHBLOCK/QEQLENGTH 8 \MATCHBLOCK/NILPAT) (158 MAXCDDDDRS 59 $= 44 &) () \MATCHBLOCK/QMATCHELT1 §D4 (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 (137 \MATCHBLOCK/MKAND 134 \MATCHBLOCK/MKAND 131 \MATCHBLOCK/MKAND 128 \MATCHBLOCK/QMATCHWM 123 \MATCHBLOCK/QCDR 114 \MATCHBLOCK/QMATCHWM 109 \MATCHBLOCK/QCDR 61 \MATCHBLOCK/DOSIDE 58 \MATCHBLOCK/QCAR 53 \MATCHBLOCK/QMATCHELT 48 \MATCHBLOCK/QCAR 44 \MATCHBLOCK/QNULL 41 \MATCHBLOCK/QCDR 36 \MATCHBLOCK/QEQLENGTH 30 \MATCHBLOCK/CANMATCHNIL 19 \MATCHBLOCK/CANMATCHNILLIST 13 \MATCHBLOCK/CANMATCHNIL) (72 FASTINASOME) ( 93 ($1 &) 86 (= == ' *ANY* @ SUBPAT)) \MATCHBLOCK/QMATCHELT §D4 (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 (256 \MATCHBLOCK/PATHELP 248 \MATCHBLOCK/QNOTLESSPLENGTH 241 \MATCHBLOCK/QEQLENGTH 221 \MATCHBLOCK/QMATCHSUBPAT 207 \MATCHBLOCK/QEQUAL 193 \MATCHBLOCK/QEQUAL 156 \MATCHBLOCK/QNOT 153 \MATCHBLOCK/QMATCHELT 139 \MATCHBLOCK/QOR 118 \MATCHBLOCK/QMATCHELT 95 \MATCHBLOCK/MKAND 92 \MATCHBLOCK/QAPPLY* 85 \MATCHBLOCK/QMATCHELT 77 \MATCHBLOCK/MKAND 74 \MATCHBLOCK/QMATCHELT 67 \MATCHBLOCK/QAPPLY* 58 \MATCHBLOCK/SIMPLEFN 43 \MATCHBLOCK/QEQ 28 \MATCHBLOCK/QEQUAL) (225 $= 212 SUBPAT 198 = 185 QUOTE 161 ' 144 ~ 100 *ANY* 48 @ 34 == 19 & 13 -- 7 $) ( 253 "MATCHELT invalid pattern") \MATCHBLOCK/SIMPLEFN §D4 (L (0 FN)) @`NIL (3 SIMPLE.PREDICATES) () \MATCHBLOCK/DOSIDE §D4 (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 (230 \MATCHBLOCK/MKAND 227 \MATCHBLOCK/DOSIDE 221 \MATCHBLOCK/PATHELP 210 \MATCHBLOCK/DOWATCH 192 \MATCHBLOCK/QAPPLY* 169 \MATCHBLOCK/QREPLACE 160 \MATCHBLOCK/DOWATCH 155 \MATCHBLOCK/DOWATCH 138 \MATCHBLOCK/QREPLACE 117 \MATCHBLOCK/CANMATCHNIL 92 \MATCHBLOCK/DOWATCH 87 \MATCHBLOCK/DOWATCH 74 \MATCHBLOCK/CHECKSETQ 58 MKPROGN 49 \MATCHBLOCK/CANMATCHNIL 24 \MATCHBLOCK/CHECKSETQ) (197 *GLITCH 181 @ 144 % 127 -> 96 SETQ 65 _ 33 SETQ 15 <-) ( 217 "MATCH FUNARG MISMATCH") \MATCHBLOCK/CHECKSETQ §D4 (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(73 \MATCHBLOCK/DOWATCH 58 \MATCHBLOCK/MAKESUBST) (66 * 55 WATCH 36 FASTINASOME 30 INASOME) () \MATCHBLOCK/DOREPLACE §D4 (L (1 SUBSTDONE 0 EXPRESSION)) 9@@@gðAµA³ìib²ç@@ µ@b°Øb¿A¥@ µ@(51 \MATCHBLOCK/DOSUBST1 33 \MATCHBLOCK/DOSUBST1 16 \MATCHBLOCK/DOREPLACE1) (11 TOPREPLACE) () \MATCHBLOCK/DOREPLACE1 §D4 (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(172 \MATCHBLOCK/LOOKLIST 153 \MATCHBLOCK/QNCONC 127 \MATCHBLOCK/LOOK 105 \MATCHBLOCK/LOOK 85 \MATCHBLOCK/MKAND2 82 \MATCHBLOCK/DOREPLACE1 57 \MATCHBLOCK/QCDR 39 \MATCHBLOCK/DOREPLACE1 31 \MATCHBLOCK/QCAR) (167 RPLNODE2 139 LDIFF 124 RPLACD 118 CDR 102 RPLACA 96 CAR 69 LIST 63 LIST 44 LIST 23 LIST 17 CONS) () \MATCHBLOCK/PATLEN §D4 (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@ (246 \MATCHBLOCK/PATHELP 197 LENGTH 87 \MATCHBLOCK/QPLUS 79 \MATCHBLOCK/PATLEN) (234 $< 227 $> 214 ~ 208 == 202 = 186 ' 174 *ANY* 155 ! 140 *GLITCH 134 @ 128 % 121 <- 114 -> 107 _ 97 $= 51 SUBPAT 25 & 17 -- 7 $) ( 242 "PATLEN invalid pattern") \MATCHBLOCK/$? §D4 (L (0 PATELT)) @gðµ@gðNIL (10 $ 3 --) () \MATCHBLOCK/ELT? §D4 (L (0 PATELT)) p@µ@d3ª µ@odgð³"dgð³dgð³dgð«dgð¥dgð‘idgð³#dgð³dgð³dgð¬dgð¦dgð´¯¿@b°”(11 STRINGP) (99 *GLITCH 93 @ 87 % 80 <- 73 -> 66 _ 58 *ANY* 52 ~ 46 SUBPAT 39 ' 32 == 25 =) ( 18 (& NIL T)) \MATCHBLOCK/SIMPLELT? §D4 (L (0 PATELT)) 4@hðµ.@dgð—¿@b°ídgð³dgð«dgð¥dgð‘hiNIL (44 % 38 <- 32 -> 25 _ 11 @) () \MATCHBLOCK/ARB? §D4 (L (1 @OKFLG 0 PATELT)) D@µ@ dgð‘hdgð‘Adgð³dgð³dgð¬dgð¦dgð´Ø¿@b°À(7 \MATCHBLOCK/$?) (55 *GLITCH 49 -> 43 _ 36 % 29 <- 21 @ 13 !) () \MATCHBLOCK/NULLPAT? §D4 (L (0 PAT) F 1 CHECKLENGTH) @µQhðdHH ´µñi(16 \MATCHBLOCK/$?) NIL () \MATCHBLOCK/NILPAT §D4 (L (0 PATLIST) F 0 CHECKLENGTH) P´@hðNIL NIL () \MATCHBLOCK/CANMATCHNIL §D4 (L (0 PATELT) F 1 LISTPCHECK F 2 PATVARSNIL) \@µ@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ð²9¿@dlðiðµ(@´$Rhð°hðµ@g oµ @`hðdgð²¿@‹dHH ¤µòhgð’@o@ o (345 \MATCHBLOCK/PATHELP 337 \MATCHBLOCK/PATHELP 313 \MATCHBLOCK/CANMATCHNIL 276 GETP 206 \MATCHBLOCK/CANMATCHNILLIST 101 \MATCHBLOCK/CANMATCHNILLIST 54 \MATCHBLOCK/CANMATCHNIL) (324 ~ 297 *ANY* 289 NEVERNILFUNCTIONS 273 CLISPCLASS 235 == 229 = 217 ' 199 SUBPAT 188 ! 173 *GLITCH 167 <- 161 % 154 -> 147 _ 138 $> 113 $= 106 $< 84 SUBPAT 66 PATNONNILFUNCTIONS 44 @ 23 -- 17 $ 7 &) ( 342 "CANMATCHNIL invalid pattern" 333 "CANMATCHNIL invalid pattern" 280 (+ * ^ RPLACA RPLACD / - +-) 79 (MAYBE, MAYBE NOT)) \MATCHBLOCK/CANMATCHNILLIST §D4 (L (0 PATLIST) F 1 CHECKINGLENGTH) @°dQ—H hð´H ´µèi(21 \MATCHBLOCK/CANMATCHNIL 13 \MATCHBLOCK/ELT?) NIL () \MATCHBLOCK/REPLACEIN §D4 (L (0 PATELT)) @´Z@dgð«dgð¥dgð‘idgð«dgð¥dgð—¿@b°Ïdgð–¿@b°Âdgð²¿@‹dHH ¤µòhdgð³ùdgð³òdgð³ëdgð³ädgð³Ýdgð³Ödgð³Ïdgð³È¿o@ (157 \MATCHBLOCK/PATHELP 84 \MATCHBLOCK/REPLACEIN) (145 *ANY* 138 ~ 131 $> 124 $< 117 ' 110 == 103 = 96 $= 68 SUBPAT 55 ! 41 <- 35 _ 29 @ 21 *GLITCH 15 % 9 ->) ( 153 "Invalid pattern REPLACEIN") \MATCHBLOCK/EASYTORECOMPUTE §D4 (L (0 EXPRESSION)) /@µ@d³'g ³@dgð¥dgð’¿i¿h´ @b°Ö(14 GETP) (28 CDR 22 CAR 11 CROPS) () \MATCHBLOCK/GENSYML §D4 (F 1 GENSYMVARLIST F 2 VARS) QcµXR³óH(12 GENSYM) NIL () \MATCHBLOCK/MAKESUBST §D4 (L (2 FLG 1 VAL 0 VAR) F 0 SUBLIST) 9@¥b¿Bgð™@ ¿A ¿@ABdið’¿igð´ A hðhðPc@(43 \MATCHBLOCK/EASYTORECOMPUTE 22 \MATCHBLOCK/DOWATCH 17 \MATCHBLOCK/DOWATCH 4 \MATCHBLOCK/GENSYML) (36 WATCH 11 WATCH) () \MATCHBLOCK/DOSUBST §D4 (L (0 EXPRESSION)) @d¦h ‚ µ@(13 \MATCHBLOCK/DOSUBST1 8 \MATCHBLOCK/DOSUBST1) NIL () \MATCHBLOCK/DOSUBST1 §D4 (L (0 EXPRESSION) P 7 SUBLIST F 17 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µ@(467 \MATCHBLOCK/DOSUBST1 461 \MATCHBLOCK/DOSUBST1 455 \MATCHBLOCK/QCAR 450 \MATCHBLOCK/QCDR 433 \MATCHBLOCK/DOSUBST1 386 \MATCHBLOCK/DOREPLACE 337 \MATCHBLOCK/DOSUBST1 328 \NCONC2 239 \MATCHBLOCK/DOSUBST1 189 \MATCHBLOCK/DOSUBST1 180 \APPEND2 156 \MATCHBLOCK/DOSUBST1 144 \MATCHBLOCK/DOSUBST1 131 \MATCHBLOCK/DOSUBST1 49 \MATCHBLOCK/BINDVAR 46 \MATCHBLOCK/GENSYML) (473 DUMMY 444 CDR 418 CDR 412 CAR 400 CDR 394 CAR 379 REPLACE 373 TOPREPLACE 366 QUOTE 211 PROG 169 LAMBDA 56 SETQ) () \MATCHBLOCK/SUBSTVAR §D4 (L (0 X)) @ (6 \MATCHBLOCK/MAKESUBST 2 \MATCHBLOCK/GENSYML) NIL () \MATCHBLOCK/BINDVAR §D4 (L (1 VAL 0 VAR) F 0 BOUNDVARS F 1 BOUNDVALS) @PcAQc@NIL NIL () \MATCHBLOCK/SELFQUOTEABLE §D4 (L (0 EXPRESSION)) @d3¬ µ @hðµ@ið(7 STRINGP) NIL () \MATCHBLOCK/FINDIN0 §D4 (L (1 X 0 VAR) F 1 SUBLIST) &@A µQ°dHH ´@H ¤µéh(28 \MATCHBLOCK/FINDIN1 20 \MATCHBLOCK/FINDIN1 4 \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/FINDIN1 §D4 (L (1 LST 0 AT)) @AðµA´@A µ Ab¿°ê(14 \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/DOWATCH §D4 (L (0 X) F 1 WATCHPOSTPONELST) &Qd²"°dHgð¬HH •Hg¿µåh(22 \MATCHBLOCK/FINDIN0) (27 FOUND 14 FOUND) () \MATCHBLOCK/PATNARGS §D4 (L (0 X)) @g µ@ (12 NARGS 6 GETP) (3 NARGS) () \MATCHBLOCK/QNLEFT §D4 (L (3 NOTFASTFLG 2 TAIL 1 N 0 EXPRESSION)) OBžg @ABhAjð«Ad²d ž¿gg@hhkðžC—g@h@ g @Ah(70 \MATCHBLOCK/LOOK 63 \MATCHBLOCK/QLAST 30 \FZEROP 7 \MATCHBLOCK/LOOK) (67 NLEFT 54 LAST 38 LAST 35 CDR 4 NLEFT) () \MATCHBLOCK/QNCONC §D4 (L (1 EXPR2 0 EXPR1)) LA¡@@gð² @ °dgHAhbµíAAgðžAªg@Ag@A(73 \MATCHBLOCK/LOOKLIST 64 \MATCHBLOCK/LOOKLIST 17 REVERSE) (68 NCONC 57 NCONC1 48 LIST 27 CONS 9 LIST) () \MATCHBLOCK/QNOT §D4 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NOT) () \MATCHBLOCK/QNULL §D4 (L (0 X)) @g (6 \MATCHBLOCK/QNOT1) (3 NULL) () \MATCHBLOCK/QNOT1 §D4 (L (1 FNNAME 0 X)) ^@d³“@ið—o A@hdgð¥dgð”¿@dgð–¿@gdgð–¿@gdgð–¿@ggð²½@g(16 \MATCHBLOCK/PATERR) (90 LISTP 83 NLISTP 78 NLISTP 71 LISTP 65 EQ 58 NEQ 52 NEQ 45 EQ 34 NULL 28 NOT) ( 13 "NULL check of T or NIL; possibly a bad pattern") \MATCHBLOCK/QNOTLESSPLENGTH §D4 (L (1 N 0 X)) Ajð¯Aµ@A ²÷i(17 \FZEROP 13 \MATCHBLOCK/QNTH) NIL () \MATCHBLOCK/QNTH §D4 (L (1 LEN 0 VAR) F 0 CHECKINGLENGTH) [A”kAñ²P–g ‚g@AhAd`ñ²#¿@gðœAkØb¿@b°îg@AhAkÙbjñ›g@hb¿°î@(16 \MATCHBLOCK/LOOK) (78 CDR 60 NTH 42 CDR 32 MAXCDDDDRS 20 FNTH 13 NTH) () \MATCHBLOCK/QOR §D4 (L (0 LISTOFEXPRESSIONS)) @d–¿g@NIL (7 OR) () \MATCHBLOCK/QPLUS §D4 (L (1 EXPR2 0 EXPR1)) @3—A3“@AØg@AhNIL (14 IPLUS) () \MATCHBLOCK/QREPLACE §D4 (L (1 EXPRESSION 0 VAR)) g@AhNIL (2 REPLACE) () \MATCHBLOCK/MKAND §D4 (L (1 Y 0 X)) @A µg@Ah(4 \MATCHBLOCK/MKAND2) (9 AND) () \MATCHBLOCK/QCAR §D4 (L (0 X)) g@hNIL (2 CAR) () \MATCHBLOCK/QCDR §D4 (L (0 X)) g@hNIL (2 CDR) () \MATCHBLOCK/QEQ §D4 (L (1 EXPRESSION 0 VAR)) )Aµ@ jð³Aµg@Ah ²óg@h(29 \FZEROP 6 \MATCHBLOCK/QNULL) (34 ZEROP 19 EQ) () \MATCHBLOCK/QEQLENGTH §D4 (L (1 LEN 0 VAR)) ;Ajð³%Aµ@gð²@kA b¿b¿°ß ²ä@ g @Ah(50 \MATCHBLOCK/LOOK 43 \MATCHBLOCK/QNULL 37 \FZEROP 26 \MATCHBLOCK/QPLUS) (47 EQLENGTH 15 CDR) () \MATCHBLOCK/QEQUAL §D4 (L (1 EXPRESSION 0 VAR)) fAd²dgðd •¿Ab¤@ Adið–¿@A ³Ad²dgðždlð•¿g°3“g‹A “g‚g@Ah(85 STRINGP 42 \MATCHBLOCK/QEQ 30 \MATCHBLOCK/QNULL 18 \MATCHBLOCK/SELFQUOTEABLE) (93 EQUAL 89 STREQUAL 80 EQP 72 EQ 57 QUOTE 9 QUOTE) () \MATCHBLOCK/QLAST §D4 (L (0 X)) g@ @h(6 \MATCHBLOCK/LOOK) (2 LAST) () \MATCHBLOCK/QAPPLY* §D4 (L (1 VAR 0 FNNAME)) @d–gð•@AhAg@(23 SUBST) (19 @ 7 LAMBDA) () \MATCHBLOCK/QLDIFF §D4 (L (1 Y 0 X)) g @Ah(5 \MATCHBLOCK/LOOK) (2 LDIFF) () \MATCHBLOCK/QFOR §D4 (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 (349 \APPEND2 288 NEGATE 271 \MATCHBLOCK/BINDVAR 244 \MATCHBLOCK/MKAND 239 \MATCHBLOCK/MAKESUBST 198 EQLENGTH 188 \MATCHBLOCK/PATNARGS 178 \MATCHBLOCK/PATNARGS 170 EQLENGTH 147 \MATCHBLOCK/GENSYML 124 \MATCHBLOCK/QCAR 109 \MATCHBLOCK/LOOKLIST 95 \MATCHBLOCK/QCAR 36 \MATCHBLOCK/PATERR 25 \MATCHBLOCK/PATHELP) (332 RETURN 305 CDR 301 SETQ 294 LISTP 291 COND 284 COND 281 $$SOMELP 267 SETQ 250 PROG 214 LAMBDA 155 FUNCTION 143 SOME 129 MEMBER 114 EQUAL 101 MEMB 84 EQ 68 AND 49 AND 33 BACKTRACK) ( 326 ((RETURN)) 317 ((GO $$SOMELP)) 13 " a SOME with null terminator") \MATCHBLOCK/QLISTP §D4 (L (0 X)) g@hNIL (2 LISTP) () \MATCHBLOCK/PATERR §D4 (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(173 ERROR! 170 LISPXPRINT 164 LISPXPRIN1 155 LISPXPRINT 148 LISPXPRIN1 138 LISPXTERPRI 134 LISPXPRIN1) (116 !AT 104 AMBIG 91 NOWITH 79 BADELT 66 BAD# 54 BAD* 41 TWO! 29 BADNOT 16 CLISP 4 BACKTRACK) ( 160 " in: " 144 " at: " 130 "bad pattern" 122 "!atom in middle of pattern" 111 "ambiguous pattern" 97 "no WITH" 86 "Pattern item not atom or list " 72 "invalid #" 61 "invalid *" 47 "Two !'s in a row" 36 "Cannot negate a non-element pattern" 22 "The pattern matcher is confused by what it thinks is CLISP within a pattern - please recode this patNIL" 11 "This pattern contains an empty test after a -- or $") \MATCHBLOCK/PATHELP §D4 (L (1 MESS2 0 MESS1)) oi i @A (16 HELP 11 LISPXTERPRI 7 LISPXPRIN1) NIL ( 3 "error in Pattern Match") \MATCHBLOCK/LOOKLIST §D4 (L (2 ARG' 1 ARG 0 FN)) @ABABh(5 \MATCHBLOCK/LOOK) NIL () \MATCHBLOCK/VALUELOOKUP §D4 (L (0 VAR) F 0 LOCALDECLARATION F 1 MATCHEXPRESSION) Pž@QhPhg @ (20 GETTOPVAL 15 CLISPLOOKUP0) (11 VALUE) () \MATCHBLOCK/LOOK §D4 (L (2 ARG' 1 ARG 0 FN) F 2 LOCALDECLARATION) /@g µ@R²@g Y²@ABRH@g I H(42 CLISPLOOKUP0 37 GETP 22 GETP 6 GETP) (34 CLISPCLASS 19 CLISPCLASSDEF 3 LISPFN) () \MATCHBLOCK/MKAND2 §D4 (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‚ (212 \MATCHBLOCK/MKAND 180 \MATCHBLOCK/MKAND2 162 SUBST 153 \MATCHBLOCK/EQUALUNCROP 138 \APPEND2 129 \MATCHBLOCK/MKAND 124 LDIFF 100 \MATCHBLOCK/MKAND2 94 LAST 79 \NCONC2 73 LDIFF 64 \MATCHBLOCK/MKAND2 58 LAST 43 \MATCHBLOCK/CHECKSLISTP 26 \MATCHBLOCK/EQUALUNCROP 19 \MATCHBLOCK/EQUALUNCROP) (201 AND 185 AND 170 AND 143 SETQ 117 AND 85 AND 49 PROGN 35 LISTP) () \MATCHBLOCK/CHECKSLISTP §D4 (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(335 \MATCHBLOCK/CHECKSLISTP 268 \MATCHBLOCK/CHECKSLISTP 239 \MATCHBLOCK/SELFQUOTEABLE 182 \MATCHBLOCK/CHECKSLISTP) (319 SASSOC 313 ASSOC 306 MEMBER 299 MEMB 292 FASSOC 285 FMEMB 250 QUOTE 222 EQP 216 STREQUAL 210 EQ 203 EQUAL 171 EQLENGTH 165 NTH 159 SOME 152 LAST 145 NLEFT 138 LISTP 131 FLAST 124 FNTH 117 CDR 110 CAR 83 EQLENGTH 77 NTH 71 LAST 64 NLEFT 57 SOME 37 SASSOC 31 ASSOC 25 MEMBER 18 MEMB) () \MATCHBLOCK/EQUALUNCROP §D4 (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ð´0¿Adið³d3³gð´A´Ab¿±ÿ!(25 GETP) (205 QUOTE 176 IEQP 170 EQP 164 EQUAL 157 EQ 140 FASSOC 134 SASSOC 128 ASSOC 121 MEMBER 114 FMEMB 107 MEMB 92 LISTP 86 SOME 80 FNTH 73 FLAST 66 LAST 59 NLEFT 52 NTH 45 CDR 38 CAR 22 CROPS) () \MATCHBLOCK/PATPARSE §D4 (L (0 PAT) P 0 DEFAULTLST) @¨o@ ¿@ (18 \MATCHBLOCK/PATPARSE1 10 \MATCHBLOCK/PATHELP) NIL ( 6 "bad input") \MATCHBLOCK/PATPARSE1 §D4 (L (1 PREFIX 0 PAT) F 8 #LIST) è€@d’±fd^N •µöi¿h’±”o@ ±ˆdgð²1¿K_•O3²@gKh ±@gKL±gð™g@ ±ÿK [±8lð³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 [±ýbLdgð² µL¼gL K»L\±þÜ µ KL \±þÌ(736 \MATCHBLOCK/PATPARSE1 729 \MATCHBLOCK/PATUNPACKINFIX 716 \MATCHBLOCK/PATGETFNNAME 704 \MATCHBLOCK/PATUNPACKINFIX1 686 \MATCHBLOCK/PATPARSE1 656 GETCOMMENT 612 \MATCHBLOCK/PARSEDEFAULT 605 \MATCHBLOCK/PATERR 593 STRPOSL 579 /RPLNODE 573 MKATOM 570 SUBSTRING 553 NCHARS 542 NTHCHAR 520 \MATCHBLOCK/PATGETEXPR 498 \MATCHBLOCK/PATPARSE1 484 STRPOS 424 \MATCHBLOCK/PATUNPACK 399 \MATCHBLOCK/NEGATEPAT 393 \MATCHBLOCK/PATPARSE1 380 \MATCHBLOCK/MAKE!PAT 372 \MATCHBLOCK/PATPARSE1 326 \MATCHBLOCK/PATGETEXPR 282 NTHCHAR 148 \MATCHBLOCK/PATERR 130 STRINGP 116 \MATCHBLOCK/MAKESUBPAT 113 \MATCHBLOCK/PATPARSE1 106 /ATTACH 91 /RPLNODE 76 /RPLACA 73 PACK 37 \MATCHBLOCK/PATERR 16 \MATCHBLOCK/SIMPLELT?) (712 @ 697 @ 673 *ANY* 651 NORMALCOMMENTSFLG 646 COMMENTFLG 631 %. 601 AMBIG 597 CLISP 588 CLISPCHARRAY 561 _ 545 _ 459 PATTERNREPLACEOPRS 440 %. 412 ' 407 ' 387 ~ 364 %. 357 ! 343 & 332 $= 317 $= 310 $< 304 $> 297 = 290 == 276 $= 270 $9 263 $8 257 $7 250 $6 243 $5 236 $4 229 $3 222 $2 215 & 209 $1 201 -- 195 $$ 186 $ 176 -- 167 & 144 BADELT 102 &@ 97 LAMBDA 83 ' 64 ' 44 QUOTE) ( 476 "#" 33 "*ANY*/*EVERY* construct too compicated") \MATCHBLOCK/PATUNPACKINFIX1 §D4 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) () \MATCHBLOCK/PARSEDEFAULT §D4 (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@ °)@dg kð—¿h¸g°idd“g†Rµ gb±ÿ°úI(367 \MATCHBLOCK/VARCHECK 349 GETP 338 \MATCHBLOCK/PATERR 306 /ATTACH 275 /ATTACH 244 /ATTACH 213 /ATTACH 188 /RPLNODE2 126 \MATCHBLOCK/PATERR 118 STRPOSL 97 \MATCHBLOCK/PATERR 81 STRPOS 63 SUBATOM 52 STRPOS 23 \MATCHBLOCK/PATHELP) (379 ? 371 = 358 @ 346 NARGS 334 AMBIG 315 @ 312 $1 302 $1@ 293 APPLY* 287 @ 280 == 271 == 262 EQ 256 == 249 = 240 = 231 EQUAL 225 = 218 ' 209 ' 200 ' 194 QUOTE 172 & 169 _ 153 SET 147 SETQ 141 _ 122 CLISP 113 CLISPCHARRAY 101 SETQ 93 BAD* 88 * 70 BAD# 35 =) ( 330 "invalid PATTERNVARDEFAULT" 76 "*" 43 "#" 18 "MAKEDEFAULT") \MATCHBLOCK/VARCHECK §D4 (L (3 PROPFLG 2 SPELLFLG 1 NOMESSFLG 0 VAR) F 0 VARS) &@lðŸ@dP¨ gð¢@µAhð´@oi(35 ERROR 13 \EVALV1) (16 NOBIND) ( 31 "NOT A VARIABLE") \MATCHBLOCK/PATUNPACK §D4 (L (0 PAT)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATCHARS) () \MATCHBLOCK/PATUNPACKINFIX §D4 (L (0 L)) @` (6 \MATCHBLOCK/PATPARSEAT) (3 PATTERNINFIXES1) () \MATCHBLOCK/PATGETFNNAME §D4 (L (0 L)) ;@d³4d ³-¿@dlF`i@ghdi ³¿@lF`i@gi ¿@(53 FIXSPELL 33 FIXSPELL 10 \DEFINEDP) (48 GETD 43 USERWORDS 26 GETD 21 SPELLINGS2) () \MATCHBLOCK/PATGETEXPR §D4 (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°æ(68 \MATCHBLOCK/FINDIN1 45 DWIMIFY0? 30 \APPEND2 15 \MATCHBLOCK/PATUNPACKINFIX 10 \MATCHBLOCK/PATERR) NIL ( 6 "missing an expression") \MATCHBLOCK/PATPARSEAT §D4 (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@(262 \MATCHBLOCK/PACKLDIFF 233 PACK 168 FNTH 163 FLENGTH 22 UNPACK 15 STRPOSL) (244 $= 225 > 219 < 213 = 206 @ 199 _ 189 $ 10 PATTERNCHARRAY) () \MATCHBLOCK/MAKE!PAT §D4 (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@(189 \MATCHBLOCK/ELT? 167 \MATCHBLOCK/MAKE!PAT 149 \MATCHBLOCK/MAKE!PAT 106 \MATCHBLOCK/PATERR 49 \MATCHBLOCK/MAKE!PAT 46 \MATCHBLOCK/MAKESUBPAT) (205 ! 197 $= 174 SUBPAT 157 * 138 @ 132 -> 126 % 119 <- 112 _ 102 TWO! 96 ! 88 $ 82 -- 76 $ 70 $ 64 & 26 <- 19 _ 4 !) () \MATCHBLOCK/MAKESUBPAT §D4 (L (0 PATLST)) @d oô¦@oô“gg@NIL (23 SUBPAT 19 &) ( 14 ($) 7 (--)) \MATCHBLOCK/NEGATEPAT §D4 (L (1 REALPAT 0 PE)) q@d³gð¦@gð²[o@°Pdgð³Kdgð³Ddgð³=dgð³6dgð³dgð«dgð¥dgðž¿@@@ gð§gA ¿g@(104 \MATCHBLOCK/PATERR 89 \MATCHBLOCK/NEGATEPAT) (108 ~ 100 BADNOT 95 @ 75 -> 69 <- 63 % 56 _ 49 SUBPAT 42 ' 35 == 28 = 13 $ 7 &) ( 20 "Cannot negate this type of pattern") \MATCHBLOCK/PACKLDIFF §D4 (L (1 LST2 0 LST1)) @kAXµh@ Hh¿(20 PACK 14 HELP 8 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