(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "27-Feb-93 14:27:57" ("compiled on " |{PELE:MV:ENVOS}LIBRARY>MATCH.;2|) "19-Feb-93 17:03:08" bcompl'd in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "12-Jun-90 10:02:15" {DSK}local>lde>lispcore>library>MATCH.;2 106667 changes to%: ( VARS MATCHCOMS) previous date%: "10-Apr-84 21:34:35" {DSK}local>lde>lispcore>library>MATCH.;1) MAKEMATCH :D8 (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ð³[dgð³R¿@lFoi@ ³;@²&@g@hig@ Œg@ ¿@d²1dgð³(dgð³¿o@ Š¿o ¿@ _$@´'KW6 @@ihdW0 ¿@_@ “@‡@ _(dO$ _*O" _"O²'@gð²gO(O hh_¿O O OµOµJ´ O¦ihƒh€h _&dgO*O&hO* _*MžgMO*hNO*(504 \MATCHBLOCK/DOSUBST 479 \NCONC2 474 \NCONC2 447 DREVERSE 440 DREVERSE 424 MKPROGN 390 DREVERSE 381 \MATCHBLOCK/QMATCHSUBPAT 371 \MATCHBLOCK/SUBSTVAR 358 \MATCHBLOCK/EASYTORECOMPUTE 340 DWIMIFY0? 319 \APPEND2 302 \MATCHBLOCK/PATPARSE 291 HELP 279 \MATCHBLOCK/PATERR 234 \MATCHBLOCK/PATERR 220 /ATTACH 206 FIXSPELL1 176 FIXSPELL 131 DWIMIFY0? 66 \MATCHBLOCK/VALUELOOKUP 54 \MATCHBLOCK/VALUELOOKUP 42 \MATCHBLOCK/VALUELOOKUP 30 \MATCHBLOCK/VALUELOOKUP 8 GETLOCALDEC) (513 LAMBDA 488 COND 415 TOPREPLACE 407 -> 259 => 250 -> 226 NOWITH 212 with 194 with 151 WITH 142 with 110 MATCH 102 match 85 with 79 match 61 PATVARSMIGHTBENIL 49 PATVARDEFAULT 37 PATLISTPCHECK 25 PATCHECKLENGTH 13 PATGENSYMVARS) ( 286 "Bad arg to MAKEMATCH" 268 "Expression after pattern not preceded by => or ->" 166 (WITH)) \MATCHBLOCK/QMATCHSUBPAT :D8 (L (2 NOLISTPCHECK 1 PATELT 0 VAR) P 1 INASOME P 0 CHECKINGLENGTH F 2 INASOME F 3 LISTPCHECK) )ihRS²B³@ @A @A (38 \MATCHBLOCK/QMATCHWM 30 \MATCHBLOCK/MKAND 25 \MATCHBLOCK/QMATCHWM 18 \MATCHBLOCK/QLISTP) NIL () \MATCHBLOCK/QMATCHWM :D8 (L (2 FN 1 PAT 0 VAR) P 1 INASOME F 2 INASOME F 3 CHECKLENGTH F 4 CHECKINGLENGTH) µAµShðµ‚±“Thðµ‚±Š@ ³(Adgð§dgð™¿@AB¿@ABAdgð³ìdgð³ãdgð³Údgð³Ñdgð³Èdgð³¿dgð™¿@ABdgð™¿@ABgð¢±óAd ²J¿RgðAgð’±ÿoA ¢±ÿbA@ @AAB ¢±šB³ZA ´PAi ´EgX@A@H HA iA ¸R”RHiHhR@AgA@g A hBAAABb¿b±þO(414 \MATCHBLOCK/QMATCHWM 403 \MATCHBLOCK/MAKE!PAT 398 \MATCHBLOCK/MAKESUBPAT 391 \MATCHBLOCK/QAPPLY* 386 \MATCHBLOCK/QLDIFF 344 \MATCHBLOCK/QFOR 338 \MATCHBLOCK/CANMATCHNILLIST 330 \MATCHBLOCK/MKAND 325 \MATCHBLOCK/QMATCHWM 317 \MATCHBLOCK/QAPPLY* 312 \MATCHBLOCK/QLDIFF 299 \MATCHBLOCK/GENSYML 287 \MATCHBLOCK/ARB? 276 \MATCHBLOCK/$? 258 \MATCHBLOCK/MKAND 253 \MATCHBLOCK/QMATCHWM 239 \MATCHBLOCK/QAPPLY* 234 \MATCHBLOCK/QCAR 220 \MATCHBLOCK/SIMPLEFN 185 \MATCHBLOCK/ELT? 164 \MATCHBLOCK/QMATCH$= 146 \MATCHBLOCK/QMATCH! 71 \MATCHBLOCK/QMATCHELT1 61 \MATCHBLOCK/QMATCH$ 29 \MATCHBLOCK/QNULL) (381 @ 371 @ 294 OLD 206 & 195 FASTINASOME 170 @ 153 $= 135 ! 126 *ANY* 117 ~ 108 SUBPAT 99 %' 90 == 81 = 50 -- 42 $) () \MATCHBLOCK/QMATCH$ :D8 (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’±’A°.d]dgð›¿kH ¸h°gðšHM ¸h€i¤µÒh¼Hjð³WH—H ³KL–L —@H H3²@HkØ AL @H AL A°$d ^µi°jð’±„NµwHN ¸h¤µÜh\ ¢±ªHjð³/H—H ³#@dgð²J¿A ³>A ²4@dgð‘Hk hK ° ²†i»°Š@HhK YA hðµIIA BhðµB@I B’±íLAð¢±äHkð¢±ÝL ¢±ÓAgð¢±ÅAdgð³‹d_O •µòi¿h¢±žAAohð‹Ao²zgA Ydgð³dgð¯dgð§dgð’¿i¿h²AIgð›g@ „gI@hgA_¿ OiW"d›o °Agð•g„gYW$2@dgð²5¿A_µh²)@_ ²"I °d ’¿°å ’i°ÝO°Ò@_ ¿IZA _dið²?Odgð©dgð¡d¬¿o °A¿O_¿Bhðµ5B@J °&B@J OohðhðµO _OgðdIO OOA (956 \MATCHBLOCK/QFOR 950 \MATCHBLOCK/CANMATCHNILLIST 924 \MATCHBLOCK/MKAND 901 \MATCHBLOCK/DOSIDE 896 \MATCHBLOCK/QLDIFF 886 \MATCHBLOCK/DOSIDE 881 \MATCHBLOCK/QLDIFF 859 \MATCHBLOCK/PATHELP 820 \MATCHBLOCK/QMATCHWM 799 \MATCHBLOCK/REPLACEIN 790 \MATCHBLOCK/ELT? 781 \MATCHBLOCK/QCDR 738 \MATCHBLOCK/GENSYML 710 \MATCHBLOCK/PATHELP 694 \MATCHBLOCK/QMATCHSUBPAT 686 \MATCHBLOCK/SUBSTVAR 652 \MATCHBLOCK/LOOK 590 \MATCHBLOCK/QMATCHELT 527 \MATCHBLOCK/ARB? 483 \MATCHBLOCK/NULLPAT? 455 \MATCHBLOCK/MKAND 450 \MATCHBLOCK/MKAND 445 \MATCHBLOCK/DOSIDE 440 \MATCHBLOCK/QLDIFF 427 \MATCHBLOCK/QMATCHWM 414 \MATCHBLOCK/CANMATCHNILLIST 406 \MATCHBLOCK/SUBSTVAR 401 \MATCHBLOCK/QNLEFT 386 \FZEROP 379 \MATCHBLOCK/QCDR 374 \MATCHBLOCK/SUBSTVAR 369 \MATCHBLOCK/QNLEFT 362 \MATCHBLOCK/QPLUS 340 \MATCHBLOCK/REPLACEIN 330 \MATCHBLOCK/ELT? 307 \FZEROP 285 \MATCHBLOCK/NILPAT 271 \MATCHBLOCK/QPLUS 247 \MATCHBLOCK/PATLEN 236 \MATCHBLOCK/QMATCHWM 227 \MATCHBLOCK/QCDR 222 \MATCHBLOCK/QCDR 217 \MATCHBLOCK/SUBSTVAR 212 \MATCHBLOCK/QNTH 204 \MATCHBLOCK/QMATCHWM 195 \MATCHBLOCK/QNTH 180 \MATCHBLOCK/QNOTLESSPLENGTH 172 \MATCHBLOCK/NULLPAT? 162 \FZEROP 136 \MATCHBLOCK/QPLUS 116 \MATCHBLOCK/QPLUS 83 \MATCHBLOCK/PATERR 72 \MATCHBLOCK/ARB? 62 \MATCHBLOCK/DOWATCH 55 \MATCHBLOCK/QMATCHWM 37 \MATCHBLOCK/PATHELP 13 \MATCHBLOCK/DOSIDE) (934 FOUND 844 FASTINASOME 836 INASOME 754 CDR 732 INASOME 726 FASTINASOME 719 $ 672 & 658 SASSOC 646 ASSOC 639 EQ 623 STREQUAL 615 EQP 607 EQUAL 598 EQ 580 DUMMY 509 $ 496 SUBPAT 351 CDR 318 CDR 126 $= 106 & 88 Must) ( 909 (INASOME FASTINASOME NIL) 854 "bad pattern tail" 705 "INASOME mismatch" 572 (= == %') 557 (& $ --) 78 "Two $ or -- patterns in a row, ambiguous" 32 "INASOME mismatch") \MATCHBLOCK/QMATCH! :D8 (L (2 FN 1 PAT 0 VAR) P 8 WMLST P 3 CHECKLENGTH F 9 WMLST) ý Ad ²/¿Agðš@A ˆ@A B@ «oA Adgð¢±™ B@I IA ZoI@HAJið²H HI h °-A §H °H HI h J hodgð²)¿A Ÿi@AhBgA dgð²l¿Ad› ²A ²Ïi@AhB@gg@A°d_¿gO¼MµLh^L&½µåNABgð²YB³@AA hW@AgOA h B@O oA (506 \MATCHBLOCK/PATERR 491 \MATCHBLOCK/MKAND 486 \MATCHBLOCK/DOSIDE 481 \MATCHBLOCK/QLDIFF 471 \MATCHBLOCK/QMATCHWM 466 \APPEND2 457 \MATCHBLOCK/MAKE!PAT 452 \MATCHBLOCK/MAKESUBPAT 425 \MATCHBLOCK/QMATCHWM 420 \APPEND2 396 \MATCHBLOCK/QMATCHWM 334 \MATCHBLOCK/QMATCHWM 317 \MATCHBLOCK/NULLPAT? 307 LAST 281 \MATCHBLOCK/PATERR 267 \MATCHBLOCK/QMATCHWM 251 \MATCHBLOCK/NULLPAT? 233 SUBPAIR 217 \MATCHBLOCK/MKAND 211 \MATCHBLOCK/QOR 203 \MATCHBLOCK/QEQUAL 196 \MATCHBLOCK/QNULL 188 \MATCHBLOCK/QNULL 181 \MATCHBLOCK/CANMATCHNILLIST 172 \MATCHBLOCK/QOR 164 \MATCHBLOCK/QEQUAL 157 \MATCHBLOCK/QNULL 133 \MATCHBLOCK/MKAND 128 \MATCHBLOCK/QMATCHWM 120 \MATCHBLOCK/DOSIDE 115 \MATCHBLOCK/QLDIFF 104 \MATCHBLOCK/BINDVAR 99 \MATCHBLOCK/GENSYML 94 \MATCHBLOCK/BINDVAR 89 \MATCHBLOCK/GENSYML 68 \MATCHBLOCK/PATERR 53 \MATCHBLOCK/MKAND 48 \MATCHBLOCK/DOSIDE 41 \MATCHBLOCK/QMATCHELT 31 \MATCHBLOCK/QMATCHWM 7 \MATCHBLOCK/NILPAT) (443 *GLITCH 402 SUBPAT 364 %' 346 SUBPAT 341 ! 288 %' 273 !AT 240 == 79 = 19 SUBPAT) ( 497 "Invalid use of ! in pattern" 228 (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)) 139 (TAILVAR VAR TEMVAR ONVAR FINALLY) 62 "Invalid '!'") \MATCHBLOCK/QMATCH$= :D8 (L (2 FN 1 PAT 0 VAR) P 0 SKIPEDLEN F 5 CHECKINGLENGTH F 6 INASOME) BjAA ²Uhðµ@A B@ B’±€A°.d[dgð›¿kH ¸h°gðšHK ¸h€i¤µÒhd ²+¿Uhðµ@AH ºVœVJ ¿i°J°¯@AH €hµ‚±™A\jð³,Lµ A3²;A`ýñ²/@A °2 ²ÝB@d @A @A YUhðµA hðµIB@I I A (319 \MATCHBLOCK/MKAND 314 \MATCHBLOCK/MKAND 309 \MATCHBLOCK/QMATCHWM 302 \MATCHBLOCK/QCDR 296 \MATCHBLOCK/DOSIDE 291 \MATCHBLOCK/QLDIFF 286 \MATCHBLOCK/QCDR 273 \MATCHBLOCK/CANMATCHNILLIST 260 \MATCHBLOCK/SUBSTVAR 255 \MATCHBLOCK/QNTH 245 \MATCHBLOCK/MKAND 240 \MATCHBLOCK/QMATCHWM 232 \MATCHBLOCK/DOSIDE 227 \MATCHBLOCK/QLDIFF 217 \FZEROP 210 \MATCHBLOCK/QNTH 161 \MATCHBLOCK/QEQLENGTH 156 \MATCHBLOCK/QPLUS 138 \MATCHBLOCK/DOWATCH 125 \MATCHBLOCK/QNOTLESSPLENGTH 120 \MATCHBLOCK/QPLUS 102 \MATCHBLOCK/NULLPAT? 86 \MATCHBLOCK/QPLUS 66 \MATCHBLOCK/QPLUS 38 \MATCHBLOCK/MKAND 33 \MATCHBLOCK/DOSIDE 26 \MATCHBLOCK/QEQLENGTH 10 \MATCHBLOCK/NILPAT) (197 MAXCDDDDRS 76 $= 56 &) () \MATCHBLOCK/QMATCHELT1 :D8 (L (2 FN 1 PAT 0 VAR) P 0 INASOME F 1 INASOME F 2 CHECKINGLENGTH) ²Rhðµ6Ad² šA ’@°i° —@k Š@ @ A B@ AhðµKQgð²4Ad˜oˆohð²QhQ@ A ¿iŒ@ A (175 \MATCHBLOCK/MKAND 170 \MATCHBLOCK/MKAND 165 \MATCHBLOCK/MKAND 160 \MATCHBLOCK/QMATCHWM 153 \MATCHBLOCK/QCDR 142 \MATCHBLOCK/QMATCHWM 135 \MATCHBLOCK/QCDR 81 \MATCHBLOCK/DOSIDE 76 \MATCHBLOCK/QCAR 69 \MATCHBLOCK/QMATCHELT 62 \MATCHBLOCK/QCAR 56 \MATCHBLOCK/QNULL 51 \MATCHBLOCK/QCDR 44 \MATCHBLOCK/QEQLENGTH 36 \MATCHBLOCK/CANMATCHNIL 23 \MATCHBLOCK/CANMATCHNILLIST 15 \MATCHBLOCK/CANMATCHNIL) (94 FASTINASOME) ( 117 ($1 &) 109 (= == %' *ANY* @ SUBPAT)) \MATCHBLOCK/QMATCHELT :D8 (L (1 PATELT 0 VAR) F 4 CHECKINGLENGTH F 5 CHECKLENGTH) CAd³#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 (320 \MATCHBLOCK/PATHELP 309 \MATCHBLOCK/QNOTLESSPLENGTH 300 \MATCHBLOCK/QEQLENGTH 276 \MATCHBLOCK/QMATCHSUBPAT 258 \MATCHBLOCK/QEQUAL 240 \MATCHBLOCK/QEQUAL 196 \MATCHBLOCK/QNOT 191 \MATCHBLOCK/QMATCHELT 173 \MATCHBLOCK/QOR 150 \MATCHBLOCK/QMATCHELT 123 \MATCHBLOCK/MKAND 118 \MATCHBLOCK/QAPPLY* 109 \MATCHBLOCK/QMATCHELT 99 \MATCHBLOCK/MKAND 94 \MATCHBLOCK/QMATCHELT 85 \MATCHBLOCK/QAPPLY* 74 \MATCHBLOCK/SIMPLEFN 55 \MATCHBLOCK/QEQ 36 \MATCHBLOCK/QEQUAL) (282 $= 265 SUBPAT 247 = 230 QUOTE 203 %' 180 ~ 130 *ANY* 62 @ 44 == 25 & 17 -- 9 $) ( 315 "MATCHELT invalid pattern") \MATCHBLOCK/SIMPLEFN :D8 (L (0 FN)) @`NIL (5 SIMPLE.PREDICATES) () \MATCHBLOCK/DOSIDE :D8 (L (1 X 0 WHATTODO) F 0 POSTPONEDSETQS F 1 POSTPONEDRPLACS F 2 LASTEFFECTCANBENIL) @hðµ‚±@dgð²5¿A@ µ‚±ëg@Ah@ ´ih ±Ædgð²C¿A@ µ‚±¯@ ¿A ¿g@AhPc¿@ c¿i°{dgðœ¿A@ °fdgð²&¿@ ¿A ¿A@ Qc¿i°9dgðœ¿@A °$gðŸ@A¿A ¿iŠo@ @A (279 \MATCHBLOCK/MKAND 274 \MATCHBLOCK/DOSIDE 266 \MATCHBLOCK/PATHELP 252 \MATCHBLOCK/DOWATCH 230 \MATCHBLOCK/QAPPLY* 203 \MATCHBLOCK/QREPLACE 192 \MATCHBLOCK/DOWATCH 185 \MATCHBLOCK/DOWATCH 164 \MATCHBLOCK/QREPLACE 139 \MATCHBLOCK/CANMATCHNIL 110 \MATCHBLOCK/DOWATCH 103 \MATCHBLOCK/DOWATCH 88 \MATCHBLOCK/CHECKSETQ 68 MKPROGN 57 \MATCHBLOCK/CANMATCHNIL 28 \MATCHBLOCK/CHECKSETQ) (237 *GLITCH 217 @ 172 % 151 -> 116 SETQ 77 _ 39 SETQ 17 <-) ( 260 "MATCH FUNARG MISMATCH") \MATCHBLOCK/CHECKSETQ :D8 (L (1 ARGS 0 X) F 1 %#LIST F 2 %#LISTUSED F 3 INASOME F 4 MUSTRETURN) \AdQ²>dR²&¿S°dHdgð¨gð“Hh¿µãA@gigð´@ @ci(85 \MATCHBLOCK/DOWATCH 66 \MATCHBLOCK/MAKESUBST) (76 * 61 WATCH 40 FASTINASOME 32 INASOME) () \MATCHBLOCK/DOREPLACE :D8 (L (1 SUBSTDONE 0 EXPRESSION)) A@@@gðAµA³èib²ã@@ µ@b°Òb¿A§@ µ@(59 \MATCHBLOCK/DOSUBST1 39 \MATCHBLOCK/DOSUBST1 20 \MATCHBLOCK/DOREPLACE1) (13 TOPREPLACE) () \MATCHBLOCK/DOREPLACE1 :D8 (L (3 SUBSTDONE 2 TOPFLG 1 EXPR2 0 EXPR1)) Ù@Aôµ‚±ÑB²eAdgð¨dgð²N¿@ AidAgð–Ahðµ'@ Adgðš¿gA‚id ¿hµj@dgð²¿g @Ahdgð²¿g @Ahgð²@A@ b¿b±ÿ 254 ~ 246 == 238 = 218 %' 204 *ANY* 183 ! 166 *GLITCH 158 @ 150 % 141 <- 132 -> 123 _ 111 $= 59 SUBPAT 31 & 21 -- 9 $) ( 287 "PATLEN invalid pattern") \MATCHBLOCK/$? :D8 (L (0 PATELT)) @gðµ @gðNIL (14 $ 5 --) () \MATCHBLOCK/ELT? :D8 (L (0 PATELT)) @µ@d3 µ @odgð³,dgð³#dgð³dgð¯dgð§dgð‘idgð³.dgð³%dgð³dgð³dgð¨dgð´–¿@b±ÿx(13 STRINGP) (127 *GLITCH 119 @ 110 % 101 <- 92 -> 83 _ 73 *ANY* 65 ~ 57 SUBPAT 48 %' 39 == 30 =) ( 21 (& NIL T)) \MATCHBLOCK/SIMPLELT? :D8 (L (0 PATELT)) >@hðµ8@dgð—¿@b°ëdgð³dgð¯dgð§dgð‘hiNIL (54 % 46 <- 38 -> 29 _ 13 @) () \MATCHBLOCK/ARB? :D8 (L (1 @OKFLG 0 PATELT)) U@µ @ dgð‘hdgð‘Adgð³%dgð³dgð³dgð¨dgð´Ë¿@b°¯(9 \MATCHBLOCK/$?) (72 *GLITCH 64 -> 55 _ 46 % 37 <- 27 @ 17 !) () \MATCHBLOCK/NULLPAT? :D8 (L (0 PAT) F 1 CHECKLENGTH) @µQhðdHH ´µïi(18 \MATCHBLOCK/$?) NIL () \MATCHBLOCK/NILPAT :D8 (L (0 PATLIST) F 0 CHECKLENGTH) P´@hðNIL NIL () \MATCHBLOCK/CANMATCHNIL :D8 (L (0 PATELT) F 1 LISTPCHECK F 2 PATVARSNIL) Ÿ@µ%@gð³@²@gð¬@gð´‚±Zi’±i@dgð²(¿@ ´‚±8@`hð´‚±'odgð²¿Qhð´‚±@ dgð³¥dgð²¿@3hðµ‚±çk@ñdgð’±Ödgð³#dgð³dgð¯dgð§dgð˜¿@b±ÿ)dgð²¿@dgð— b±ÿdgð•¿@hðdgð¨dgð²B¿@dd3@ðŸ¿@iðµ/@´+Rhð°&hðµ @g oµ@`hðdgð²¿@dHH ¤µðhgð’@o@ o (412 \MATCHBLOCK/PATHELP 401 \MATCHBLOCK/PATHELP 372 \MATCHBLOCK/CANMATCHNIL 328 GETP 246 \MATCHBLOCK/CANMATCHNILLIST 119 \MATCHBLOCK/CANMATCHNILLIST 64 \MATCHBLOCK/CANMATCHNIL) (385 ~ 354 *ANY* 344 NEVERNILFUNCTIONS 323 CLISPCLASS 281 == 273 = 259 %' 237 SUBPAT 224 ! 207 *GLITCH 199 <- 191 % 182 -> 173 _ 162 $> 135 $= 126 $< 99 SUBPAT 78 PATNONNILFUNCTIONS 52 @ 29 -- 21 $ 9 &) ( 407 "CANMATCHNIL invalid pattern" 395 "CANMATCHNIL invalid pattern" 333 (+ * ^ RPLACA RPLACD / - +-) 92 (MAYBE, MAYBE NOT)) \MATCHBLOCK/CANMATCHNILLIST :D8 (L (0 PATLIST) F 1 CHECKINGLENGTH) $@°dQ™H hð´H ´µäi(25 \MATCHBLOCK/CANMATCHNIL 15 \MATCHBLOCK/ELT?) NIL () \MATCHBLOCK/REPLACEIN :D8 (L (0 PATELT)) Å@´l@dgð¯dgð§dgð‘idgð¯dgð§dgð—¿@b°Ãdgð–¿@b°´dgð²¿@dHH ¤µðhdgð³÷dgð³îdgð³ådgð³Üdgð³Ódgð³Êdgð³Ádgð³¸¿o@ (194 \MATCHBLOCK/PATHELP 102 \MATCHBLOCK/REPLACEIN) (179 *ANY* 170 ~ 161 $> 152 $< 143 %' 134 == 125 = 116 $= 84 SUBPAT 69 ! 53 <- 45 _ 37 @ 27 *GLITCH 19 % 11 ->) ( 188 "Invalid pattern REPLACEIN") \MATCHBLOCK/EASYTORECOMPUTE :D8 (L (0 EXPRESSION)) 7@µ@d³/g ³@dgð§dgð’¿i¿h´ @b°Î(18 GETP) (36 CDR 28 CAR 13 CROPS) () \MATCHBLOCK/GENSYML :D8 (F 1 GENSYMVARLIST F 2 VARS) QcµXR³ñH(14 GENSYM) NIL () \MATCHBLOCK/MAKESUBST :D8 (L (2 FLG 1 VAL 0 VAR) F 0 SUBLIST) F@§b¿Bgð@ ¿A ¿@ABdið“¿i°gð´A hðhðPc@(56 \MATCHBLOCK/EASYTORECOMPUTE 30 \MATCHBLOCK/DOWATCH 23 \MATCHBLOCK/DOWATCH 6 \MATCHBLOCK/GENSYML) (47 WATCH 15 WATCH) () \MATCHBLOCK/DOSUBST :D8 (L (0 EXPRESSION)) @d¨h „ µ@(17 \MATCHBLOCK/DOSUBST1 10 \MATCHBLOCK/DOSUBST1) NIL () \MATCHBLOCK/DOSUBST1 :D8 (L (0 EXPRESSION) P 7 SUBLIST F 17 SUBLIST) 4p@´‚±@d’±¤¿W"Zµ?hX¢±–@@bHd²E¿ ¹HgIHh¿HI¿Hi°)[d¥@ðœ°º@ð•Kµ³i°°J°§«HH¡i€@¿@H@d¬ µ‚± @d µ@@dd µ@¿@dgð²)@W" @ _´‚±Z@@Odgð¢±›¿0 0 @°2d\d² _™i_¿LO€L_¿Oµ Oh_‚O&_¿µÏO_0@°dd_¿Oµ Oh_ ‚O&_¿µäO W" @ _§O´‚±»@OOµ@dgð’±dgð§dgð—¿@ ¿@dgð¨dgð²¿@dgð§dgð’¿i¿h²'@ µ@X@gð–d H @ ]@ ^@gð—d´@NhMµ N´ Mµ@Nµ@(526 \MATCHBLOCK/DOSUBST1 518 \MATCHBLOCK/DOSUBST1 510 \MATCHBLOCK/QCAR 503 \MATCHBLOCK/QCDR 482 \MATCHBLOCK/DOSUBST1 425 \MATCHBLOCK/DOREPLACE 366 \MATCHBLOCK/DOSUBST1 355 \NCONC2 264 \MATCHBLOCK/DOSUBST1 210 \MATCHBLOCK/DOSUBST1 199 \APPEND2 171 \MATCHBLOCK/DOSUBST1 157 \MATCHBLOCK/DOSUBST1 142 \MATCHBLOCK/DOSUBST1 56 \MATCHBLOCK/BINDVAR 51 \MATCHBLOCK/GENSYML) (534 DUMMY 495 CDR 465 CDR 457 CAR 443 CDR 435 CAR 416 REPLACE 408 TOPREPLACE 397 QUOTE 234 PROG 186 LAMBDA 65 SETQ) () \MATCHBLOCK/SUBSTVAR :D8 (L (0 X)) @ (10 \MATCHBLOCK/MAKESUBST 4 \MATCHBLOCK/GENSYML) NIL () \MATCHBLOCK/BINDVAR :D8 (L (1 VAL 0 VAR) F 0 BOUNDVARS F 1 BOUNDVALS) @PcAQc@NIL NIL () \MATCHBLOCK/SELFQUOTEABLE :D8 (L (0 EXPRESSION)) @d3® µ @hðµ@ið(9 STRINGP) NIL () \MATCHBLOCK/FINDIN0 :D8 (L (1 X 0 VAR) F 1 SUBLIST) ,@A µ#Q°dHH ´ @H ¤µåh(34 \MATCHBLOCK/FINDIN1 24 \MATCHBLOCK/FINDIN1 6 \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/FINDIN1 :D8 (L (1 LST 0 AT)) @AðµA´@A µ Ab¿°è(16 \MATCHBLOCK/FINDIN1) NIL () \MATCHBLOCK/DOWATCH :D8 (L (0 X) F 1 WATCHPOSTPONELST) -Qd²)°#dHgð³HH —Hg¿µÞh(27 \MATCHBLOCK/FINDIN0) (34 FOUND 16 FOUND) () \MATCHBLOCK/PATNARGS :D8 (L (0 X)) @g µ@ (18 NARGS 10 GETP) (5 NARGS) () \MATCHBLOCK/QNLEFT :D8 (L (3 NOTFASTFLG 2 TAIL 1 N 0 EXPRESSION)) dB²g @ABhAjð®Ad²d ²¿gg@hhkð²C™g@h@ g @Ah(91 \MATCHBLOCK/LOOK 80 \MATCHBLOCK/QLAST 37 \FZEROP 12 \MATCHBLOCK/LOOK) (86 NLEFT 69 LAST 50 LAST 45 CDR 7 NLEFT) () \MATCHBLOCK/QNCONC :D8 (L (1 EXPR2 0 EXPR1)) ]A¡@@gð²$@ °dgHAhbµëAAgð²A®g@Ag@A(90 \MATCHBLOCK/LOOKLIST 77 \MATCHBLOCK/LOOKLIST 21 REVERSE) (83 NCONC 68 NCONC1 56 LIST 33 CONS 11 LIST) () \MATCHBLOCK/QNOT :D8 (L (0 X)) @g (10 \MATCHBLOCK/QNOT1) (5 NOT) () \MATCHBLOCK/QNULL :D8 (L (0 X)) @g (10 \MATCHBLOCK/QNOT1) (5 NULL) () \MATCHBLOCK/QNOT1 :D8 (L (1 FNNAME 0 X)) u@d³“@iðšo A@hdgð§dgð”¿@dgð˜¿@gdgð˜¿@gdgð˜¿@ggð²«@g(19 \MATCHBLOCK/PATERR) (113 LISTP 104 NLISTP 97 NLISTP 88 LISTP 80 EQ 71 NEQ 63 NEQ 54 EQ 41 NULL 33 NOT) ( 14 "NULL check of T or NIL; possibly a bad pattern") \MATCHBLOCK/QNOTLESSPLENGTH :D8 (L (1 N 0 X)) Ajð³Aµ @A ²ói(22 \FZEROP 16 \MATCHBLOCK/QNTH) NIL () \MATCHBLOCK/QNTH :D8 (L (1 LEN 0 VAR) F 0 CHECKINGLENGTH) iA”kAñ²Pšg „g@AhAd`ñ²'¿@gðœAkØb¿@b°ìg@AhAkÙbjñg@hb¿°ì@(20 \MATCHBLOCK/LOOK) (92 CDR 72 NTH 52 CDR 40 MAXCDDDDRS 26 FNTH 15 NTH) () \MATCHBLOCK/QOR :D8 (L (0 LISTOFEXPRESSIONS)) @d˜¿g@NIL (9 OR) () \MATCHBLOCK/QPLUS :D8 (L (1 EXPR2 0 EXPR1)) @3—A3“@AØg@AhNIL (16 IPLUS) () \MATCHBLOCK/QREPLACE :D8 (L (1 EXPRESSION 0 VAR)) g@AhNIL (4 REPLACE) () \MATCHBLOCK/MKAND :D8 (L (1 Y 0 X)) @A µ g@Ah(6 \MATCHBLOCK/MKAND2) (13 AND) () \MATCHBLOCK/QCAR :D8 (L (0 X)) g@hNIL (4 CAR) () \MATCHBLOCK/QCDR :D8 (L (0 X)) g@hNIL (4 CDR) () \MATCHBLOCK/QEQ :D8 (L (1 EXPRESSION 0 VAR)) 1Aµ @ jð³Aµg@Ah ²ïg@h(35 \FZEROP 8 \MATCHBLOCK/QNULL) (42 ZEROP 23 EQ) () \MATCHBLOCK/QEQLENGTH :D8 (L (1 LEN 0 VAR)) GAjð³+Aµ@gð²"@kA b¿b¿°Û ²Þ@ g @Ah(62 \MATCHBLOCK/LOOK 51 \MATCHBLOCK/QNULL 43 \FZEROP 30 \MATCHBLOCK/QPLUS) (57 EQLENGTH 17 CDR) () \MATCHBLOCK/QEQUAL :D8 (L (1 EXPRESSION 0 VAR)) |Ad²dgðŸd •¿Ab¦@ Adið˜¿@A ³Ad²dgð²dd3@ð—¿g°3–g°A •g„g@Ah(103 STRINGP 50 \MATCHBLOCK/QEQ 36 \MATCHBLOCK/QNULL 22 \MATCHBLOCK/SELFQUOTEABLE) (115 EQUAL 109 STREQUAL 95 EQP 85 EQ 67 QUOTE 11 QUOTE) () \MATCHBLOCK/QLAST :D8 (L (0 X)) g@ @h(10 \MATCHBLOCK/LOOK) (4 LAST) () \MATCHBLOCK/QAPPLY* :D8 (L (1 VAR 0 FNNAME)) @d˜gð•@AhAg@(29 SUBST) (23 @ 9 LAMBDA) () \MATCHBLOCK/QLDIFF :D8 (L (1 Y 0 X)) g @Ah(9 \MATCHBLOCK/LOOK) (4 LDIFF) () \MATCHBLOCK/QFOR :D8 (L (5 NOSOMEFLG 4 {FINALLY}EXPR 3 {UNTIL}EXPR 2 {ON}VAR 1 I.V. 0 {OLD})) © Cdið²¿o@ABDh ¿CAðšg ¿E’±öCdgð²dAð²dš¿gC‚bdgð² ¿CA ô²6gCB°#gð²CA ôŸgCBhµigBAh¹gCIð²:Cdl ž¿Cd kð³!¿C kð²Cl ›CIð’CŠgIChhh¸@£Dið®AH AD Hg@§ABhh€h@´gA BhhggC ggAhgAgAhhohoigDhhhh (420 CL:APPEND 345 NEGATE 322 \MATCHBLOCK/BINDVAR 289 \MATCHBLOCK/MKAND 282 \MATCHBLOCK/MAKESUBST 237 EQLENGTH 225 \MATCHBLOCK/PATNARGS 213 \MATCHBLOCK/PATNARGS 203 EQLENGTH 176 \MATCHBLOCK/GENSYML 147 \MATCHBLOCK/QCAR 128 \MATCHBLOCK/LOOKLIST 110 \MATCHBLOCK/QCAR 43 \MATCHBLOCK/PATERR 28 \MATCHBLOCK/PATHELP) (401 RETURN 370 CDR 364 SETQ 355 LISTP 350 COND 339 COND 334 $$SOMELP 316 SETQ 297 PROG 255 LAMBDA 186 FUNCTION 170 SOME 154 MEMBER 135 EQUAL 118 MEMB 97 EQ 79 AND 58 AND 38 BACKTRACK) ( 393 ((RETURN)) 383 ((GO $$SOMELP)) 14 " a SOME with null terminator") \MATCHBLOCK/QLISTP :D8 (L (0 X)) g@hNIL (4 LISTP) () \MATCHBLOCK/PATERR :D8 (L (1 AT 0 MSG) F 0 MATCHEXPRESSION) ã@dgð˜¿o±–dgð˜¿o±…gð–o°v@dgð—¿o°egð–o°W@dgð—¿o°Fgð–o°8@dgð—¿o°'gð–o°@dgð–¿o†µoi i A²oi ¿Aid¿oi Pid(224 ERROR! 219 LISPXPRINT 211 LISPXPRIN1 199 LISPXPRINT 190 LISPXPRIN1 176 LISPXTERPRI 170 LISPXPRIN1) (148 !AT 132 AMBIG 117 NOWITH 101 BADELT 86 BAD# 70 BAD* 55 TWO! 39 BADNOT 23 CLISP 6 BACKTRACK) ( 205 " in: " 184 " at: " 164 "bad pattern" 156 "!atom in middle of pattern" 139 "ambiguous pattern" 125 "no WITH" 108 "Pattern item not atom or list " 94 "invalid #" 77 "invalid *" 63 "Two !'s in a row" 46 "Cannot negate a non-element pattern" 31 "The pattern matcher is confused by what it thinks is CLISP within a pattern - please recode this patNIL" 14 "This pattern contains an empty test after a -- or $") \MATCHBLOCK/PATHELP :D8 (L (1 MESS2 0 MESS1)) oi i @A (23 HELP 16 LISPXTERPRI 10 LISPXPRIN1) NIL ( 4 "error in Pattern Match") \MATCHBLOCK/LOOKLIST :D8 (L (2 ARG' 1 ARG 0 FN)) @ABABh(7 \MATCHBLOCK/LOOK) NIL () \MATCHBLOCK/VALUELOOKUP :D8 (L (0 VAR) F 0 LOCALDECLARATION F 1 MATCHEXPRESSION) P²@QhPhg @ (27 GETTOPVAL 20 CLISPLOOKUP0) (14 VALUE) () \MATCHBLOCK/LOOK :D8 (L (2 ARG' 1 ARG 0 FN) F 2 LOCALDECLARATION) =@g µ@R²(@g Y²@ABRH@g I H(56 CLISPLOOKUP0 49 GETP 30 GETP 10 GETP) (44 CLISPCLASS 25 CLISPCLASSDEF 5 LISPFN) () \MATCHBLOCK/MKAND2 :D8 (L (1 EXPR2 0 EXPR1)) @ið‘AAið‘@@A ³ñA@ ³î@dgðš¿@A ±–dgð²'¿@ XA Y²{@H Ih °gdgð²B¿@ XA Y²$@Hð“@Žg@H I °)@Ah °gð²@A ›@dAµ"Agð´@A µ g@AAdš¿gA‚ (261 \MATCHBLOCK/MKAND 223 \MATCHBLOCK/MKAND2 201 SUBST 190 \MATCHBLOCK/EQUALUNCROP 171 \APPEND2 160 \MATCHBLOCK/MKAND 153 LDIFF 125 \MATCHBLOCK/MKAND2 117 LAST 98 \NCONC2 90 LDIFF 79 \MATCHBLOCK/MKAND2 71 LAST 51 \MATCHBLOCK/CHECKSLISTP 30 \MATCHBLOCK/EQUALUNCROP 21 \MATCHBLOCK/EQUALUNCROP) (248 AND 230 AND 211 AND 178 SETQ 144 AND 106 AND 60 PROGN 41 LISTP) () \MATCHBLOCK/CHECKSLISTP :D8 (L (1 EXPR2 0 EXPR1)) ª@Aô‘@Aµhdgð³dgð¯dgð§dgð¿Ad@ô²B°9dgð³#dgð³dgð¯dgð§dgðš¿Ad@ô™¿hµ‚±0Adgð³Rdgð³Idgð³@dgð³7dgð³.dgð³%dgð³dgð³dgð¨dgð²¿@A b´‚±ÃA@Adgð³dgð³dgð¨dgð²D¿A´‚±ŒA ³Agð´rA´j@A b´]A@Adgð³2dgð³)dgð³ dgð³dgð¬dgð´‚±þ¿@A b´AA@h(409 \MATCHBLOCK/CHECKSLISTP 328 \MATCHBLOCK/CHECKSLISTP 295 \MATCHBLOCK/SELFQUOTEABLE 223 \MATCHBLOCK/CHECKSLISTP) (391 SASSOC 383 ASSOC 374 MEMBER 365 MEMB 356 FASSOC 347 FMEMB 308 QUOTE 272 EQP 264 STREQUAL 255 EQ 246 EQUAL 210 EQLENGTH 202 NTH 193 SOME 184 LAST 175 NLEFT 166 LISTP 157 FLAST 148 FNTH 139 CDR 130 CAR 101 EQLENGTH 93 NTH 85 LAST 76 NLEFT 67 SOME 45 SASSOC 37 ASSOC 29 MEMBER 20 MEMB) () \MATCHBLOCK/EQUALUNCROP :D8 (L (1 EXPR2 0 EXPR1)) @Aôµ‚± A´‚±Adg –b¿°Üdgð³Gdgð³>dgð³5dgð³,dgð³#dgð³dgð¯dgð§dgð˜¿Ab¿°„dgð³,dgð³#dgð³dgð¯dgð§dgðš¿Ab¿±ÿGdgð³dgð³dgð¨dgð´2¿Adið³ d3³gð´A´Ab¿±þô(29 GETP) (250 QUOTE 219 IEQP 211 EQP 202 EQUAL 193 EQ 174 FASSOC 166 SASSOC 158 ASSOC 149 MEMBER 140 FMEMB 131 MEMB 114 LISTP 106 SOME 98 FNTH 89 FLAST 80 LAST 71 NLEFT 62 NTH 53 CDR 44 CAR 24 CROPS) () \MATCHBLOCK/PATPARSE :D8 (L (0 PAT) P 0 DEFAULTLST) @«o@ ¿@ (23 \MATCHBLOCK/PATPARSE1 13 \MATCHBLOCK/PATHELP) NIL ( 7 "bad input") \MATCHBLOCK/PATPARSE1 :D8 (L (1 PREFIX 0 PAT) F 8 %#LIST) €@d’±öd^N •µôi¿h’±ýo@ ±îdgð²;¿K_•O3²@gKh ± @gKL±gðg@ ±xK [±ˆd3@ð³!K ’±yK3’±rgK ±cKið’±]K¢±XKgð’±MKgð’±BKdgð’±5dgð™¿g[±#dgð™¿g[±gð³BKgð³9Kgð³0Kgð³'Kgð³Kgð³KgðªKdgð²¿gKl [±·gð³'Kgð³Kgð³KgðªKdgð²*¿L@ ¹Kdgðœ¿Ikð•gƒKI»I\°dgðªKdgð²¿L YI@AIgð²L Y@ IKgðœgL»L\Œ@ Xµ@]¿L²LµgLh\…b±ÎL´ L`X²MM²4KW³oKkhk –KWc¿LL ºHKJJHL \K»L\°“M¢±ÄLk gð².L kñ²#LgLlmÿ L±ÿQA²!`@ •g„g@ ¿@hAb¿h]¿@d²¿@dg@hb[`ð`§@ »@¼Kd¢±ýbdgð¢±üð¿KK [±üÈLdgð²" µL¼gL K»L\±þ£ µKL \±þ(904 \MATCHBLOCK/PATPARSE1 895 \MATCHBLOCK/PATUNPACKINFIX 880 \MATCHBLOCK/PATGETFNNAME 864 \MATCHBLOCK/PATUNPACKINFIX1 842 \MATCHBLOCK/PATPARSE1 808 GETCOMMENT 756 \MATCHBLOCK/PARSEDEFAULT 747 \MATCHBLOCK/PATERR 729 STRPOSL 711 /RPLNODE 703 MKATOM 698 SUBSTRING 677 NCHARS 662 NTHCHAR 638 \MATCHBLOCK/PATGETEXPR 614 \MATCHBLOCK/PATPARSE1 598 STRPOS 531 \MATCHBLOCK/PATUNPACK 500 \MATCHBLOCK/NEGATEPAT 492 \MATCHBLOCK/PATPARSE1 474 \MATCHBLOCK/MAKE!PAT 464 \MATCHBLOCK/PATPARSE1 408 \MATCHBLOCK/PATGETEXPR 351 NTHCHAR 181 \MATCHBLOCK/PATERR 159 STRINGP 143 \MATCHBLOCK/MAKESUBPAT 138 \MATCHBLOCK/PATPARSE1 129 /ATTACH 108 /RPLNODE 89 /RPLACA 84 PACK 42 \MATCHBLOCK/PATERR 18 \MATCHBLOCK/SIMPLELT?) (874 @ 855 @ 827 *ANY* 801 NORMALCOMMENTSFLG 794 COMMENTFLG 779 %. 741 AMBIG 735 CLISP 722 CLISPCHARRAY 687 _ 667 _ 570 PATTERNREPLACEOPRS 549 %. 517 %' 510 %' 483 ~ 454 %. 445 ! 429 & 416 $= 397 $= 388 $< 379 $> 370 = 361 == 343 $= 334 $9 325 $8 316 $7 307 $6 298 $5 289 $4 280 $3 271 $2 262 & 254 $1 244 -- 236 $$ 225 $ 213 -- 202 & 175 BADELT 123 &@ 116 LAMBDA 98 %' 73 %' 51 QUOTE) ( 588 "#" 36 "*ANY*/*EVERY* construct too compicated") \MATCHBLOCK/PATUNPACKINFIX1 :D8 (L (0 L)) @` (10 \MATCHBLOCK/PATPARSEAT) (5 PATTERNINFIXES1) () \MATCHBLOCK/PARSEDEFAULT :D8 (L (2 PREFIX 1 LOCALVARDEFAULT 0 PAT) F 2 VARDEFAULT F 3 DEFAULTLST) ð@d3@ð—@ið¢@¬o@ ¿ @S˜gb°uo@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ð²¿Hg@ ±ÿ€g@dgð¨dgð²!¿Hg@ ±ÿVgg@¿i¸A²R•o„g@ °5@dg kð™¿h¸g°idd•gˆRµgb±þ¹°úI(468 \MATCHBLOCK/VARCHECK 446 GETP 431 \MATCHBLOCK/PATERR 389 /ATTACH 347 /ATTACH 306 /ATTACH 265 /ATTACH 232 /RPLNODE2 157 \MATCHBLOCK/PATERR 145 STRPOSL 118 \MATCHBLOCK/PATERR 96 STRPOS 73 SUBATOM 60 STRPOS 26 \MATCHBLOCK/PATHELP) (484 ? 474 = 457 @ 441 NARGS 425 AMBIG 402 @ 397 $1 383 $1@ 372 APPLY* 364 @ 355 == 341 == 330 EQ 322 == 313 = 300 = 289 EQUAL 281 = 272 %' 259 %' 248 %' 240 QUOTE 214 & 209 _ 191 SET 183 SETQ 174 _ 151 CLISP 138 CLISPCHARRAY 124 SETQ 112 BAD* 105 * 82 BAD# 40 =) ( 419 "invalid PATTERNVARDEFAULT" 89 "*" 49 "#" 19 "MAKEDEFAULT") \MATCHBLOCK/VARCHECK :D8 (L (3 PROPFLG 2 SPELLFLG 1 NOMESSFLG 0 VAR) F 0 VARS) .@d3@ð²@dP¬ gð¢@µAhð´@oi(43 ERROR 16 \EVALV1) (21 NOBIND) ( 37 "NOT A VARIABLE") \MATCHBLOCK/PATUNPACK :D8 (L (0 PAT)) @` (10 \MATCHBLOCK/PATPARSEAT) (5 PATCHARS) () \MATCHBLOCK/PATUNPACKINFIX :D8 (L (0 L)) @` (10 \MATCHBLOCK/PATPARSEAT) (5 PATTERNINFIXES1) () \MATCHBLOCK/PATGETFNNAME :D8 (L (0 L)) I@d³Bd ³9¿@dlF`i@ghdi ³¿@lF`i@gi ¿@(67 FIXSPELL 41 FIXSPELL 12 \DEFINEDP) (60 GETD 53 USERWORDS 32 GETD 25 SPELLINGS2) () \MATCHBLOCK/PATGETEXPR :D8 (L (1 UP 0 L) P 0 VARS F 3 %#LISTUSED F 4 %#LIST F 5 VARS F 6 FAULTFN) \@µoA ¿@ µ@bd²TU @@hddV TIµ@ZS®Jd@ “Sc¿IY°ä(79 \MATCHBLOCK/FINDIN1 54 DWIMIFY0? 37 \APPEND2 20 \MATCHBLOCK/PATUNPACKINFIX 13 \MATCHBLOCK/PATERR) NIL ( 7 "missing an expression") \MATCHBLOCK/PATPARSEAT :D8 (L (1 CHRS 0 PAT)) 7@@³`@ ´@ ¹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µI@b¿H²SAdgð²F¿Hdgð³#dgð³dgð¯dgð§dgðœ¿i‹ @°³¿h¥g„A¸JIð³@IJ H@LMN‚@H@(290 \MATCHBLOCK/PACKLDIFF 257 PACK 178 FNTH 171 FLENGTH 28 UNPACK 19 STRPOSL) (270 $= 247 > 239 < 231 = 222 @ 213 _ 201 $ 12 PATTERNCHARRAY) () \MATCHBLOCK/MAKE!PAT :D8 (L (3 PREFIX 2 REALPAT 1 PATALL 0 PATELT) F 0 DEFAULTLST) Bgð²:@dAð²4dgð©dgð²!dP³@A Ah@@³.@dgð˜¿g±§gðª@gð¢±—g±@dgð¿g@ °tdgð³#dgð³dgð¯dgð§dgðž¿@@ ¿°:dgðœ¿@@ °&dgð²¿@³@ @‡gð’@µ g@(238 \MATCHBLOCK/ELT? 212 \MATCHBLOCK/MAKE!PAT 190 \MATCHBLOCK/MAKE!PAT 135 \MATCHBLOCK/PATERR 59 \MATCHBLOCK/MAKE!PAT 54 \MATCHBLOCK/MAKESUBPAT) (258 ! 248 $= 221 SUBPAT 200 * 177 @ 169 -> 161 % 152 <- 143 _ 129 TWO! 121 ! 110 $ 100 -- 92 $ 84 $ 76 & 32 <- 23 _ 6 !) () \MATCHBLOCK/MAKESUBPAT :D8 (L (0 PATLST)) "@d oô§@oô•gg@NIL (29 SUBPAT 23 &) ( 16 ($) 8 (--)) \MATCHBLOCK/NEGATEPAT :D8 (L (1 REALPAT 0 PE)) ’@d³gð¨@gð²vo@°hdgð³cdgð³Zdgð³Qdgð³Hdgð³dgð³dgð¨dgð²¿@@@ gð«gA ¿g@(135 \MATCHBLOCK/PATERR 114 \MATCHBLOCK/NEGATEPAT) (141 ~ 129 BADNOT 122 @ 97 -> 89 <- 80 % 71 _ 62 SUBPAT 53 %' 44 == 35 = 17 $ 9 &) ( 25 "Cannot negate this type of pattern") \MATCHBLOCK/PACKLDIFF :D8 (L (1 LST2 0 LST1)) !@kAXµh@ Hh¿(26 PACK 18 HELP 10 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 ("Venue & Xerox Corporation" 1982 1984 1990)) NIL