(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 10:35:46" ("compiled on " {DSK}sources>CMLSEQFINDER.;1) "30-Mar-95 20:33:04" "COMPILE-FILEd" in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "16-May-90 14:29:23" {DSK}local>lde>lispcore>sources>CMLSEQFINDER.;2 33743 changes to%: (VARS CMLSEQFINDERCOMS) previous date%: "12-Nov-86 18:41:14" {DSK}local>lde>lispcore>sources>CMLSEQFINDER.;1) (RPAQQ CMLSEQFINDERCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS SIMPLE-FIND-MACRO SIMPLE-FIND SIMPLE-FIND-IF SIMPLE-FIND-IF-NOT COMPLEX-FIND-MACRO COMPLEX-FIND COMPLEX-FIND-IF COMPLEX-FIND-IF-NOT CL:FIND CL:FIND-IF CL:FIND-IF-NOT) (FUNCTIONS SIMPLE-POSITION-MACRO SIMPLE-POSITION SIMPLE-POSITION-IF SIMPLE-POSITION-IF-NOT COMPLEX-POSITION-MACRO COMPLEX-POSITION COMPLEX-POSITION-IF COMPLEX-POSITION-IF-NOT CL:POSITION CL:POSITION-IF CL:POSITION-IF-NOT) (FUNCTIONS SIMPLE-COUNT-MACRO SIMPLE-COUNT SIMPLE-COUNT-IF SIMPLE-COUNT-IF-NOT COMPLEX-COUNT COMPLEX-COUNT-IF COMPLEX-COUNT-IF-NOT CL:COUNT CL:COUNT-IF CL:COUNT-IF-NOT) (FUNCTIONS COMPLEX-COMPARE-BACKWARD COMPLEX-COMPARE-FORWARD SIMPLE-COMPARE CL:MISMATCH CL:SEARCH) (PROP FILETYPE CMLSEQFINDER) (DECLARE%: DONTCOPY DOEVAL@COMPILE DONTEVAL@LOAD (LOCALVARS . T)))) expand-SIMPLE-FIND-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) j@aH¹HZ»J\½L¾gIgIKMohgNohgIKMohgNohhNIL (82 CL:IF 68 FORWARD-VECTOR-LOOP 47 CL:IF 33 FORWARD-LIST-LOOP 27 SEQ-DISPATCH) ( 88 ((RETURN CURRENT)) 76 (INDEX CURRENT) 53 ((RETURN CURRENT)) 41 (INDEX CURRENT)) (SETF-MACRO-FUNCTION (QUOTE SIMPLE-FIND-MACRO) (QUOTE expand-SIMPLE-FIND-MACRO)) SIMPLE-FIND :D8 (L (3 END 2 START 1 SEQUENCE 0 ITEM)) hAAHYZ—JÃ²)BA BNC:‘hM_¿@O:’OMNkÔ¾½°æI ´B[C:³ÜAK¶¼@L:‘LKkÔ°îgHoh (101 CHECK-TYPE-FAIL 60 CL:VECTORP 22 CL:NTHCDR) (88 SEQUENCE 13 LISTP) ( 94 (OR LIST CL:VECTOR)) SIMPLE-FIND-IF :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) fAAHYZ—JÃ²'BA BNC:‘hM_k@’OMNkÔ¾½°èI ´B[C:³ÞAK¶\k@‘LKkÔ°îgHoh (99 CHECK-TYPE-FAIL 58 CL:VECTORP 22 CL:NTHCDR) (86 SEQUENCE 13 LISTP) ( 92 (OR LIST CL:VECTOR)) SIMPLE-FIND-IF-NOT :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) fAAHYZ—JÃ²'BA BNC:‘hM_k@¢OMNkÔ¾½°èI ´B[C:³ÞAK¶\k@¡LKkÔ°îgHoh (99 CHECK-TYPE-FAIL 58 CL:VECTORP 22 CL:NTHCDR) (86 SEQUENCE 13 LISTP) ( 92 (OR LIST CL:VECTOR)) expand-COMPLEX-FIND-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) á @H¹HZ»J\½L^_¿N_¿ggOhgIgIKMohgOohgIKMohgOohhgIgIKMoggOohgIKMohgOohhhNIL (195 CL:IF 181 BACKWARD-VECTOR-LOOP 159 CL:IF 154 LAST-ELEMENT 141 FORWARD-LIST-LOOP 135 SEQ-DISPATCH 108 CL:IF 94 FORWARD-VECTOR-LOOP 72 CL:IF 58 FORWARD-LIST-LOOP 52 SEQ-DISPATCH 42 NULL 37 CL:IF) ( 202 ((RETURN CURRENT)) 189 (INDEX CURRENT) 166 ((SETQ LAST-ELEMENT CURRENT)) 149 (INDEX CURRENT LAST-ELEMENT) 115 ((RETURN CURRENT)) 102 (INDEX CURRENT) 79 ((RETURN CURRENT)) 66 (INDEX CURRENT)) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-FIND-MACRO) (QUOTE expand-COMPLEX-FIND-MACRO)) COMPLEX-FIND :D8 (L (7 TEST-NOT-P 6 TEST 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 ITEM)) ^ D’±¬AHYZ—JÃ²KBA BOC:‘hO_¿GžF»@OkElKhð‹F¼@OkElL’OOOkÔ_¿_¿°ÄI ´7B]C:³»AM¶¾G²F_¿@NkElOhðF_¿@NkElO‘NMkÔ°ÎgHoh AHYZ—JÃ²NBA B"OC:’OO_¿GžF»@OkElKhð‹F¼@OkElL”O_¿OOkÔ_¿_¿°ÁI ´:CkÕ½BMó’±ÿAM¶¾G²F_¿@NkElOhðF_¿@NkElO‘NM°ËgHoh (347 CHECK-TYPE-FAIL 271 CL:VECTORP 196 CL:NTHCDR 172 CHECK-TYPE-FAIL 99 CL:VECTORP 27 CL:NTHCDR) (334 SEQUENCE 187 LISTP 159 SEQUENCE 18 LISTP) ( 340 (OR LIST CL:VECTOR) 165 (OR LIST CL:VECTOR)) COMPLEX-FIND-IF :D8 (L (5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) D³}AaHYZ—JÃ²7BA B OC:‘hO_¿@»OkEkK’OOOkÔ_¿_¿°ØI ´B\C:³ÏAL¶½@¾MkEkN‘MLkÔ°ègHoh AaHYZ—JÃ²:BA B" OC:’OO_¿@»OkEkK”O_¿OOkÔ_¿_¿°ÕI ´ CkÕ¼BLó’±ÿMAL¶½@¾MkEkN‘ML°ågHoh (253 CHECK-TYPE-FAIL 203 CL:VECTORP 148 CL:NTHCDR 124 CHECK-TYPE-FAIL 77 CL:VECTORP 25 CL:NTHCDR) (240 SEQUENCE 139 LISTP 111 SEQUENCE 16 LISTP) ( 246 (OR LIST CL:VECTOR) 117 (OR LIST CL:VECTOR)) COMPLEX-FIND-IF-NOT :D8 (L (5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) D³}AaHYZ—JÃ²7BA B OC:‘hO_¿@»OkEkK¢OOOkÔ_¿_¿°ØI ´B\C:³ÏAL¶½@¾MkEkN¡MLkÔ°ègHoh AaHYZ—JÃ²:BA B" OC:’OO_¿@»OkEkK¤O_¿OOkÔ_¿_¿°ÕI ´ CkÕ¼BLó’±ÿMAL¶½@¾MkEkN¡ML°ågHoh (253 CHECK-TYPE-FAIL 203 CL:VECTORP 148 CL:NTHCDR 124 CHECK-TYPE-FAIL 77 CL:VECTORP 25 CL:NTHCDR) (240 SEQUENCE 139 LISTP 111 SEQUENCE 16 LISTP) ( 246 (OR LIST CL:VECTOR) 117 (OR LIST CL:VECTOR)) CL:FIND :D8 (L (0 -args-)) ÇekañlaºHl¼»LKó¢±þj½Hl_¿¾OdNó¢±¿h_¿i_¿Hl_¿_¿OdOó¢±¿h__¿i_¿Hl_¿_¿OdOó¢±ý¿h_¿g_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±ó¿h_"¿g_(¿i_*¿Hl_.¿_,¿O.dO,ó¢±é¿h_*_0¿J _2¿O¤O2_¿jMOO2®oJMO¿O"O*šo ¿O«O¨O"¥O*¢±»IJMOOO O*¢±¡O0±ž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Ô_.±þûO(O* IJMO(452 SIMPLE-FIND 441 COMPLEX-FIND 242 CL:ERROR 225 CL:ERROR 210 <= 188 CL:LENGTH) (411 :TEST-NOT 385 :TEST 359 :KEY 333 :FROM-END 307 :END 286 :START 149 EQL 113 CL:IDENTITY) ( 237 "Both Test and Test-not specified" 216 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:FIND) (QUOTE CL:FUNCTION) "Returns the first element in SEQUENCE satisfying the test (default is EQL) with the given ITEM") CL:FIND-IF :D8 (L (0 -args-)) )ekañlaºHl¼»LKó¢±Ÿj½Hl_¿¾OdNó¢±¤¿h_¿i_¿Hl_¿_¿OdOó¢±¢¿h__¿i_¿Hl_¿_¿OdOó¢±ž¿h_¿g_ ¿J _"¿O¤O"_¿jMOO"®oJMO¿O£O²wIJMOOO Ldagð¦lÔ\±ÿPkØa±ÿQagð—OkØa±ÿTOlÔ_±ÿAagð—OkØa±ÿXOlÔ_±ÿBagð—OkØa±ÿbOlÔ_±ÿFIJMO(294 SIMPLE-FIND-IF 182 COMPLEX-FIND-IF 159 CL:ERROR 144 <= 122 CL:LENGTH) (264 :KEY 238 :FROM-END 212 :END 191 :START 113 CL:IDENTITY) ( 150 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:FIND-IF) (QUOTE CL:FUNCTION) "Returns the zero-origin index of the first element satisfying the test.") CL:FIND-IF-NOT :D8 (L (0 -args-)) )ekañlaºHl¼»LKó¢±Ÿj½Hl_¿¾OdNó¢±¤¿h_¿i_¿Hl_¿_¿OdOó¢±¢¿h__¿i_¿Hl_¿_¿OdOó¢±ž¿h_¿g_ ¿J _"¿O¤O"_¿jMOO"®oJMO¿O£O²wIJMOOO Ldagð¦lÔ\±ÿPkØa±ÿQagð—OkØa±ÿTOlÔ_±ÿAagð—OkØa±ÿXOlÔ_±ÿBagð—OkØa±ÿbOlÔ_±ÿFIJMO(294 SIMPLE-FIND-IF-NOT 182 COMPLEX-FIND-IF-NOT 159 CL:ERROR 144 <= 122 CL:LENGTH) (264 :KEY 238 :FROM-END 212 :END 191 :START 113 CL:IDENTITY) ( 150 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:FIND-IF-NOT) (QUOTE CL:FUNCTION) "Returns the zero-origin index of the first element not satisfying the test.") expand-SIMPLE-POSITION-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) j@aH¹HZ»J\½L¾gIgIKMohgNohgIKMohgNohhNIL (82 CL:IF 68 FORWARD-VECTOR-LOOP 47 CL:IF 33 FORWARD-LIST-LOOP 27 SEQ-DISPATCH) ( 88 ((RETURN INDEX)) 76 (INDEX CURRENT) 53 ((RETURN INDEX)) 41 (INDEX CURRENT)) (SETF-MACRO-FUNCTION (QUOTE SIMPLE-POSITION-MACRO) (QUOTE expand-SIMPLE-POSITION-MACRO)) SIMPLE-POSITION :D8 (L (3 END 2 START 1 SEQUENCE 0 ITEM)) gAAHYZ—JÃ²(BA BNC:‘hM_¿@O:‘NMNkÔ¾½°çI ´B[C:³ÝAK¶¼@L:‘KKkÔ°îgHoh (100 CHECK-TYPE-FAIL 59 CL:VECTORP 22 CL:NTHCDR) (87 SEQUENCE 13 LISTP) ( 93 (OR LIST CL:VECTOR)) SIMPLE-POSITION-IF :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) _AQHYZ—JÃ²!BA B¼»LC:‘hKdk@‘LLkÔ°ëI ´B]C:³ãAM¶k@‘MMkÔ°ïgHoh (92 CHECK-TYPE-FAIL 52 CL:VECTORP 22 CL:NTHCDR) (79 SEQUENCE 13 LISTP) ( 85 (OR LIST CL:VECTOR)) SIMPLE-POSITION-IF-NOT :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) _AQHYZ—JÃ²!BA B¼»LC:‘hKdk@¡LLkÔ°ëI ´B]C:³ãAM¶k@¡MMkÔ°ïgHoh (92 CHECK-TYPE-FAIL 52 CL:VECTORP 22 CL:NTHCDR) (79 SEQUENCE 13 LISTP) ( 85 (OR LIST CL:VECTOR)) expand-COMPLEX-POSITION-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) á @H¹HZ»J\½L^_¿N_¿ggOhgIgIKMohgOohgIKMohgOohhgIgIKMoggOohgIKMohgOohhhNIL (195 CL:IF 181 BACKWARD-VECTOR-LOOP 159 CL:IF 154 LAST-INDEX 141 FORWARD-LIST-LOOP 135 SEQ-DISPATCH 108 CL:IF 94 FORWARD-VECTOR-LOOP 72 CL:IF 58 FORWARD-LIST-LOOP 52 SEQ-DISPATCH 42 NULL 37 CL:IF) ( 202 ((RETURN INDEX)) 189 (INDEX CURRENT) 166 ((SETQ LAST-INDEX INDEX)) 149 (INDEX CURRENT LAST-INDEX) 115 ((RETURN INDEX)) 102 (INDEX CURRENT) 79 ((RETURN INDEX)) 66 (INDEX CURRENT)) (SETF-MACRO-FUNCTION (QUOTE COMPLEX-POSITION-MACRO) (QUOTE expand-COMPLEX-POSITION-MACRO)) COMPLEX-POSITION :D8 (L (7 TEST-NOT-P 6 TEST 5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 ITEM)) ^ D’±¬AHYZ—JÃ²KBA BOC:‘hO_¿GžF»@OkElKhð‹F¼@OkElL’OOOkÔ_¿_¿°ÄI ´7B]C:³»AM¶¾G²F_¿@NkElOhðF_¿@NkElO‘MMkÔ°ÎgHoh AHYZ—JÃ²NBA B"OC:’OO_¿GžF»@OkElKhð‹F¼@OkElL”O_¿OOkÔ_¿_¿°ÁI ´:CkÕ½BMó’±ÿAM¶¾G²F_¿@NkElOhðF_¿@NkElO‘MM°ËgHoh (347 CHECK-TYPE-FAIL 271 CL:VECTORP 196 CL:NTHCDR 172 CHECK-TYPE-FAIL 99 CL:VECTORP 27 CL:NTHCDR) (334 SEQUENCE 187 LISTP 159 SEQUENCE 18 LISTP) ( 340 (OR LIST CL:VECTOR) 165 (OR LIST CL:VECTOR)) COMPLEX-POSITION-IF :D8 (L (5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) D³}AaHYZ—JÃ²7BA B OC:‘hO_¿@»OkEkK’OOOkÔ_¿_¿°ØI ´B\C:³ÏAL¶½@¾MkEkN‘LLkÔ°ègHoh AaHYZ—JÃ²:BA B" OC:’OO_¿@»OkEkK”O_¿OOkÔ_¿_¿°ÕI ´ CkÕ¼BLó’±ÿMAL¶½@¾MkEkN‘LL°ågHoh (253 CHECK-TYPE-FAIL 203 CL:VECTORP 148 CL:NTHCDR 124 CHECK-TYPE-FAIL 77 CL:VECTORP 25 CL:NTHCDR) (240 SEQUENCE 139 LISTP 111 SEQUENCE 16 LISTP) ( 246 (OR LIST CL:VECTOR) 117 (OR LIST CL:VECTOR)) COMPLEX-POSITION-IF-NOT :D8 (L (5 KEY 4 FROM-END 3 END 2 START 1 SEQUENCE 0 TEST)) D³}AaHYZ—JÃ²7BA B OC:‘hO_¿@»OkEkK¢OOOkÔ_¿_¿°ØI ´B\C:³ÏAL¶½@¾MkEkN¡LLkÔ°ègHoh AaHYZ—JÃ²:BA B" OC:’OO_¿@»OkEkK¤O_¿OOkÔ_¿_¿°ÕI ´ CkÕ¼BLó’±ÿMAL¶½@¾MkEkN¡LL°ågHoh (253 CHECK-TYPE-FAIL 203 CL:VECTORP 148 CL:NTHCDR 124 CHECK-TYPE-FAIL 77 CL:VECTORP 25 CL:NTHCDR) (240 SEQUENCE 139 LISTP 111 SEQUENCE 16 LISTP) ( 246 (OR LIST CL:VECTOR) 117 (OR LIST CL:VECTOR)) CL:POSITION :D8 (L (0 -args-)) ÇekañlaºHl¼»LKó¢±þj½Hl_¿¾OdNó¢±¿h_¿i_¿Hl_¿_¿OdOó¢±¿h__¿i_¿Hl_¿_¿OdOó¢±ý¿h_¿g_ ¿i_"¿Hl_&¿_$¿O&dO$ó¢±ó¿h_"¿g_(¿i_*¿Hl_.¿_,¿O.dO,ó¢±é¿h_*_0¿J _2¿O¤O2_¿jMOO2®oJMO¿O"O*šo ¿O«O¨O"¥O*¢±»IJMOOO O*¢±¡O0±ž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Ô_.±þûO(O* IJMO(452 SIMPLE-POSITION 441 COMPLEX-POSITION 242 CL:ERROR 225 CL:ERROR 210 <= 188 CL:LENGTH) (411 :TEST-NOT 385 :TEST 359 :KEY 333 :FROM-END 307 :END 286 :START 149 EQL 113 CL:IDENTITY) ( 237 "Both Test and Test-not specified" 216 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:POSITION) (QUOTE CL:FUNCTION) "Returns the zero-origin index of the first element in SEQUENCE satisfying the test (default is EQL) with the given ITEM" ) CL:POSITION-IF :D8 (L (0 -args-)) )ekañlaºHl¼»LKó¢±Ÿj½Hl_¿¾OdNó¢±¤¿h_¿i_¿Hl_¿_¿OdOó¢±¢¿h__¿i_¿Hl_¿_¿OdOó¢±ž¿h_¿g_ ¿J _"¿O¤O"_¿jMOO"®oJMO¿O£O²wIJMOOO Ldagð¦lÔ\±ÿPkØa±ÿQagð—OkØa±ÿTOlÔ_±ÿAagð—OkØa±ÿXOlÔ_±ÿBagð—OkØa±ÿbOlÔ_±ÿFIJMO(294 SIMPLE-POSITION-IF 182 COMPLEX-POSITION-IF 159 CL:ERROR 144 <= 122 CL:LENGTH) (264 :KEY 238 :FROM-END 212 :END 191 :START 113 CL:IDENTITY) ( 150 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:POSITION-IF) (QUOTE CL:FUNCTION) "Returns the zero-origin index of the first element satisfying test(el)") CL:POSITION-IF-NOT :D8 (L (0 -args-)) )ekañlaºHl¼»LKó¢±Ÿj½Hl_¿¾OdNó¢±¤¿h_¿i_¿Hl_¿_¿OdOó¢±¢¿h__¿i_¿Hl_¿_¿OdOó¢±ž¿h_¿g_ ¿J _"¿O¤O"_¿jMOO"®oJMO¿O£O²wIJMOOO Ldagð¦lÔ\±ÿPkØa±ÿQagð—OkØa±ÿTOlÔ_±ÿAagð—OkØa±ÿXOlÔ_±ÿBagð—OkØa±ÿbOlÔ_±ÿFIJMO(294 SIMPLE-POSITION-IF-NOT 182 COMPLEX-POSITION-IF-NOT 159 CL:ERROR 144 <= 122 CL:LENGTH) (264 :KEY 238 :FROM-END 212 :END 191 :START 113 CL:IDENTITY) ( 150 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:POSITION-IF-NOT) (QUOTE CL:FUNCTION) "Returns the zero-origin index of the first element not satisfying test(el)") expand-SIMPLE-COUNT-MACRO :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) r@aH¹HZ»J\½L¾gIgIKMoggNohgIKMoggNohhNIL (90 CL:IF 85 CNT 72 FORWARD-VECTOR-LOOP 51 CL:IF 46 CNT 33 FORWARD-LIST-LOOP 27 SEQ-DISPATCH) ( 96 ((SETQ CNT (CL:1+ CNT))) 80 (INDEX CURRENT (CNT 0)) 57 ((SETQ CNT (CL:1+ CNT))) 41 (INDEX CURRENT (CNT 0))) (SETF-MACRO-FUNCTION (QUOTE SIMPLE-COUNT-MACRO) (QUOTE expand-SIMPLE-COUNT-MACRO)) SIMPLE-COUNT :D8 (L (3 END 2 START 1 SEQUENCE 0 ITEM)) oA!HYZ—JÃ²(BA BjLC:‘MK¾@N:“MkÔ½KLkÔ¼»°èI ´BjKC:‘LAK¶½@M:“LkÔ¼KkÔ[°ëgHoh (108 CHECK-TYPE-FAIL 59 CL:VECTORP 22 CL:NTHCDR) (95 SEQUENCE 13 LISTP) ( 101 (OR LIST CL:VECTOR)) SIMPLE-COUNT-IF :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) pAAHYZ—JÃ²-BA BjNC:’OMdk@˜¿OkÔ_¿MNkÔ¾½°ãI ´Bj¼[C:‘LAK¶k@“LkÔ¼KkÔ°ìgHoh (109 CHECK-TYPE-FAIL 64 CL:VECTORP 22 CL:NTHCDR) (96 SEQUENCE 13 LISTP) ( 102 (OR LIST CL:VECTOR)) SIMPLE-COUNT-IF-NOT :D8 (L (3 END 2 START 1 SEQUENCE 0 TEST)) pAAHYZ—JÃ²-BA BjNC:’OMdk@¨¿OkÔ_¿MNkÔ¾½°ãI ´Bj¼[C:‘LAK¶k@£LkÔ¼KkÔ°ìgHoh (109 CHECK-TYPE-FAIL 64 CL:VECTORP 22 CL:NTHCDR) (96 SEQUENCE 13 LISTP) ( 102 (OR LIST CL:VECTOR)) COMPLEX-COUNT :D8 (L (6 TEST-NOT-P 5 TEST 4 KEY 3 END 2 START 1 SEQUENCE 0 ITEM)) »AaHYZ—JÃ²PBA Bj OC:’OO_¿FžE»@OkDlKhð‹E¼@OkDlL–OkÔ_¿OOkÔ_¿_¿°ÀI ´CBj OC:’OAO¶_¿FžE½@OkDlMhð‹E¾@OkDlN–OkÔ_¿OkÔ_°ÈgHoh (184 CHECK-TYPE-FAIL 99 CL:VECTORP 22 CL:NTHCDR) (171 SEQUENCE 13 LISTP) ( 177 (OR LIST CL:VECTOR)) COMPLEX-COUNT-IF :D8 (L (4 KEY 3 END 2 START 1 SEQUENCE 0 TEST)) … AAHYZ—JÃ²5BA BjNC:’OM_¿@»OkDkK–OkÔ_¿MNkÔ¾½°ÛI ´(BjMC:‘NAM¶_¿@¼OkDkL“NkÔ¾MkÔ]°âgHoh (130 CHECK-TYPE-FAIL 72 CL:VECTORP 22 CL:NTHCDR) (117 SEQUENCE 13 LISTP) ( 123 (OR LIST CL:VECTOR)) COMPLEX-COUNT-IF-NOT :D8 (L (4 KEY 3 END 2 START 1 SEQUENCE 0 TEST)) … AAHYZ—JÃ²5BA BjNC:’OM_¿@»OkDkK¦OkÔ_¿MNkÔ¾½°ÛI ´(BjMC:‘NAM¶_¿@¼OkDkL£NkÔ¾MkÔ]°âgHoh (130 CHECK-TYPE-FAIL 72 CL:VECTORP 22 CL:NTHCDR) (117 SEQUENCE 13 LISTP) ( 123 (OR LIST CL:VECTOR)) CL:COUNT :D8 (L (0 -args-)) ºekañplaºHl¼»LKó¢±ñj½Hl_¿¾OdNó¢±ö¿h_¿Hl_¿_¿OdOó¢±ø¿h¿i_¿Hl_¿_¿OdOó¢±ø¿h_¿g_¿i_¿Hl_"¿_ ¿O"dO ó¢±î¿h_¿g_$¿i_&¿Hl_*¿_(¿O*dO(ó¢±ä¿h_&_,¿J _.¿O¤O._¿jMOO.®oJMO¿OO&šo ¿O¨O¥O&¢±¹IJMOOO&¢±¡O,±ž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Ô_*±ÿO$O& IJMO(439 SIMPLE-COUNT 428 COMPLEX-COUNT 234 CL:ERROR 217 CL:ERROR 202 <= 180 CL:LENGTH) (398 :TEST-NOT 372 :TEST 346 :KEY 320 :FROM-END 294 :END 273 :START 141 EQL 105 CL:IDENTITY) ( 229 "Both Test and Test-not specified" 208 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:COUNT-IF :D8 (L (0 -args-)) ekaálaºHl¼»LKó¢±’j½Hl_¿¾OdNó¢±—¿h_¿Hl_¿_¿OdOó¢±™¿h¿i_¿Hl_¿_¿OdOó¢±™¿h_¿g_¿J _¿O¤O_¿jMOO®oJMO¿O²uIJMOO Ldagð¦lÔ\±ÿ]kØa±ÿ^agð—OkØa±ÿaOlÔ_±ÿNagð—OkØa±ÿ_OlÔ_±ÿKagð—OkØa±ÿgOlÔ_±ÿKIJMO(278 SIMPLE-COUNT-IF 166 COMPLEX-COUNT-IF 148 CL:ERROR 133 <= 111 CL:LENGTH) (248 :KEY 222 :FROM-END 196 :END 175 :START 102 CL:IDENTITY) ( 139 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:COUNT-IF-NOT :D8 (L (0 -args-)) ekaálaºHl¼»LKó¢±’j½Hl_¿¾OdNó¢±—¿h_¿Hl_¿_¿OdOó¢±™¿h¿i_¿Hl_¿_¿OdOó¢±™¿h_¿g_¿J _¿O¤O_¿jMOO®oJMO¿O²uIJMOO Ldagð¦lÔ\±ÿ]kØa±ÿ^agð—OkØa±ÿaOlÔ_±ÿNagð—OkØa±ÿ_OlÔ_±ÿKagð—OkØa±ÿgOlÔ_±ÿKIJMO(278 SIMPLE-COUNT-IF-NOT 166 COMPLEX-COUNT-IF-NOT 148 CL:ERROR 133 <= 111 CL:LENGTH) (248 :KEY 222 :FROM-END 196 :END 175 :START 102 CL:IDENTITY) ( 139 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") COMPLEX-COMPARE-BACKWARD :D8 (L (8 TEST-NOT-P 7 TEST 6 KEY 5 END2 4 START2 3 END1 2 START1 1 SEQUENCE2 0 SEQUENCE1)) % CBÕEDÕò`HIó–CIÕb¿…EHÕb¿@Z[\™LÃ¢±÷A]^_˜OÃ²iB@ DA BdkÕO2C:”O4kÔG_¿F_¿O.kOF_¿O0kOlO_6¿G’O6ƒO6hð”O2_4¿O.O0O2kÔ_2¿_0¿_.¿°°N ´eB@ BDBkÕO0C:”O4kÔG_¿F_¿O.kOF_¿AO2¶kOlO_6¿G’O6ƒO6hð”O0_4¿O.O0kÔO2kÔ_2¿_0¿_.¿°®gMoh K ´‚±èA___ ˜O Ã²eDA BDBkÕO0C:”O4kÔG_&¿F_"¿@O0¶kO"F_$¿O.kO$lO&_6¿G’O6ƒO6hð”O0_4¿O.O0kÔO2kÔ_2¿_0¿_.¿°®O ´VCkÕEkÕBO.ó³2G_,¿F_(¿@O.¶kO(F_*¿AO0¶kO*lO,_2¿G’O2ƒO2hð”O.kÔO.kÕO0kÕ_0¿_.¿°·gOoh gJoh (546 CHECK-TYPE-FAIL 527 CHECK-TYPE-FAIL 422 CL:VECTORP 323 CL:NTHCDR 293 CL:VECTORP 286 CHECK-TYPE-FAIL 176 CL:NTHCDR 167 CL:VECTORP 72 CL:NTHCDR 65 CL:NTHCDR) (533 SEQUENCE1 513 SEQUENCE2 314 LISTP 273 SEQUENCE2 56 LISTP 39 LISTP) ( 539 (OR LIST CL:VECTOR) 520 (OR LIST CL:VECTOR) 279 (OR LIST CL:VECTOR)) COMPLEX-COMPARE-FORWARD :D8 (L (8 TEST-NOT-P 7 TEST 6 KEY 5 END2 4 START2 3 END1 2 START1 1 SEQUENCE2 0 SEQUENCE1)) CBÕEDÕò`HIó–BIÔb¿…DHÔb ¿@Z[\™LÃ¢±éA]^_˜OÃ²bB@ DA BO2dC:³3¿G_¿F_¿O.kOF_¿O0kOlO_4¿G’O4ƒO4hð’O2O.O0O2kÔ_2¿_0¿_.¿°´N ´^B@ BDO0dC:³4¿G_¿F_¿O.kOF_¿AO2¶kOlO_4¿G’O4ƒO4hð’O0O.O0kÔO2kÔ_2¿_0¿_.¿°²gMoh K ´‚±ÔA___ ˜O Ã²VDA BO0dC:³4¿G_&¿F_"¿@O0¶kO"F_$¿O.kO$lO&_2¿G’O2ƒO2hð’O0O.O0kÔ_0¿_.¿°¹O ´QBDO.dC:³5¿G_,¿F_(¿@O.¶kO(F_*¿AO0¶kO*lO,_2¿G’O2ƒO2hð’O.O.kÔO0kÔ_0¿_.°ºgOoh gJoh (512 CHECK-TYPE-FAIL 493 CHECK-TYPE-FAIL 393 CL:VECTORP 309 CL:NTHCDR 279 CL:VECTORP 272 CHECK-TYPE-FAIL 169 CL:NTHCDR 160 CL:VECTORP 72 CL:NTHCDR 65 CL:NTHCDR) (499 SEQUENCE1 479 SEQUENCE2 300 LISTP 259 SEQUENCE2 56 LISTP 39 LISTP) ( 505 (OR LIST CL:VECTOR) 486 (OR LIST CL:VECTOR) 265 (OR LIST CL:VECTOR)) SIMPLE-COMPARE :D8 (L (5 END2 4 START2 3 END1 2 START1 1 SEQUENCE2 0 SEQUENCE1)) WCBÕEDÕÒHIó–BIÔb¿…DHÔb ¿@Z[\™LÃ¢±šA]^_˜OÃ²:B@ DA BO"dC:«¿OdO :¢O"O O"kÔ_"¿_ ¿_¿°ÜN ´7B@ BDO dC:«¿OAO"¶:¢O OO kÔO"kÔ_"¿_ ¿_¿°ÙgMoh K ´}A___˜OÃ²,DA B_¿_¿OdC:«¿@O¶O:¢OOOkÔ°àO ´%BD_¿_dC:¬¿@O¶AO¶:¢OOkÔOkÔ°ágOoh gJoh (340 CHECK-TYPE-FAIL 321 CHECK-TYPE-FAIL 265 CL:VECTORP 223 CL:NTHCDR 197 CL:VECTORP 190 CHECK-TYPE-FAIL 126 CL:NTHCDR 117 CL:VECTORP 69 CL:NTHCDR 62 CL:NTHCDR) (327 SEQUENCE1 307 SEQUENCE2 214 LISTP 177 SEQUENCE2 53 LISTP 36 LISTP) ( 333 (OR LIST CL:VECTOR) 314 (OR LIST CL:VECTOR) 183 (OR LIST CL:VECTOR)) CL:MISMATCH :D8 (L (0 -args-)) ®$ekañð@#laºHl¼»LKó¢±^j½Hl_¿¾OdNó¢±c¿h_¿Hl_¿_¿OdOó¢±e¿j_¿Hl_¿_¿OdOó¢±g¿h_¿Hl_ ¿_¿O dOó¢±i¿h_"¿i_$¿Hl_(¿_&¿O(dO&ó¢±g¿h_$¿g_*¿i_,¿Hl_0¿_.¿O0dO.ó¢±]¿h_,_2¿i_4¿Hl_8¿_6¿O8dO6ó¢±Y¿h_4¿g_:¿I J _>¿_<¿O¤O<_¿O¤O>_¿jMOO<®oIMO¿jOOO>¯oJOO¿O$O,šo ¿OMÕOOÕ_B¿_@¿O"¢±IJMOOOO:O,¢±ÕO2±Ò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ð—O0kØa±þO0lÔ_0±þ‡agð—O8kØa±þ§O8lÔ_8±þ‹O*O, _DdM:š¿O@OB:‘hODO4©O$¦O,£O4²IJMOOOO:O,’O2O*O, ŽIJMOOO _FdO:™¿O@OB:³¶OF(666 SIMPLE-COMPARE 650 COMPLEX-COMPARE-FORWARD 592 COMPLEX-COMPARE-BACKWARD 333 CL:ERROR 316 CL:ERROR 300 <= 287 CL:ERROR 272 <= 239 CL:LENGTH 233 CL:LENGTH) (562 :KEY 536 :TEST-NOT 510 :TEST 484 :FROM-END 458 :END2 432 :START2 406 :END1 385 :START1 224 CL:IDENTITY 158 EQL) ( 328 "Both Test and test-not provided" 306 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D" 278 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") CL:SEARCH :D8 (L (0 -args-)) ))ekañð`%laºHl¼»LKó¢±mj½Hl_¿¾OdNó¢±r¿h_¿Hl_¿_¿OdOó¢±t¿j_¿Hl_¿_¿OdOó¢±v¿h_¿Hl_ ¿_¿O dOó¢±x¿h_"¿i_$¿Hl_(¿_&¿O(dO&ó¢±v¿h_$¿g_*¿i_,¿Hl_0¿_.¿O0dO.ó¢±l¿h_,_2¿i_4¿Hl_8¿_6¿O8dO6ó¢±h¿h_4¿g_:¿I J _>¿_<¿O¤O<_¿O¤O>_¿jMOO<®oIMO¿jOOO>¯oJOO¿O$O,šo ¿OMÕOOÕ¿_@¿O"’±SO$’±O,’±O4’±OOO@Õ_D¿_BODó¢±ÒhLdagð¦lÔ\±þ‚kØa±þƒagð—OkØa±þ†OlÔ_±þsagð—OkØa±þ„OlÔ_±þpagð—OkØa±þ‚OlÔ_±þnagð—O kØa±þ€O lÔ_ ±þlagð—O(kØa±þŠO(lÔ_(±þnagð—O0kØa±þŽO0lÔ_0±þxagð—O8kØa±þ˜O8lÔ_8±þ|IJMOOBO O:’OBOBkÔ±ÿOOO@ÕO,’O2O*(OLONó’±þüIJMOOLOO:OPO, O:’OLOLkÔ_L°×O$³6O,³2O4³.OO@Õ_F¿OOFó’±þ»IJMOOFO O:’OFOFk°ÚOO@ÕO,’O2O*_J¿_H¿OOHó’±þ„IJMOOHOO:OJO, O:’OHOHkÕ°Ô(794 COMPLEX-COMPARE-FORWARD 733 SIMPLE-COMPARE 674 COMPLEX-COMPARE-FORWARD 612 SIMPLE-COMPARE 333 CL:ERROR 316 CL:ERROR 300 <= 287 CL:ERROR 272 <= 239 CL:LENGTH 233 CL:LENGTH) (577 :KEY 551 :TEST-NOT 525 :TEST 499 :FROM-END 473 :END2 447 :START2 421 :END1 400 :START1 224 CL:IDENTITY 158 EQL) ( 328 "Both Test and test-not provided" 306 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D" 278 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SET-DOCUMENTATION (QUOTE CL:SEARCH) (QUOTE CL:FUNCTION) "A search is conducted for the first subsequence of sequence2 which element-wise matches sequence1. If there is such a subsequence in sequence2, the index of the its leftmost element is returned otherwise () is returned." ) (PUTPROPS CMLSEQFINDER FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQFINDER COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL