(FILECREATED "29-Sep-86 13:55:46" ("compiled on " {ERIS}SOURCES>CMLSEQBASICS.;3) "24-Sep-86 19:51:31" in "Xerox Lisp 24-Sep-86 ..." dated "24-Sep-86 20:08:23") (FILECREATED "29-Sep-86 13:47:37" {ERIS}SOURCES>CMLSEQBASICS.;3 19549 changes to: (VARS CMLSEQBASICSCOMS) (FUNCTIONS CL:ELT %%SETELT LIST-SUBSEQ* VECTOR-SUBSEQ* VECTOR-COPY-SEQ CL:LENGTH VECTOR-REVERSE VECTOR-NREVERSE CONCATENATE-TO-LIST) previous date: " 5-Sep-86 17:37:39" {ERIS}SOURCES>CMLSEQBASICS.;2) (RPAQQ CMLSEQBASICSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS CHECK-SUBSEQ MAKE-SEQUENCE-OF-TYPE) (COMS (FUNCTIONS CL:ELT %%SETELT) (SETFS CL:ELT)) (COMS (FUNCTIONS SUBSEQ LIST-SUBSEQ* VECTOR-SUBSEQ*) (SETFS SUBSEQ)) (FUNCTIONS COPY-SEQ LIST-COPY-SEQ LIST-COPY-SEQ* VECTOR-COPY-SEQ VECTOR-COPY-SEQ*) (FUNCTIONS CL:LENGTH) (FUNCTIONS CL:REVERSE LIST-REVERSE-MACRO VECTOR-REVERSE VECTOR-REVERSE*) (FUNCTIONS NREVERSE LIST-NREVERSE-MACRO LIST-NREVERSE* VECTOR-NREVERSE VECTOR-NREVERSE*) (FUNCTIONS MAKE-SEQUENCE) (FUNCTIONS CONCATENATE CONCATENATE-TO-LIST CONCAT-TO-LIST* CONCAT-TO-SIMPLE*) (PROPS (CMLSEQBASICS FILETYPE)))) CHECK-SUBSEQ D1 (L (3 LENGTH 2 END 1 START 0 SEQ)) 8C 2jACAoA jBBCoB AB oAB (65Q CL:ERROR 46Q CL:ERROR 25Q CL:ERROR 3 CL:ZEROP) NIL ( 60Q "Illegal subsequence:~&START (~D) may not be greater than END (~D)." 42Q "Index out of range: ~D." 21Q "Index out of range: ~D.") MAKE-SEQUENCE-OF-TYPE D1 (L (1 LENGTH 0 TYPE)) w@dHdgA gHdgAgg gHdgA gA HgHgHg@@Ag@ o@ (164Q CL:ERROR 153Q MAKE-ARRAY 107Q MAKE-ARRAY 75Q MAKE-STRING 53Q MAKE-ARRAY 23Q MAKE-LIST) (145Q :ELEMENT-TYPE 130Q VECTOR 122Q SIMPLE-ARRAY 114Q ARRAY 101Q SIMPLE-VECTOR 66Q SIMPLE-STRING 57Q STRING 50Q BIT 45Q :ELEMENT-TYPE 36Q SIMPLE-BIT-VECTOR 27Q BIT-VECTOR 14Q LIST) ( 160Q "~S is a bad type specifier for sequence functions.") CL:ELT D1 (L (1 INDEX 0 SEQUENCE)) jAgg@gA @!HYIdFAZj @d gg@gA @d gg@gA bJkհ A@ @AgHo (202Q CHECK-TYPE-FAIL 157Q VECTOR-LENGTH 150Q VECTORP 133Q CL:ERROR 111Q ENDP 101Q CL:ERROR 57Q ENDP 50Q %%= 22Q CL:ERROR) (172Q SEQUENCE 126Q :INDEX 122Q :NAME 117Q INDEX-BOUNDS-ERROR 74Q :INDEX 70Q :NAME 65Q INDEX-BOUNDS-ERROR 37Q LISTP 15Q :INDEX 11Q :NAME 6 INDEX-BOUNDS-ERROR) ( 177Q (OR LIST VECTOR)) %%SETELT D1 (L (2 NEWVAL 1 INDEX 0 SEQUENCE)) jAgg@gA @QHYIdJA@Zj Kd gg@gA BBKd gg@gA [Jkհ #A@ gg@gA @ABLMgHo (232Q CHECK-TYPE-FAIL 205Q CL:ERROR 163Q VECTOR-LENGTH 154Q VECTORP 140Q CL:ERROR 116Q ENDP 103Q CL:ERROR 61Q ENDP 52Q %%= 22Q CL:ERROR) (222Q SEQUENCE 200Q :INDEX 174Q :NAME 171Q INDEX-BOUNDS-ERROR 133Q :INDEX 127Q :NAME 124Q INDEX-BOUNDS-ERROR 76Q :INDEX 72Q :NAME 67Q INDEX-BOUNDS-ERROR 37Q LISTP 15Q :INDEX 11Q :NAME 6 INDEX-BOUNDS-ERROR) ( 227Q (OR LIST VECTOR)) (REMPROP (QUOTE CL:ELT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:ELT SETF-INVERSE %%SETELT) SUBSEQ D1 (L (2 END 1 START 0 SEQUENCE)) ;jAoA @HYId@AB  @AB gHo (70Q CHECK-TYPE-FAIL 54Q VECTOR-SUBSEQ* 44Q VECTORP 40Q LIST-SUBSEQ* 13Q CL:ERROR) (60Q SEQUENCE 30Q LISTP) ( 65Q (OR LIST VECTOR) 7 "Index out of range: ~D.") LIST-SUBSEQ* D1 (L (2 END 1 START 0 SEQUENCE)) BABoAB @hBAdB A@ oA A@ HhH oA IAkJ BJKdJ&LkԼZLBLB IoB (202Q CL:ERROR 167Q %%= 126Q ENDP 111Q CL:ERROR 66Q NTHCDR 60Q CL:ERROR 44Q CL:LENGTH 34Q %%= 16Q CL:ERROR) NIL ( 176Q "Index out of range: ~D." 105Q "Index out of range: ~D." 54Q "Index out of range: ~D." 11Q "Illegal subsequence:~&START (~D) may not be greater than END (~D).") VECTOR-SUBSEQ* D1 (L (2 END 1 START 0 SEQUENCE)) @ QBHbABoAB Hd @ AoA Aj@[ZYIdBA - BA !I BAgK gJo BNOOO@NMLNkOk_(163Q CHECK-TYPE-FAIL 147Q MAKE-ARRAY 144Q ARRAY-ELEMENT-TYPE 130Q CL:ARRAYP 122Q MAKE-STRING 113Q CL:STRINGP 106Q MAKE-LIST 61Q CL:ERROR 45Q COPY-SEQ 37Q CL:ZEROP 31Q CL:ERROR 3 VECTOR-LENGTH) (153Q SEQ 140Q :ELEMENT-TYPE 76Q LISTP) ( 160Q (OR LIST STRING ARRAY) 55Q "Index out of range: ~D." 24Q "Illegal subsequence:~&START (~D) may not be greater than END (~D).") (REMPROP (QUOTE SUBSEQ) (QUOTE SETF-INVERSE)) SUBSEQ-setf-expander D1 (P 13Q NEW-SEQUENCE P 5 SUBSEQ-setf-form P 4 DUMMIES P 3 X I 0 ACCESS-FORM) s @@dIHhZH&Ja @L L@OhM__O__OdggOOgOgNhOhM (160Q VALUES 50Q GENSYM 13Q GENSYM) (134Q :END1 127Q :START1 120Q CL:REPLACE 115Q PROGN) () (PUTPROPS SUBSEQ SETF-METHOD-EXPANDER SUBSEQ-setf-expander) COPY-SEQ D1 (L (0 SEQUENCE)) *@HYId@  @ gHo (47Q CHECK-TYPE-FAIL 33Q VECTOR-COPY-SEQ* 25Q VECTORP 21Q LIST-COPY-SEQ*) (37Q SEQUENCE 13Q LISTP) ( 44Q (OR LIST VECTOR)) expand-LIST-COPY-SEQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) @gHhNIL (10Q APPEND) () (SETF-MACRO-FUNCTION (QUOTE LIST-COPY-SEQ) (QUOTE expand-LIST-COPY-SEQ)) LIST-COPY-SEQ* D1 (L (0 SEQUENCE)) @ (3 \APPEND2) NIL () expand-VECTOR-COPY-SEQ D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) f@!HHgggggIhhhhgoggJohhogogIohhhNIL (117Q AREF 110Q SETF 64Q MAKE-SEQUENCE-OF-TYPE 61Q COPY 52Q CL:DO 32Q VECTOR 27Q THE 24Q VECTOR-LENGTH 21Q LENGTH 16Q LET) ( 124Q (INDEX) 114Q (AREF COPY INDEX) 105Q ((= INDEX LENGTH) COPY) 71Q (LENGTH) 56Q (INDEX 0 (1+ INDEX))) (SETF-MACRO-FUNCTION (QUOTE VECTOR-COPY-SEQ) (QUOTE expand-VECTOR-COPY-SEQ)) VECTOR-COPY-SEQ* D1 (L (0 SEQUENCE)) *@ Aj@ H YH JJI@ILKIk԰(25Q %%= 17Q MAKE-SEQUENCE-OF-TYPE 13Q TYPE-OF 3 VECTOR-LENGTH) NIL () CL:LENGTH D1 (L (0 SEQUENCE)) *@HYId@  @ gHo (47Q CHECK-TYPE-FAIL 33Q VECTOR-LENGTH 25Q VECTORP 21Q LENGTH) (37Q SEQUENCE 13Q LISTP) ( 44Q (OR LIST VECTOR)) CL:REVERSE D1 (L (0 SEQUENCE)) *@HYId@  @ gHo (47Q CHECK-TYPE-FAIL 33Q VECTOR-REVERSE* 25Q VECTORP 21Q REVERSE) (37Q SEQUENCE 13Q LISTP) ( 44Q (OR LIST VECTOR)) expand-LIST-REVERSE-MACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 0@gogHhoggHhohNIL (36Q CL:POP 33Q CL:PUSH 17Q ENDP 10Q CL:DO) ( 46Q (NEW-LIST) 27Q (NEW-LIST) 14Q ((NEW-LIST NIL))) (SETF-MACRO-FUNCTION (QUOTE LIST-REVERSE-MACRO) (QUOTE expand-LIST-REVERSE-MACRO)) expand-VECTOR-REVERSE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) a@!HHgggIhhhgooggJohhogogIohhhNIL (112Q AREF 103Q SETF 56Q MAKE-SEQUENCE-OF-TYPE 53Q NEW-SEQUENCE 40Q CL:DO 24Q VECTOR-LENGTH 21Q LENGTH 16Q LET) ( 117Q (BACKWARD-INDEX) 107Q (AREF NEW-SEQUENCE FORWARD-INDEX) 100Q ((= FORWARD-INDEX LENGTH) NEW-SEQUENCE) 63Q (LENGTH) 50Q (BACKWARD-INDEX (1- LENGTH) (1- BACKWARD-INDEX)) 44Q (FORWARD-INDEX 0 (1+ FORWARD-INDEX))) (SETF-MACRO-FUNCTION (QUOTE VECTOR-REVERSE) (QUOTE expand-VECTOR-REVERSE)) VECTOR-REVERSE* D1 (L (0 SEQUENCE)) 4@ !jHk@ H KH MMK@LJIKkLkռ[(32Q %%= 22Q MAKE-SEQUENCE-OF-TYPE 16Q TYPE-OF 3 VECTOR-LENGTH) NIL () NREVERSE D1 (L (0 SEQUENCE)) *@HYId@  @ gHo (47Q CHECK-TYPE-FAIL 33Q VECTOR-NREVERSE* 25Q VECTORP 21Q DREVERSE) (37Q SEQUENCE 13Q LISTP) ( 44Q (OR LIST VECTOR)) expand-LIST-NREVERSE-MACRO D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 1@gggHhogHoooNIL (33Q 2ND 16Q CDR 13Q 1ST 10Q CL:DO) ( 54Q (((ENDP 2ND) 3RD) (RPLACD 2ND 3RD)) 46Q ((3RD (QUOTE NIL) 2ND)) 40Q (1ST) 26Q ((COND ((ENDP 1ST) 1ST) (T (CDR 1ST))))) (SETF-MACRO-FUNCTION (QUOTE LIST-NREVERSE-MACRO) (QUOTE expand-LIST-NREVERSE-MACRO)) LIST-NREVERSE* D1 (L (0 SEQUENCE)) #@@Id JJHd HHI(25Q ENDP 12Q ENDP) NIL () expand-VECTOR-NREVERSE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) W@gggggHhhhhgooHhggHogHohhhNIL (100Q AREF 66Q AREF 63Q ROTATEF 44Q CL:DO 24Q VECTOR 21Q THE 16Q VECTOR-LENGTH 13Q LENGTH 10Q LET) ( 105Q (RIGHT-INDEX) 73Q (LEFT-INDEX) 54Q (= LEFT-INDEX HALF-LENGTH) 50Q ((LEFT-INDEX 0 (1+ LEFT-INDEX)) (RIGHT-INDEX (1- LENGTH) (1- RIGHT-INDEX)) (HALF-LENGTH (IQUOTIENT LENGTH 2)))) (SETF-MACRO-FUNCTION (QUOTE VECTOR-NREVERSE) (QUOTE expand-VECTOR-NREVERSE)) VECTOR-NREVERSE* D1 (L (0 SEQUENCE)) B @ QjHkHlNO @@NML@OJIMLKJINkOk_^(27Q %%= 3 VECTOR-LENGTH) NIL () MAKE-SEQUENCE D1 (L (0 -args-)) eka laHlLdKhIdagLkaLl\^dgJgM gNdg0J _M"j_J O_O_MOOOk԰OgJgM NgNgNdgIIJgIgM gNgJgogM oI (336Q CL:ERROR 325Q MAKE-ARRAY 270Q MAKE-ARRAY 215Q MAKE-ARRAY 144Q %%= 127Q MAKE-STRING 104Q MAKE-LIST) (320Q :INITIAL-ELEMENT 311Q :ELEMENT-TYPE 302Q SIMPLE-BIT-VECTOR 274Q BIT-VECTOR 263Q :INITIAL-ELEMENT 255Q :ELEMENT-TYPE 237Q SIMPLE-ARRAY 230Q VECTOR 222Q ARRAY 211Q :INITIAL-ELEMENT 203Q SIMPLE-VECTOR 117Q STRING 110Q SIMPLE-STRING 100Q :INITIAL-ELEMENT 71Q LIST 44Q :INITIAL-ELEMENT) ( 332Q "~S is a bad type specifier for sequences." 315Q (MOD 2)) CONCATENATE D1 (L (0 -args-)) ekaaHl2 OdOOId%$a_OOh__Ok_O&_[dg&gjJdMk]nhl4 MLg1Kg*Kg#KgKgKgKgKg+gk_IJdOk_nhl4 ONoI (325Q CL:ERROR 305Q \LISPERROR 150Q \LISPERROR) (247Q CONCAT-TO-SIMPLE* 241Q SIMPLE-BIT-VECTOR 233Q BIT-VECTOR 225Q SIMPLE-ARRAY 216Q ARRAY 207Q STRING 200Q VECTOR 171Q SIMPLE-STRING 162Q SIMPLE-VECTOR 117Q CONCAT-TO-LIST* 110Q LIST) ( 321Q "~S: invalid output type specification.") expand-CONCATENATE-TO-LIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) +@goggHooohNIL (22Q SEQUENCES 17Q CL:DO 10Q LET) ( 42Q (((NULL SEQUENCES) (CDR RESULT)) (LET ((SEQUENCE (CAR SEQUENCES))) (SEQ-DISPATCH SEQUENCE (CL:DO ((SEQUENCE SEQUENCE (CDR SEQUENCE))) ((ENDP SEQUENCE)) (SETQ SPLICE (CDR (RPLACD SPLICE (CONS (CAR SEQUENCE) NIL))))) (CL:DO ((INDEX 0 (1+ INDEX)) (LENGTH (VECTOR-LENGTH SEQUENCE))) ((= INDEX LENGTH)) (SETQ SPLICE (CDR (RPLACD SPLICE (CONS (AREF SEQUENCE INDEX) NIL)))))))) 35Q ((SPLICE RESULT)) 27Q ((CDR SEQUENCES)) 14Q ((RESULT (LIST NIL)))) (SETF-MACRO-FUNCTION (QUOTE CONCATENATE-TO-LIST) (QUOTE expand-CONCATENATE-TO-LIST)) CONCAT-TO-LIST* D1 (L (0 -args-)) eHk2JdIK hhIJ[JaL Mh\JkZM&__ddO] @LdM&M "jO _^O LdON&Nk԰gOo K(211Q CHECK-TYPE-FAIL 154Q %%= 143Q VECTOR-LENGTH 133Q VECTORP 112Q ENDP) (200Q SEQUENCE 101Q LISTP) ( 206Q (OR LIST VECTOR)) CONCAT-TO-SIMPLE* D1 (L (0 -args-)) eka Hl2OdO/OZjO"JO& jIO$ O,O$ &O.a_ OO h__Ok_O &_O(__dd"O] UO.O,MLKO,k_,M ,j_O* .O._O,OOONO,k_,Ok԰gOo O(O*_*_(\ _O&_&O$O_$O"_"*(342Q CL:LENGTH 316Q CHECK-TYPE-FAIL 241Q %%= 226Q VECTORP 172Q ENDP 76Q %%= 64Q MAKE-SEQUENCE-OF-TYPE 55Q REVERSE) (305Q SEQUENCE 161Q LISTP) ( 313Q (OR LIST VECTOR)) (PUTPROPS CMLSEQBASICS FILETYPE COMPILE-FILE) (PUTPROPS CMLSEQBASICS COPYRIGHT ("Xerox Corporation" 1986)) NIL