(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 12:30:59" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLSEQMODIFY.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "29-Aug-91 16:38:18" {DSK}sources>lispcore>sources>CMLSEQMODIFY.;2 34278 changes to%: (VARS CMLSEQMODIFYCOMS) (FUNCTIONS CL:MAP-INTO CL::MAP-INTO-SINGLE CL::MAP-INTO-MULTIPLE) previous date%: "16-May-90 14:33:28" {DSK}sources>lispcore>sources>CMLSEQMODIFY.;1) (RPAQQ CMLSEQMODIFYCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS CL:FILL CL:REPLACE) (FUNCTIONS %%DESTRUCTIVE-RESULT-VECTOR) (FUNCTIONS SIMPLE-REMOVE-MACRO SIMPLE-REMOVE SIMPLE-REMOVE-IF SIMPLE-REMOVE-IF-NOT COMPLEX-REMOVE-MACRO COMPLEX-REMOVE COMPLEX-REMOVE-IF COMPLEX-REMOVE-IF-NOT CL:REMOVE CL:REMOVE-IF CL:REMOVE-IF-NOT) (FUNCTIONS SIMPLE-DELETE-MACRO SIMPLE-DELETE SIMPLE-DELETE-IF SIMPLE-DELETE-IF-NOT COMPLEX-DELETE-MACRO COMPLEX-DELETE COMPLEX-DELETE-IF COMPLEX-DELETE-IF-NOT CL:DELETE CL:DELETE-IF CL:DELETE-IF-NOT) (FUNCTIONS SIMPLE-REMOVE-DUPLICATES COMPLEX-REMOVE-DUPLICATES CL:REMOVE-DUPLICATES) (FUNCTIONS SIMPLE-DELETE-DUPLICATES COMPLEX-DELETE-DUPLICATES CL:DELETE-DUPLICATES) (FUNCTIONS SIMPLE-SUBSTITUTE-MACRO SIMPLE-SUBSTITUTE SIMPLE-SUBSTITUTE-IF SIMPLE-SUBSTITUTE-IF-NOT COMPLEX-SUBSTITUTE-MACRO COMPLEX-SUBSTITUTE COMPLEX-SUBSTITUTE-IF COMPLEX-SUBSTITUTE-IF-NOT CL:SUBSTITUTE CL:SUBSTITUTE-IF CL:SUBSTITUTE-IF-NOT) (FUNCTIONS SIMPLE-NSUBSTITUTE-MACRO SIMPLE-NSUBSTITUTE SIMPLE-NSUBSTITUTE-IF SIMPLE-NSUBSTITUTE-IF-NOT COMPLEX-NSUBSTITUTE-MACRO COMPLEX-NSUBSTITUTE COMPLEX-NSUBSTITUTE-IF COMPLEX-NSUBSTITUTE-IF-NOT CL:NSUBSTITUTE CL:NSUBSTITUTE-IF CL:NSUBSTITUTE-IF-NOT) (FUNCTIONS CL:MAP-INTO CL::MAP-INTO-SINGLE CL::MAP-INTO-MULTIPLE) (PROP FILETYPE CMLSEQMODIFY) (DECLARE%: DONTCOPY DONTEVAL@LOAD DOEVAL@COMPILE (LOCALVARS . T)))) CL:FILL :D8 (L (0 -args-)) ûekañlaºHl¼»LKó²kj½Hl_¿¾OdNó²p¿h_¿I _¿O¤O_¿jMOO®oIMO¿I___˜OÃ²UMI M_¿_¿OO:²2ILdagð¥lÔ\°…kØa°…agð–OkØa°‡OlÔ_±ÿwOJ¿OOkÔ°·O ´ M_O:³³I_"¿O_ ¿JO"O ·¿OkÔ°ågOoh (248 CHECK-TYPE-FAIL 197 CL:VECTORP 114 CL:NTHCDR 89 CL:ERROR 74 <= 52 CL:LENGTH) (234 SEQUENCE 157 :END 138 :START 105 LISTP) ( 241 (OR LIST CL:VECTOR) 80 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:FILL) (QUOTE CL:FUNCTION) "Replace the specified elements of SEQUENCE with ITEM.") CL:REPLACE :D8 (L (0 -args-)) Ø*ekañð@#laºHl¼»LKó¢±Äj½Hl_¿¾OdNó¢±É¿h_¿Hl_¿_¿OdOó¢±Ë¿j_¿Hl_¿_¿OdOó¢±Í¿h_¿I J _ ¿_¿O¤O_¿O¤O _¿jMOO®oIMO¿jOOO ¯oJOO¿OMÕOOÕ_$¿_"¿O$O"ó²qOO"Ô_¿°nLdagð¦lÔ\±ÿ+kØa±ÿ,agð—OkØa±ÿ/OlÔ_±ÿagð—OkØa±ÿ-OlÔ_±ÿagð—OkØa±ÿ+OlÔ_±ÿMO$Ô_¿IdJð²'¿MOó²OMó²JOOºj_¿OOÕ_¿I_F_D_&šO&Ã¢±¤J_,_*_(˜O(Ã²¿_¶O:O8·¿OkÔ°ÛgOBoh ¿°gOFoh I(724 CHECK-TYPE-FAIL 702 CHECK-TYPE-FAIL 639 CL:VECTORP 591 CL:NTHCDR 560 CL:VECTORP 549 CHECK-TYPE-FAIL 483 CL:NTHCDR 474 CL:VECTORP 424 CL:NTHCDR 416 CL:NTHCDR 360 CL:SUBSEQ 190 CL:ERROR 174 <= 161 CL:ERROR 146 <= 113 CL:LENGTH 107 CL:LENGTH) (710 SEQUENCE1 688 SEQUENCE2 581 LISTP 535 SEQUENCE2 407 LISTP 388 LISTP 304 :END2 278 :START2 252 :END1 231 :START1) ( 717 (OR LIST CL:VECTOR) 695 (OR LIST CL:VECTOR) 542 (OR LIST CL:VECTOR) 180 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D" 152 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") %%DESTRUCTIVE-RESULT-VECTOR :D8 (L (1 START 0 VECTOR)) 8@d ‘@ g@ gi @HgA(53 COPY-VECTOR 37 CL:MAKE-ARRAY 25 CL:ARRAY-ELEMENT-TYPE 14 VECTOR-LENGTH 6 CL:ARRAY-HAS-FILL-POINTER-P) (47 :END1 30 :FILL-POINTER 19 :ELEMENT-TYPE) () expand-SIMPLE-REMOVE-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) [@aH¹HZ»J\½L¾gIgggIjKhhggMIhhggIKMogggNhohhhogggIhhgggggIhohogIjKogIKMgggKhhhggNhoohgIMgggMohoh#:NIL (314 - 309 RESULT 304 LENGTH 297 COPY-VECTOR-SUBSEQ 267 NOT 262 COND 248 SLOW-INDEX 243 CURRENT 238 INDEX 230 FORWARD-VECTOR-LOOP 213 COPY-VECTOR-SUBSEQ 185 CL:ARRAY-ELEMENT-TYPE 180 :ELEMENT-TYPE 175 LENGTH 170 CL:MAKE-ARRAY 165 RESULT 153 VECTOR-LENGTH 148 LENGTH 143 LET* 105 NOT 100 CL:IF 95 NEW-LIST 82 FORWARD-LIST-LOOP 77 RESULT-MIDDLE 63 CL:NTHCDR 58 RESULT-TAIL 42 CL:SUBSEQ 37 RESULT-HEAD 32 LET 26 SEQ-DISPATCH) ( 334 ((CL:SETF (CL:FILL-POINTER RESULT) (- LENGTH NUMBER-OF-MATCHES)) RESULT) 320 (NUMBER-OF-MATCHES) 282 ((T (CL:INCF NUMBER-OF-MATCHES))) 276 ((CL:SETF (CL:AREF RESULT SLOW-INDEX) CURRENT) (CL:INCF SLOW-INDEX)) 221 (RESULT 0) 206 ((NUMBER-OF-MATCHES 0)) 194 (:FILL-POINTER T) 136 ((NCONC RESULT-HEAD RESULT-MIDDLE RESULT-TAIL)) 114 ((COLLECT-ITEM CURRENT NEW-LIST TAIL)) 90 (INDEX CURRENT NEW-LIST TAIL)) (SETF-MACRO-FUNCTION (QUOTE SIMPLE-REMOVE-MACRO) (QUOTE expand-SIMPLE-REMOVE-MACRO)) SIMPLE-REMOVE :D8 (L (3 END 2 START 1 SEQUENCE 0 ITEM)) OAñHYZ—JÃ²hAjBCA BA B2O"C:²O&O O$O" O _$¿@O$:³O(µO$h_(_&¿…O$&_(¿O O"kÔ_"¿_ ¿°¶I ´‚±¼A [gA gi ¼j]__B:³L_¿O¾AO¶ON·¿OkÔOkÔ_¿°ßBdO C:³4AO ¶_$¿@O$:³L_¿O"_¿O$OO·¿O"kÔ_"¿ƒMkÔ½O kÔ_ °ÌCdMÕ_¿_K:³L_¿O_¿AO¶OO·¿OkÔOkÔ°ÜLKMÕ LgHoh (332 CHECK-TYPE-FAIL 312 SET-FILL-POINTER 159 CL:MAKE-ARRAY 147 CL:ARRAY-ELEMENT-TYPE 135 VECTOR-LENGTH 123 CL:VECTORP 69 \NCONC2 64 \NCONC2 37 CL:NTHCDR 30 CL:NTHCDR 23 CL:SUBSEQ) (319 SEQUENCE 152 :FILL-POINTER 141 :ELEMENT-TYPE 13 LISTP) ( 325 (OR LIST CL:VECTOR)) SIMPLE-REMOVE-IF :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) KAñHYZ—JÃ²fAjBCA BA B2O"C:²O&O O$O" O _$k@³O(µO$h_(_&¿…O$&_(¿O O"kÔ_"¿_ ¿°¸I ´‚±ºA [gA gi ¼j]__B:³L_¿O¾AO¶ON·¿OkÔOkÔ_¿°ßBdO C:³2AO ¶_$k@³L_¿O"_¿O$OO·¿O"kÔ_"¿ƒMkÔ½O kÔ_ °ÎCdMÕ_¿_K:³L_¿O_¿AO¶OO·¿OkÔOkÔ°ÜLKMÕ LgHoh (328 CHECK-TYPE-FAIL 308 SET-FILL-POINTER 157 CL:MAKE-ARRAY 145 CL:ARRAY-ELEMENT-TYPE 133 VECTOR-LENGTH 121 CL:VECTORP 69 \NCONC2 64 \NCONC2 37 CL:NTHCDR 30 CL:NTHCDR 23 CL:SUBSEQ) (315 SEQUENCE 150 :FILL-POINTER 139 :ELEMENT-TYPE 13 LISTP) ( 321 (OR LIST CL:VECTOR)) SIMPLE-REMOVE-IF-NOT :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) KAñHYZ—JÃ²fAjBCA BA B2O"C:²O&O O$O" O _$k@²O(µO$h_(_&¿…O$&_(¿O O"kÔ_"¿_ ¿°¸I ´‚±ºA [gA gi ¼j]__B:³L_¿O¾AO¶ON·¿OkÔOkÔ_¿°ßBdO C:³2AO ¶_$k@²L_¿O"_¿O$OO·¿O"kÔ_"¿ƒMkÔ½O kÔ_ °ÎCdMÕ_¿_K:³L_¿O_¿AO¶OO·¿OkÔOkÔ°ÜLKMÕ LgHoh (328 CHECK-TYPE-FAIL 308 SET-FILL-POINTER 157 CL:MAKE-ARRAY 145 CL:ARRAY-ELEMENT-TYPE 133 VECTOR-LENGTH 121 CL:VECTORP 69 \NCONC2 64 \NCONC2 37 CL:NTHCDR 30 CL:NTHCDR 23 CL:SUBSEQ) (315 SEQUENCE 150 :FILL-POINTER 139 :ELEMENT-TYPE 13 LISTP) ( 321 (OR LIST CL:VECTOR)) expand-COMPLEX-REMOVE-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @¡ H¹HZ»J\½L^_¿N__¿O_¿gogIgggIjKhhggMIhhggggOOhhgIKMoggggOggOhhgOhhoohgIKMoggggOggOhhgOhhoohhhhogggIhhgggggIhohhgIjKogggOOhhgIKMgggKhhhgggOggOhhgOhhoohgIKMggggMhhhgogggKoMgKgMohhgggOggOhhgOhhoohhgIMgggMohohh#:NIL (747 - 742 RESULT 737 LENGTH 730 COPY-VECTOR-SUBSEQ 690 NOT 675 NUMBER-OF-MATCHES 670 >= 663 AND 658 OR 653 COND 628 - 622 RESULT 608 + 603 RESULT 598 COPY-VECTOR-SUBSEQ 588 AND 572 CL:1- 567 RESULT-INDEX 562 CURRENT 557 INDEX 549 BACKWARD-VECTOR-LOOP 514 NOT 499 NUMBER-OF-MATCHES 494 >= 487 AND 482 OR 477 COND 463 RESULT-INDEX 458 CURRENT 453 INDEX 445 FORWARD-VECTOR-LOOP 429 AND 424 NULL 419 CL:IF 402 COPY-VECTOR-SUBSEQ 378 CL:ARRAY-ELEMENT-TYPE 373 :ELEMENT-TYPE 368 LENGTH 363 CL:MAKE-ARRAY 358 RESULT 346 VECTOR-LENGTH 341 LENGTH 336 LET* 282 NOT 267 NUMBER-OF-MATCHES 262 >= 255 AND 250 OR 245 COND 240 NEW-LIST 227 BACKWARD-LIST-LOOP 192 NOT 177 NUMBER-OF-MATCHES 172 >= 165 AND 160 OR 155 COND 150 NEW-LIST 137 FORWARD-LIST-LOOP 121 AND 116 NULL 111 CL:IF 106 RESULT-MIDDLE 92 CL:NTHCDR 87 RESULT-TAIL 71 CL:SUBSEQ 66 RESULT-HEAD 61 LET 55 SEQ-DISPATCH 45 LET) ( 767 ((CL:SETF (CL:FILL-POINTER RESULT) (- LENGTH NUMBER-OF-MATCHES)) RESULT) 753 (NUMBER-OF-MATCHES) 710 ((T (CL:INCF NUMBER-OF-MATCHES))) 704 ((CL:SETF (CL:AREF RESULT RESULT-INDEX) CURRENT) (CL:DECF RESULT-INDEX)) 634 (NUMBER-OF-MATCHES) 614 (NUMBER-OF-MATCHES) 593 (> NUMBER-OF-MATCHES 0) 534 ((T (CL:INCF NUMBER-OF-MATCHES))) 528 ((CL:SETF (CL:AREF RESULT RESULT-INDEX) CURRENT) (CL:INCF RESULT-INDEX)) 410 (RESULT 0) 387 (:FILL-POINTER T) 329 ((NCONC RESULT-HEAD RESULT-MIDDLE RESULT-TAIL)) 302 ((T (CL:INCF NUMBER-OF-MATCHES))) 296 ((CL:PUSH CURRENT NEW-LIST)) 235 (INDEX CURRENT NEW-LIST) 212 ((T (CL:INCF NUMBER-OF-MATCHES))) 206 ((COLLECT-ITEM CURRENT NEW-LIST TAIL)) 145 (INDEX CURRENT NEW-LIST TAIL) 50 ((NUMBER-OF-MATCHES 0))) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-REMOVE-MACRO) (QUOTE expand-COMPLEX-REMOVE-MACRO)) COMPLEX-REMOVE :D8 (L (8 TEST-NOT-P 7 TEST 6 COUNT 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 ITEM)) ¶! jñÀAYd›dÃ¢±ñ¿AjBCA D’F³nBA B2 O:C:”O>°hO8_<¿F”FHó²$GŸGº@O¿ŠO<&_@¿ƒHkÔ¸O8O:kÔ_:¿_8¿°¡CkÕ!BO8ó²O<O8O= 730 AND 725 OR 720 COND 695 - 689 RESULT 675 + 670 RESULT 665 COPY-VECTOR-SUBSEQ 655 AND 639 CL:1- 634 SLOW-INDEX 629 CURRENT 624 INDEX 616 BACKWARD-VECTOR-LOOP 581 NOT 566 NUMBER-OF-MATCHES 561 >= 554 AND 549 OR 544 COND 530 SLOW-INDEX 525 CURRENT 520 INDEX 512 FORWARD-VECTOR-LOOP 496 AND 491 NULL 486 CL:IF 469 %%DESTRUCTIVE-RESULT-VECTOR 464 RESULT 452 VECTOR-LENGTH 447 LENGTH 442 LET 403 NOT 398 COND 363 NUMBER-OF-MATCHES 358 >= 351 AND 341 INDEX 336 < 331 OR 310 CL:NTHCDR 305 LAST 289 CL:1- 284 INDEX 279 CL:DO 250 NOT 245 COND 215 NUMBER-OF-MATCHES 210 >= 203 AND 193 INDEX 188 EQL 183 OR 162 INDEX 144 CL:NTHCDR 139 %%SUBSEQ 123 CL:NTHCDR 118 PREVIOUS 113 CL:DO 97 AND 92 NULL 87 CL:IF 71 CONS 66 HANDLE 61 LET 55 SEQ-DISPATCH 45 LET) ( 834 ((CL:SETF (CL:FILL-POINTER RESULT) (- LENGTH NUMBER-OF-MATCHES)) RESULT) 820 (NUMBER-OF-MATCHES) 777 ((T (CL:INCF NUMBER-OF-MATCHES))) 771 ((CL:SETF (CL:AREF RESULT SLOW-INDEX) CURRENT) (CL:DECF SLOW-INDEX)) 701 (NUMBER-OF-MATCHES) 681 (NUMBER-OF-MATCHES) 660 (> NUMBER-OF-MATCHES 0) 601 ((T (CL:INCF NUMBER-OF-MATCHES))) 595 ((CL:SETF (CL:AREF RESULT SLOW-INDEX) CURRENT) (CL:INCF SLOW-INDEX)) 419 ((T (RPLACD PREVIOUS LAST) (CL:INCF NUMBER-OF-MATCHES))) 413 ((SETQ LAST (CDR PREVIOUS))) 393 (SETQ CURRENT (CADR PREVIOUS)) 388 (SETQ PREVIOUS (CL:NTHCDR INDEX HANDLE)) 382 ((CDR HANDLE)) 324 (PREVIOUS CURRENT) 298 ((CL:1- INDEX)) 266 ((T (RPLACD PREVIOUS (CDR %%SUBSEQ)) (CL:INCF NUMBER-OF-MATCHES))) 260 ((SETQ PREVIOUS (CDR PREVIOUS))) 240 (SETQ CURRENT (CAR %%SUBSEQ)) 234 ((CDR HANDLE)) 175 (CURRENT) 168 ((CL:1+ INDEX)) 155 ((CDR %%SUBSEQ)) 129 (HANDLE) 50 ((NUMBER-OF-MATCHES 0))) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-DELETE-MACRO) (QUOTE expand-COMPLEX-DELETE-MACRO)) COMPLEX-DELETE :D8 (L (8 TEST-NOT-P 7 TEST 6 COUNT 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 ITEM)) r jñAYd´dÃ¢±â¿hAºD’F³nBJ BA BO6C:³$FµO4_8¿G²G»@O8kElKhð°Hó³ãJG¼@O8kElL¦O2_2¿ŠO2O4¿HkÔ¸O4O6kÔ_6¿_4¿°¨CkÕCA "BO2ó³-Fµ&O2J _6_8¿G²G½@O8kElMhð°Hó³ÚJG¾@O8kElN¦O6_4¿‰O6O4¿HkÔ¸O2kÕ_2¿°¦ ´‚±aA AB _¿_¿D’F³mBdO2C:³_AO2¶_6¿F”FHó²+G²G_¿@O6kElOhðG_¿@O6kElO³O_¿O4_¿O6OO·¿O4kÔ_4¿ƒHkÔ¸O2kÔ_2°¡°CCkÕCkÕBO2ó²PHjó².BHÔB_ ¿_C:³!O_¿O _¿OO¶OO·¿OkÔO kÔ°ÚCdHÕ_0¿_.O:²oOOHÕ OAO2¶_6¿F”FHó²+G²G_"¿@O6kElO"hðG_$¿@O6kElO$³O_(¿O4_&¿O6O(O&·¿O4kÕ_4¿ƒHkÔ¸O2kÕ_2¿±ÿPO_,¿O0_*¿AO.¶O,O*·¿O.kÔO0kÔ±ÿmgIoh (623 CHECK-TYPE-FAIL 476 SET-FILL-POINTER 268 %%DESTRUCTIVE-RESULT-VECTOR 261 VECTOR-LENGTH 249 CL:VECTORP 169 CL:NTHCDR 149 CL:NTHCDR 45 CL:NTHCDR 38 CL:NTHCDR) (610 SEQUENCE 17 LISTP) ( 616 (OR LIST CL:VECTOR)) COMPLEX-DELETE-IF :D8 (L (6 COUNT 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) jñPAYd´dÃ¢±´¿hAºD’F³WBJ BA BO.C:³"FµO,_0¿@»O0kEkK®O*_*¿°Hó³åJO*O,¿HkÔ¸O,O.kÔ_.¿_,¿°¿CkÕCA "BO*ó³+Fµ$O*J _._0¿@¼O0kEkL®O._,¿°Hó³ÜJO.O,¿HkÔ¸O*kÕ_*¿°½ ´‚±A AB ¾½D’F³QBdO*C:³CAO*¶_.¿F“FHóž@_¿O.kEkO³N_¿O,_¿O.OO·¿O,kÔ_,¿ƒHkÔ¸O*kÔ_*°½°ACkÕCkÕBO*ó²JHjó²,BHÔB_¿_C:³N_¿O_¿NO¶OO·¿OkÔOkÔ°ÜCdHÕ_(¿_&M:²PNMHÕ NAO*¶_.¿F“FHóž@_¿O.kEkO³N_ ¿O,_¿O.O O·¿O,kÕ_,¿ƒHkÔ¸O*kÕ_*¿±ÿrN_$¿O(_"¿AO&¶O$O"·¿O&kÔO(kÔ°ŽgIoh (509 CHECK-TYPE-FAIL 393 SET-FILL-POINTER 222 %%DESTRUCTIVE-RESULT-VECTOR 215 VECTOR-LENGTH 203 CL:VECTORP 146 CL:NTHCDR 126 CL:NTHCDR 45 CL:NTHCDR 38 CL:NTHCDR) (496 SEQUENCE 17 LISTP) ( 502 (OR LIST CL:VECTOR)) COMPLEX-DELETE-IF-NOT :D8 (L (6 COUNT 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) jñPAYd´dÃ¢±´¿hAºD’F³WBJ BA BO.C:³"FµO,_0¿@»O0kEkKžO*_*¿°Hó³åJO*O,¿HkÔ¸O,O.kÔ_.¿_,¿°¿CkÕCA "BO*ó³+Fµ$O*J _._0¿@¼O0kEkLžO._,¿°Hó³ÜJO.O,¿HkÔ¸O*kÕ_*¿°½ ´‚±A AB ¾½D’F³QBdO*C:³CAO*¶_.¿F“FHóž@_¿O.kEkO²N_¿O,_¿O.OO·¿O,kÔ_,¿ƒHkÔ¸O*kÔ_*°½°ACkÕCkÕBO*ó²JHjó²,BHÔB_¿_C:³N_¿O_¿NO¶OO·¿OkÔOkÔ°ÜCdHÕ_(¿_&M:²PNMHÕ NAO*¶_.¿F“FHóž@_¿O.kEkO²N_ ¿O,_¿O.O O·¿O,kÕ_,¿ƒHkÔ¸O*kÕ_*¿±ÿrN_$¿O(_"¿AO&¶O$O"·¿O&kÔO(kÔ°ŽgIoh (509 CHECK-TYPE-FAIL 393 SET-FILL-POINTER 222 %%DESTRUCTIVE-RESULT-VECTOR 215 VECTOR-LENGTH 203 CL:VECTORP 146 CL:NTHCDR 126 CL:NTHCDR 45 CL:NTHCDR 38 CL:NTHCDR) (496 SEQUENCE 17 LISTP) ( 502 (OR LIST CL:VECTOR)) CL:DELETE :D8 (L (0 -args-)) þekañÀlaºHl¼»LKó¢±j½Hl_¿¾OdNó¢± ¿h_¿i_¿Hl_¿_¿OdOó¢±¿h__¿Hl_¿_¿OdOó¢±¿h_¿i_ ¿Hl_$¿_"¿O$dO"ó¢±¿h_ ¿g_&¿i_(¿Hl_,¿_*¿O,dO*ó¢±¿h_(¿g_.¿i_0¿Hl_4¿_2¿O4dO2ó¢±¿h_0_6¿J _8¿O¤O8_¿jMOO8®oJMO¿O(O0šo ¿O®O «O¨O(¥O0¢±×IJMOOO&OO0¢±»O6±¸Ldagð¦lÔ\±þÔkØa±þÕagð—OkØa±þØOlÔ_±þÅagð—OkØa±þÜOlÔ_±þÆagð—OkØa±þÚOlÔ_±þÆagð—O$kØa±þäO$lÔ_$±þÈagð—O,kØa±þîO,lÔ_,±þÒagð—O4kØa±þòO4lÔ_4±þÜO.O0 IJMO(507 SIMPLE-DELETE 496 COMPLEX-DELETE 266 CL:ERROR 249 CL:ERROR 234 <= 212 CL:LENGTH) (466 :TEST-NOT 440 :TEST 414 :KEY 388 :COUNT 362 :FROM-END 336 :END 315 :START 173 EQL 137 CL:IDENTITY) ( 261 "Both test and test-not provided" 240 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:DELETE-IF :D8 (L (0 -args-)) bekañ@laºHl¼»LKó¢±¾j½Hl_¿¾OdNó¢±Ã¿h_¿i_¿Hl_¿_¿OdOó¢±Á¿h__¿Hl_¿_¿OdOó¢±Á¿h_¿i_ ¿Hl_$¿_"¿O$dO"ó¢±¿¿h_ ¿g_&¿J _(¿O¤O(_¿jMOO(®oJMO¿O¨O ¥O¢±”IJMOOO&O Ldagð¦lÔ\±ÿ1kØa±ÿ2agð—OkØa±ÿ5OlÔ_±ÿ"agð—OkØa±ÿ9OlÔ_±ÿ#agð—OkØa±ÿ7OlÔ_±ÿ#agð—O$kØa±ÿAO$lÔ_$±ÿ%IJMO(351 SIMPLE-DELETE-IF 213 COMPLEX-DELETE-IF 183 CL:ERROR 168 <= 146 CL:LENGTH) (321 :KEY 295 :COUNT 269 :FROM-END 243 :END 222 :START 137 CL:IDENTITY) ( 174 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:DELETE-IF-NOT :D8 (L (0 -args-)) bekañ@laºHl¼»LKó¢±¾j½Hl_¿¾OdNó¢±Ã¿h_¿i_¿Hl_¿_¿OdOó¢±Á¿h__¿Hl_¿_¿OdOó¢±Á¿h_¿i_ ¿Hl_$¿_"¿O$dO"ó¢±¿¿h_ ¿g_&¿J _(¿O¤O(_¿jMOO(®oJMO¿O¨O ¥O¢±”IJMOOO&O Ldagð¦lÔ\±ÿ1kØa±ÿ2agð—OkØa±ÿ5OlÔ_±ÿ"agð—OkØa±ÿ9OlÔ_±ÿ#agð—OkØa±ÿ7OlÔ_±ÿ#agð—O$kØa±ÿAO$lÔ_$±ÿ%IJMO(351 SIMPLE-DELETE-IF-NOT 213 COMPLEX-DELETE-IF-NOT 183 CL:ERROR 168 <= 146 CL:LENGTH) (321 :KEY 295 :COUNT 269 :FROM-END 243 :END 222 :START 137 CL:IDENTITY) ( 174 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") SIMPLE-REMOVE-DUPLICATES :D8 (L (2 END 1 START 0 SEQUENCE)) [@ñHYZ—JÃ²n@jAB@ A@ A2O"B:²O&O O$O" O _$@O"kÔB³O(µO$h_(_&¿…O$&_(¿O O"kÔ_"¿_ ¿°°I ´‚±Â@ [g@ gi ¼j]__A:³L_¿O¾@O¶ON·¿OkÔOkÔ_¿°ßAdO B:³:@O ¶_$@O kÔB³L_¿O"_¿O$OO·¿O"kÔ_"¿ƒMkÔ½O kÔ_ °ÆBdMÕ_¿_K:³L_¿O_¿@O¶OO·¿OkÔOkÔ°ÜLKMÕ LgHoh (344 CHECK-TYPE-FAIL 324 SET-FILL-POINTER 233 SIMPLE-POSITION 165 CL:MAKE-ARRAY 153 CL:ARRAY-ELEMENT-TYPE 141 VECTOR-LENGTH 129 CL:VECTORP 86 SIMPLE-POSITION 69 \NCONC2 64 \NCONC2 37 CL:NTHCDR 30 CL:NTHCDR 23 CL:SUBSEQ) (331 SEQUENCE 158 :FILL-POINTER 147 :ELEMENT-TYPE 13 LISTP) ( 337 (OR LIST CL:VECTOR)) COMPLEX-REMOVE-DUPLICATES :D8 (L (6 TEST-NOT-P 5 TEST 4 KEY 3 FROM-END 2 END 1 START 0 SEQUENCE)) @ñ HYZ™JÃ¢±Ê@jAB@ C³TA@ A2O&B:”O*°SO$_(kD@O&kÔBhDEF ³O,µO(h_,_*¿…O(&_,¿O$O&kÔ_&¿_$¿°»A@ A2O&B:²O*O$O(O& O$_(kD@AO&hDEF ³O,µO(h_,_*¿…O(&_,¿O$O&kÔ_&¿_$¿°ªI ´‚±@ [g@ gi ¼j]__A:³L_¿O¾@O¶ON·¿OkÔOkÔ_¿°ßC³PAdO$B:³B@O$¶_(kD@O$kÔBhDEF ³L_¿O&_¿O(OO·¿O&kÔ_&¿ƒMkÔ½O$kÔ_$°¾°LAdO$B:³@@O$¶_(kD@AO$hDEF ³L_¿O&_¿O(OO·¿O&kÔ_&¿ƒMkÔ½O$kÔ_$°ÀBdMÕ_"¿_ K:³L_¿O"_¿@O ¶OO·¿O kÔO"kÔ°ÜLKMÕ LgHoh (527 CHECK-TYPE-FAIL 507 SET-FILL-POINTER 416 COMPLEX-POSITION 340 COMPLEX-POSITION 261 CL:MAKE-ARRAY 249 CL:ARRAY-ELEMENT-TYPE 237 VECTOR-LENGTH 225 CL:VECTORP 182 COMPLEX-POSITION 159 \NCONC2 154 \NCONC2 127 CL:NTHCDR 83 COMPLEX-POSITION 45 CL:NTHCDR 35 CL:NTHCDR 28 CL:SUBSEQ) (514 SEQUENCE 254 :FILL-POINTER 243 :ELEMENT-TYPE 16 LISTP) ( 520 (OR LIST CL:VECTOR)) CL:REMOVE-DUPLICATES :D8 (L (0 -args-)) »ekañ€Hl»ºKJó¢±új¼Hl¾½NdMó¢±¿h_¿i_¿Hl_¿_¿OdOó¢±ý¿h__¿i_¿Hl_¿_¿OdOó¢±ù¿h_¿g_¿i_ ¿Hl_$¿_"¿O$dO"ó¢±ï¿h_ ¿g_&¿i_(¿Hl_,¿_*¿O,dO*ó¢±å¿h_(_.¿I _0¿O¤O0_¿jLOO0®oILO¿O O(šo ¿O«O¨O ¥O(¢±·ILOOOO(¢±žO.±›Kdagð¦lÔ[±þõkØa±þöagð–NkØa±þ÷NlÔ^±þæagð—OkØa±þýOlÔ_±þçagð—OkØa±ÿOlÔ_±þëagð—O$kØa±ÿO$lÔ_$±þõagð—O,kØa±ÿO,lÔ_,±þÿO&O( ILO(440 SIMPLE-REMOVE-DUPLICATES 430 COMPLEX-REMOVE-DUPLICATES 235 CL:ERROR 218 CL:ERROR 203 <= 181 CL:LENGTH) (400 :TEST-NOT 374 :TEST 348 :KEY 322 :FROM-END 299 :END 278 :START 142 EQL 106 CL:IDENTITY) ( 230 "Both test and test-not provided" 209 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:REMOVE-DUPLICATES) (QUOTE CL:FUNCTION) "The elements of Sequence are examined, and if any two match, one is discarded. The resulting sequence is returned." ) SIMPLE-DELETE-DUPLICATES :D8 (L (2 END 1 START 0 SEQUENCE)) @qHd™dÃ²P¿h@¹A@ AdI OB:’IOOjBOÕkÕ¥O_…OO¿OOkÔ_¿_¿°Ë ´‚±‰@ j@A Ad OB:³8@O¶_@OkÔB³O»OºOKJ·¿OkÔ_¿†OkÔ_¿OkÔ_°ÈBdOÕ_¿^O:³O½O¼@N¶ML·¿NkÔOkÔ°ãOOOÕ OgHoh (255 CHECK-TYPE-FAIL 234 SET-FILL-POINTER 148 SIMPLE-POSITION 117 %%DESTRUCTIVE-RESULT-VECTOR 109 VECTOR-LENGTH 97 CL:VECTORP 63 SIMPLE-POSITION 34 CL:NTHCDR 26 CL:NTHCDR) (242 SEQUENCE 12 LISTP) ( 248 (OR LIST CL:VECTOR)) COMPLEX-DELETE-DUPLICATES :D8 (L (6 TEST-NOT-P 5 TEST 4 KEY 3 FROM-END 2 END 1 START 0 SEQUENCE)) Ë@±Hd›dÃ¢±·¿h@¹C³UAI A@ AOB:’IDºOkJOjBOÕkÕhDEF ¥O_…OO¿OOkÔ_¿_¿°ÁjAI A@ AOB:’ID»OkK@AOOÕhDEF ¦O_¿OO¿OkÔ_¿OOkÔ_¿_¿°¼ ´‚±ê@ j@A C³NAdOB:³@@O¶_"kD@OkÔBhDEF ³O½O ¼O"ML·¿O kÔ_ ¿†OkÔ_¿OkÔ_°À°MAdOB:³A@O¶_"kD@AOhDEF ³O_¿O ¾O"ON·¿O kÔ_ ¿†OkÔ_¿OkÔ_°¿BdOÕ_¿_O:³ O_¿O_¿@O¶OO·¿OkÔOkÔ°ÚOOOÕ OgHoh (456 CHECK-TYPE-FAIL 435 SET-FILL-POINTER 337 COMPLEX-POSITION 263 COMPLEX-POSITION 221 %%DESTRUCTIVE-RESULT-VECTOR 213 VECTOR-LENGTH 201 CL:VECTORP 159 COMPLEX-POSITION 122 CL:NTHCDR 115 CL:NTHCDR 78 COMPLEX-POSITION 38 CL:NTHCDR 31 CL:NTHCDR) (443 SEQUENCE 12 LISTP) ( 449 (OR LIST CL:VECTOR)) CL:DELETE-DUPLICATES :D8 (L (0 -args-)) »ekañ€Hl»ºKJó¢±új¼Hl¾½NdMó¢±¿h_¿i_¿Hl_¿_¿OdOó¢±ý¿h__¿i_¿Hl_¿_¿OdOó¢±ù¿h_¿g_¿i_ ¿Hl_$¿_"¿O$dO"ó¢±ï¿h_ ¿g_&¿i_(¿Hl_,¿_*¿O,dO*ó¢±å¿h_(_.¿I _0¿O¤O0_¿jLOO0®oILO¿O O(šo ¿O«O¨O ¥O(¢±·ILOOOO(¢±žO.±›Kdagð¦lÔ[±þõkØa±þöagð–NkØa±þ÷NlÔ^±þæagð—OkØa±þýOlÔ_±þçagð—OkØa±ÿOlÔ_±þëagð—O$kØa±ÿO$lÔ_$±þõagð—O,kØa±ÿO,lÔ_,±þÿO&O( ILO(440 SIMPLE-DELETE-DUPLICATES 430 COMPLEX-DELETE-DUPLICATES 235 CL:ERROR 218 CL:ERROR 203 <= 181 CL:LENGTH) (400 :TEST-NOT 374 :TEST 348 :KEY 322 :FROM-END 299 :END 278 :START 142 EQL 106 CL:IDENTITY) ( 230 "Both test and test-not provided" 209 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") expand-SIMPLE-SUBSTITUTE-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) S @H¹HZ»J\½L^_¿N_¿gKgggKjMhhggOKhhggKMOoggggOIohohhogggKhhgggggKhhhhgKjMogKMOohgogOIohhgKOggOhoh#:NIL (312 RESULT 307 LENGTH 299 COPY-VECTOR-SUBSEQ 271 CL:IF 261 CL:SETF 246 FORWARD-VECTOR-LOOP 229 COPY-VECTOR-SUBSEQ 209 CL:ARRAY-ELEMENT-TYPE 204 :ELEMENT-TYPE 199 LENGTH 194 MAKE-VECTOR 189 RESULT 177 VECTOR-LENGTH 172 LENGTH 167 LET* 121 CL:IF 116 NEW-ELEMENT 111 SETQ 106 NEW-LIST 92 FORWARD-LIST-LOOP 87 RESULT-MIDDLE 72 CL:NTHCDR 67 RESULT-TAIL 51 CL:SUBSEQ 46 RESULT-HEAD 41 LET 35 SEQ-DISPATCH) ( 326 (RESULT) 279 (CURRENT) 266 (CL:AREF RESULT INDEX) 255 (INDEX CURRENT) 237 (RESULT 0) 160 ((NCONC RESULT-HEAD RESULT-MIDDLE RESULT-TAIL)) 141 ((COLLECT-ITEM NEW-ELEMENT NEW-LIST TAIL)) 129 (CURRENT) 101 (INDEX CURRENT NEW-LIST TAIL NEW-ELEMENT)) (SETF-MACRO-FUNCTION (QUOTE SIMPLE-SUBSTITUTE-MACRO) (QUOTE expand-SIMPLE-SUBSTITUTE-MACRO)) SIMPLE-SUBSTITUTE :D8 (L (4 END 3 START 2 SEQUENCE 1 OLDITEM 0 NEWITEM)) 2BñHYZ—JÃ²oBjCDB CB CBO$D:²O(O"O&O$ O"_&¿AO&:‘@O&_,¿O*µO,h_*_(¿O"O$kÔ_$¿_"¿°·O,&_*¿°ëI ´‚±•B [gB ¼j__C:³L¾O½BO¶NM·¿OkÔOkÔ_¿°âC_D:³'BO¶_¿L_¿O_¿AO:‘@OOO·¿OkÔ°×D_ _K:³"L_¿O _¿BO¶OO·¿OkÔO kÔ_ ¿°ÜLgHoh (303 CHECK-TYPE-FAIL 162 MAKE-VECTOR 157 CL:ARRAY-ELEMENT-TYPE 145 VECTOR-LENGTH 133 CL:VECTORP 72 \NCONC2 67 \NCONC2 40 CL:NTHCDR 33 CL:NTHCDR 26 CL:SUBSEQ) (290 SEQUENCE 151 :ELEMENT-TYPE 16 LISTP) ( 296 (OR LIST CL:VECTOR)) SIMPLE-SUBSTITUTE-IF :D8 (L (4 END 3 START 2 SEQUENCE 1 TEST 0 NEWITEM)) -BñHYZ—JÃ²jBjCDB CB C2O$D:²O&O"O&O$ O"dkA‘¿@_*¿O(µO*h_(_&¿O"O$kÔ_$¿_"¿°¼O*&_(¿°ëI ´‚±•B [gB ¼j__C:³L¾O½BO¶NM·¿OkÔOkÔ_¿°âC_D:³'BO¶_¿L_¿O_¿OdkA‘¿@OO·¿OkÔ°×D_ _K:³"L_¿O _¿BO¶OO·¿OkÔO kÔ_ ¿°ÜLgHoh (298 CHECK-TYPE-FAIL 157 MAKE-VECTOR 152 CL:ARRAY-ELEMENT-TYPE 140 VECTOR-LENGTH 128 CL:VECTORP 72 \NCONC2 67 \NCONC2 40 CL:NTHCDR 33 CL:NTHCDR 26 CL:SUBSEQ) (285 SEQUENCE 146 :ELEMENT-TYPE 16 LISTP) ( 291 (OR LIST CL:VECTOR)) SIMPLE-SUBSTITUTE-IF-NOT :D8 (L (4 END 3 START 2 SEQUENCE 1 TEST 0 NEWITEM)) -BñHYZ—JÃ²jBjCDB CB C2O$D:²O&O"O&O$ O"dkA¡¿@_*¿O(µO*h_(_&¿O"O$kÔ_$¿_"¿°¼O*&_(¿°ëI ´‚±•B [gB ¼j__C:³L¾O½BO¶NM·¿OkÔOkÔ_¿°âC_D:³'BO¶_¿L_¿O_¿OdkA¡¿@OO·¿OkÔ°×D_ _K:³"L_¿O _¿BO¶OO·¿OkÔO kÔ_ ¿°ÜLgHoh (298 CHECK-TYPE-FAIL 157 MAKE-VECTOR 152 CL:ARRAY-ELEMENT-TYPE 140 VECTOR-LENGTH 128 CL:VECTORP 72 \NCONC2 67 \NCONC2 40 CL:NTHCDR 33 CL:NTHCDR 26 CL:SUBSEQ) (285 SEQUENCE 146 :ELEMENT-TYPE 16 LISTP) ( 291 (OR LIST CL:VECTOR)) expand-COMPLEX-SUBSTITUTE-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ù @ÁH¹HZ»J\½L^_¿N__¿O__¿O_¿gogKgggKjMhhggOKhhggggOOhhgKMOoggggggOggOhhgOhhoioIhhhogKMOoggggggOggOhhgOhhoioIhhhohhhogggKhhgggggKhhhhgKjMoggOhgKMOohgogggOggOhhgOhhoioIhhhhgKMOohgogggOggOhhgOhhoioIhhhhhgKOggOhohh#:NIL (730 RESULT 725 LENGTH 717 COPY-VECTOR-SUBSEQ 665 NOT 650 NUMBER-OF-MATCHES 645 >= 638 AND 633 OR 628 COND 618 CL:SETF 603 BACKWARD-VECTOR-LOOP 556 NOT 541 NUMBER-OF-MATCHES 536 >= 529 AND 524 OR 519 COND 509 CL:SETF 494 FORWARD-VECTOR-LOOP 484 NULL 479 CL:IF 462 COPY-VECTOR-SUBSEQ 442 CL:ARRAY-ELEMENT-TYPE 437 :ELEMENT-TYPE 432 LENGTH 427 MAKE-VECTOR 422 RESULT 410 VECTOR-LENGTH 405 LENGTH 400 LET* 330 NOT 315 NUMBER-OF-MATCHES 310 >= 303 AND 298 OR 293 COND 288 NEW-ELEMENT 283 SETQ 278 NEW-LIST 264 BACKWARD-LIST-LOOP 213 NOT 198 NUMBER-OF-MATCHES 193 >= 186 AND 181 OR 176 COND 171 NEW-ELEMENT 166 SETQ 161 NEW-LIST 147 FORWARD-LIST-LOOP 131 AND 126 NULL 121 CL:IF 116 RESULT-MIDDLE 101 CL:NTHCDR 96 RESULT-TAIL 80 CL:SUBSEQ 75 RESULT-HEAD 70 LET 64 SEQ-DISPATCH 54 LET) ( 744 (RESULT) 686 (CL:INCF NUMBER-OF-MATCHES) 679 (CURRENT) 623 (CL:AREF RESULT INDEX) 612 (INDEX CURRENT) 577 (CL:INCF NUMBER-OF-MATCHES) 570 (CURRENT) 514 (CL:AREF RESULT INDEX) 503 (INDEX CURRENT) 470 (RESULT 0) 393 ((NCONC RESULT-HEAD RESULT-MIDDLE RESULT-TAIL)) 369 ((CL:PUSH NEW-ELEMENT NEW-LIST)) 351 (CL:INCF NUMBER-OF-MATCHES) 344 (CURRENT) 273 (INDEX CURRENT NEW-LIST NEW-ELEMENT) 252 ((COLLECT-ITEM NEW-ELEMENT NEW-LIST TAIL)) 234 (CL:INCF NUMBER-OF-MATCHES) 227 (CURRENT) 156 (INDEX CURRENT NEW-LIST TAIL NEW-ELEMENT) 59 ((NUMBER-OF-MATCHES 0))) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-SUBSTITUTE-MACRO) (QUOTE expand-COMPLEX-SUBSTITUTE-MACRO)) COMPLEX-SUBSTITUTE :D8 (L (9 TEST-NOT-P 8 TEST 7 COUNT 6 KEY 5 FROM-END 4 END 3 START 2 SEQUENCE 1 OLDITEM 0 NEWITEM)) a" jñÀBYd›dÃ¢±ý¿BjCDB E“G³vCB CB!O:D:”O>°pO8_<¿G•GHó²#GŸGºAO¿O8O:kÔ_:¿_8¿°¡OB&_@¿°ëDkÕ!CO8ó²O<O8O= 672 AND 662 INDEX 657 < 652 OR 629 CL:1- 624 INDEX 619 CL:DO 591 CL:AREF 586 CL:SETF 572 AND 567 CL:IF 550 CL:AREF 545 CURRENT 540 SETQ 517 NUMBER-OF-MATCHES 512 >= 505 AND 494 INDEX 489 EQL 484 OR 465 INDEX 460 CL:DO 450 NULL 445 CL:IF 431 VECTOR-LENGTH 426 LENGTH 421 LET 395 %%SUBSEQ 390 RPLACA 376 AND 371 CL:IF 352 INDEX 347 CL:NTHCDR 342 %%SUBSEQ 337 SETQ 314 NUMBER-OF-MATCHES 309 >= 302 AND 292 INDEX 287 < 282 OR 259 CL:1- 254 INDEX 249 CL:DO 229 %%SUBSEQ 224 RPLACA 210 AND 205 CL:IF 177 NUMBER-OF-MATCHES 172 >= 165 AND 154 INDEX 149 EQL 144 OR 124 INDEX 106 CL:NTHCDR 101 %%SUBSEQ 96 CL:DO 80 AND 75 NULL 70 CL:IF 64 SEQ-DISPATCH 54 LET) ( 764 (INDEX) 746 ((CL:INCF NUMBER-OF-MATCHES)) 723 (INDEX) 646 (CURRENT) 639 ((CL:1- INDEX)) 597 (INDEX) 579 ((CL:INCF NUMBER-OF-MATCHES)) 556 (INDEX) 478 (CURRENT) 471 ((CL:1+ INDEX)) 383 ((CL:INCF NUMBER-OF-MATCHES)) 366 (SETQ CURRENT (CAR %%SUBSEQ)) 276 (%%SUBSEQ CURRENT) 269 ((CL:1- INDEX)) 217 ((CL:INCF NUMBER-OF-MATCHES)) 200 (SETQ CURRENT (CAR %%SUBSEQ)) 137 (CURRENT) 130 ((CL:1+ INDEX)) 117 ((CDR %%SUBSEQ)) 59 ((NUMBER-OF-MATCHES 0))) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-NSUBSTITUTE-MACRO) (QUOTE expand-COMPLEX-NSUBSTITUTE-MACRO)) COMPLEX-NSUBSTITUTE :D8 (L (9 TEST-NOT-P 8 TEST 7 COUNT 6 KEY 5 FROM-END 4 END 3 START 2 SEQUENCE 1 OLDITEM 0 NEWITEM)) ½ jñ@BYZ[™KÃ¢±ÃE“G³_CB CO*D:³%GµO(_,¿G²G¼AO,kFlLhð°Hó³ãBG½AO,kFlM™HkÔX”O(@¿O(O*kÔ_*¿_(¿°°DkÕ!CO(ó³-Gµ%O(B _*_,¿G²G¾AO,kFlNhð°Hó³ÛBG_¿AO,kFlO™HkÔX”O*@¿O(kÕ_(¿°«J ´‚±ÊB ¿E³_C_D:³)Gµ!BO¶_¿G²G_¿AOkFlOhð°Hó³ßBG_¿AOkFlO²HkÔXŸB_¿O_¿@OO·¿OkÔ°¦DkÕ_¿COó³)Gµ!BO¶_¿G²G_ ¿AOkFlO hð°Hó³ßBG_"¿AOkFlO"²HkÔXŸB_&¿O_$¿@O&O$·¿O°£gIoh (442 CHECK-TYPE-FAIL 231 VECTOR-LENGTH 219 CL:VECTORP 144 CL:NTHCDR 34 CL:NTHCDR) (429 SEQUENCE 17 LISTP) ( 435 (OR LIST CL:VECTOR)) COMPLEX-NSUBSTITUTE-IF :D8 (L (7 COUNT 6 KEY 5 FROM-END 4 END 3 START 2 SEQUENCE 1 TEST 0 NEWITEM)) MjñBYZ[™KÃ¢±E“G³GCB CO"D:³4Gµ,O _$¿A¼O$kFkL™HkÔX”O @¿O O"kÔ_"¿_ ¿°ÎHó³ÔBDkÕ!CO ó³6Gµ.O B _"_$¿A½O$kFkM™HkÔX”O"@¿O kÕ_ ¿°ÌHó³ÒBJ ´‚±B ¿E³@C^D:³8Gµ0BN¶_¿A_¿OkFkO²HkÔXžB_¿N_¿@OO·¿NkÔ°ËHó³ÐBDkÕ_¿COó³9Gµ1BO¶_¿A_¿OkFkO²HkÔXŸB_¿O_¿@OO·¿O°ÄHó³ÏBgIoh (330 CHECK-TYPE-FAIL 177 VECTOR-LENGTH 165 CL:VECTORP 117 CL:NTHCDR 31 CL:NTHCDR) (317 SEQUENCE 14 LISTP) ( 323 (OR LIST CL:VECTOR)) COMPLEX-NSUBSTITUTE-IF-NOT :D8 (L (7 COUNT 6 KEY 5 FROM-END 4 END 3 START 2 SEQUENCE 1 TEST 0 NEWITEM)) MjñBYZ[™KÃ¢±E“G³GCB CO"D:³4Gµ,O _$¿A¼O$kFkL©HkÔX”O @¿O O"kÔ_"¿_ ¿°ÎHó³ÔBDkÕ!CO ó³6Gµ.O B _"_$¿A½O$kFkM©HkÔX”O"@¿O kÕ_ ¿°ÌHó³ÒBJ ´‚±B ¿E³@C^D:³8Gµ0BN¶_¿A_¿OkFkO³HkÔXžB_¿N_¿@OO·¿NkÔ°ËHó³ÐBDkÕ_¿COó³9Gµ1BO¶_¿A_¿OkFkO³HkÔXŸB_¿O_¿@OO·¿O°ÄHó³ÏBgIoh (330 CHECK-TYPE-FAIL 177 VECTOR-LENGTH 165 CL:VECTORP 117 CL:NTHCDR 31 CL:NTHCDR) (317 SEQUENCE 14 LISTP) ( 323 (OR LIST CL:VECTOR)) CL:NSUBSTITUTE :D8 (L (0 -args-)) ekañÐlaºla»Hl½¼MLó¢±j¾Hl_¿_¿OdOó¢±!¿h_¿i_¿Hl_¿_¿OdOó¢±¿h__¿Hl_¿_¿OdOó¢±¿h_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±¿h_"¿g_(¿i_*¿Hl_.¿_,¿O.dO,ó¢±¿h_*¿g_0¿i_2¿Hl_6¿_4¿O6dO4ó¢± ¿h_2_8¿K _:¿O¤O:_¿jNOO:®oKNO¿O*O2šo ¿O®O"«O ¨O*¥O2¢±ØIJKNOOO(O O2¢±»O8±¸Mdagð¦lÔ]±þÐkØa±þÑagð—OkØa±þ×OlÔ_±þÃagð—OkØa±þÛOlÔ_±þÅagð—OkØa±þÙOlÔ_±þÅagð—O&kØa±þãO&lÔ_&±þÇagð—O.kØa±þíO.lÔ_.±þÑagð—O6kØa±þñO6lÔ_6±þÛO0O2 IJKNO (517 SIMPLE-NSUBSTITUTE 504 COMPLEX-NSUBSTITUTE 273 CL:ERROR 256 CL:ERROR 241 <= 219 CL:LENGTH) (474 :TEST-NOT 448 :TEST 422 :KEY 396 :COUNT 370 :FROM-END 344 :END 323 :START 180 EQL 144 CL:IDENTITY) ( 268 "Both test and test-not provided" 247 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:NSUBSTITUTE-IF :D8 (L (0 -args-)) lekañPlaºla»Hl½¼MLó¢±Âj¾Hl_¿_¿OdOó¢±Ä¿h_¿i_¿Hl_¿_¿OdOó¢±Â¿h__¿Hl_¿_¿OdOó¢±Â¿h_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±À¿h_"¿g_(¿K _*¿O¤O*_¿jNOO*®oKNO¿O¨O"¥O ¢±•IJKNOOO(O Mdagð¦lÔ]±ÿ-kØa±ÿ.agð—OkØa±ÿ4OlÔ_±ÿ agð—OkØa±ÿ8OlÔ_±ÿ"agð—OkØa±ÿ6OlÔ_±ÿ"agð—O&kØa±ÿ@O&lÔ_&±ÿ$IJKNO (361 SIMPLE-NSUBSTITUTE-IF 221 COMPLEX-NSUBSTITUTE-IF 190 CL:ERROR 175 <= 153 CL:LENGTH) (329 :KEY 303 :COUNT 277 :FROM-END 251 :END 230 :START 144 CL:IDENTITY) ( 181 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:NSUBSTITUTE-IF) (QUOTE CL:FUNCTION) "Returns a sequence of the same kind as Sequence with the same elements except that all elements that match Old are replaced with New." ) CL:NSUBSTITUTE-IF-NOT :D8 (L (0 -args-)) lekañPlaºla»Hl½¼MLó¢±Âj¾Hl_¿_¿OdOó¢±Ä¿h_¿i_¿Hl_¿_¿OdOó¢±Â¿h__¿Hl_¿_¿OdOó¢±Â¿h_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±À¿h_"¿g_(¿K _*¿O¤O*_¿jNOO*®oKNO¿O¨O"¥O ¢±•IJKNOOO(O Mdagð¦lÔ]±ÿ-kØa±ÿ.agð—OkØa±ÿ4OlÔ_±ÿ agð—OkØa±ÿ8OlÔ_±ÿ"agð—OkØa±ÿ6OlÔ_±ÿ"agð—O&kØa±ÿ@O&lÔ_&±ÿ$IJKNO (361 SIMPLE-NSUBSTITUTE-IF-NOT 221 COMPLEX-NSUBSTITUTE-IF-NOT 190 CL:ERROR 175 <= 153 CL:LENGTH) (329 :KEY 303 :COUNT 277 :FROM-END 251 :END 230 :START 144 CL:IDENTITY) ( 181 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:NSUBSTITUTE-IF-NOT) (QUOTE CL:FUNCTION) "Returns a sequence of the same kind as Sequence with the same elements except that all elements that match Old are replaced with New." ) CL:MAP-INTO :D8 (L (0 -args-)) O eka!laºHl2MLóžN[²)IJKMa_¿OµOh_¾MkÔ]°ÚO&_¿°ôIJK(76 CL::MAP-INTO-SINGLE 36 CL::MAP-INTO-MULTIPLE) #:NIL () CL::MAP-INTO-SINGLE :D8 (L (2 SEQUENCE 1 CL:FUNCTION 0 CL::RESULT-SEQUENCE)) lð€@_,d›dÃ¢±†¿@ B º¹JdIó‘¿I¸B_d™dÃ² ¿B@½\¢±*Mµ±$A»LkK¿LM°ç ´%j@_¿_H:’±OA¾BO¶kN¿OkÔO°ágOoh ¿±Ô ´‚±¶@ B _¿_¿OdOó’¿O¸@ —@H ¿B_*d™dÃ²7¿Bj_ ¿_¢±„O H:³}@_¿O _¿A_¿OkOOO·¿OO kÔ°Ð ´*j_(H:³L@_&¿O(_$¿A_"¿BO(¶kO"O&O$·¿O(kÔ°ÛgO*oh ¿°gO,oh @(360 CHECK-TYPE-FAIL 338 CHECK-TYPE-FAIL 277 CL:VECTORP 205 SET-FILL-POINTER 197 CL:ARRAY-HAS-FILL-POINTER-P 174 CL:LENGTH 168 CL:ARRAY-TOTAL-SIZE 156 CL:VECTORP 147 CHECK-TYPE-FAIL 91 CL:VECTORP 33 CL:LENGTH 27 CL:LENGTH) (346 CL::RESULT-SEQUENCE 324 SEQUENCE 217 LISTP 133 SEQUENCE 54 LISTP 16 LISTP) ( 353 (OR LIST CL:VECTOR) 331 (OR LIST CL:VECTOR) 140 (OR LIST CL:VECTOR)) CL::MAP-INTO-MULTIPLE :D8 (L (2 CL::SEQUENCES 1 CL:FUNCTION 0 CL::RESULT-SEQUENCE)) ™B BI³CHñB ¹@Z[\™LÃ¢±¦H@ ¾½NdMó‘¿MX@j_¿_¿OH:²@I ºHJó‘J¸IY°¬OAIBO"µI ¿OOkÔ°Ã_$¿O O$_d™dÃœ¿O$O"O$¿°# ´ O$O¶°gOoh ¿O O"_"¿_ ¿°›K ´‚±ªH@ _¿_¿OdOó’¿OX@ —@H ¿j_H:’±ÿC@_¿O_¿AIBO(µI OO·¿OkÔ°Ô_*¿O&O*_d™dÃœ¿O*O(O*¿°# ´ O*O¶°gOoh ¿O&O(_(¿_&¿°šgJoh (406 CHECK-TYPE-FAIL 372 CHECK-TYPE-FAIL 344 CL:VECTORP 295 CL:APPLY 259 SET-FILL-POINTER 251 CL:ARRAY-HAS-FILL-POINTER-P 228 CL:ARRAY-TOTAL-SIZE 215 CL:VECTORP 193 CHECK-TYPE-FAIL 165 CL:VECTORP 117 CL:APPLY 86 CL:LENGTH 53 CL:LENGTH 30 CL:MAKE-LIST 25 CL:LENGTH 6 CL:LENGTH) (393 CL::RESULT-SEQUENCE 358 %%SEQUENCE 325 LISTP 179 %%SEQUENCE 146 LISTP 42 LISTP) ( 399 (OR LIST CL:VECTOR) 365 (OR LIST CL:VECTOR) 186 (OR LIST CL:VECTOR)) (PUTPROPS CMLSEQMODIFY FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQMODIFY COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991)) #:NIL