(FILECREATED " 2-Jul-86 18:06:08" ("compiled on " {ERIS}LIBRARY>CMLSEQBASICS.;2) "30-Jun-86 12:06:27" "COMPILE-FILEd" in "Xerox Lisp 30-Jun-86 ..." dated "30-Jun-86 13:37:08") (FILECREATED " 2-Jul-86 18:05:05" {ERIS}LIBRARY>CMLSEQBASICS.;2 18992 changes to: (VARS CMLSEQBASICSCOMS) (PROPS (CMLSEQBASICS FILETYPE)) previous date: " 2-Jul-86 18:02:17" {ERIS}LIBRARY>CMLSEQBASICS.;1) (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 CL: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 @!@YlIdoFAZj @d gg@gA @d gg@gA bJkհ A@ @A gHo (212Q CHECK-TYPE-FAIL 176Q AREF 165Q CL:LENGTH 156Q VECTORP 141Q CL:ERROR 117Q ENDP 107Q CL:ERROR 65Q ENDP 56Q %%= 22Q CL:ERROR) (202Q SEQUENCE 134Q :INDEX 130Q :NAME 125Q INDEX-BOUNDS-ERROR 102Q :INDEX 76Q :NAME 73Q INDEX-BOUNDS-ERROR 15Q :INDEX 11Q :NAME 6 INDEX-BOUNDS-ERROR) ( 207Q (OR LIST VECTOR) 44Q (NIL)) %%SETELT D1 (L (2 NEWVAL 1 INDEX 0 SEQUENCE)) jAgg@gA @1@YlIdoJA@Zj Kd gg@gA BBKd gg@gA [Jkհ !A@ gg@gA @AB gHo (236Q CHECK-TYPE-FAIL 222Q ASETFUN 213Q CL:ERROR 171Q CL:LENGTH 162Q VECTORP 146Q CL:ERROR 124Q ENDP 111Q CL:ERROR 67Q ENDP 60Q %%= 22Q CL:ERROR) (226Q SEQUENCE 206Q :INDEX 202Q :NAME 177Q INDEX-BOUNDS-ERROR 141Q :INDEX 135Q :NAME 132Q INDEX-BOUNDS-ERROR 104Q :INDEX 100Q :NAME 75Q INDEX-BOUNDS-ERROR 15Q :INDEX 11Q :NAME 6 INDEX-BOUNDS-ERROR) ( 233Q (OR LIST VECTOR) 44Q (NIL)) (REMPROP (QUOTE CL:ELT) (QUOTE SETF-METHOD-EXPANDER)) (PUTPROPS CL:ELT SETF-INVERSE %%SETELT) SUBSEQ D1 (L (2 END 1 START 0 SEQUENCE)) >jAoA @@dldoAB  @AB gHo (73Q CHECK-TYPE-FAIL 57Q VECTOR-SUBSEQ* 47Q VECTORP 43Q LIST-SUBSEQ* 13Q CL:ERROR) (63Q SEQUENCE) ( 70Q (OR LIST VECTOR) 34Q (NIL) 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)) ^@ BHbABoAB Hd @ AoA Aj@ BA BIKKJ@I IkJkԺ(121Q ASETFUN 116Q AREF 76Q MAKE-SEQUENCE-OF-TYPE 70Q TYPE-OF 61Q CL:ERROR 45Q COPY-SEQ 37Q CL:ZEROP 31Q CL:ERROR 3 CL:LENGTH) NIL ( 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)) -@@dldo  @ gHo (52Q CHECK-TYPE-FAIL 36Q VECTOR-COPY-SEQ* 30Q VECTORP 24Q LIST-COPY-SEQ*) (42Q SEQUENCE) ( 47Q (OR LIST VECTOR) 17Q (NIL)) 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 CL: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)) *@ !j@ H YH JJI@I Ik԰(42Q ASETFUN 37Q AREF 25Q %%= 17Q MAKE-SEQUENCE-OF-TYPE 13Q TYPE-OF 3 CL:LENGTH) NIL () CL:LENGTH D1 (L (0 SEQUENCE)) 9@@dldo  @d @  gHo (66Q CHECK-TYPE-FAIL 51Q ARRAY-DIMENSIONS 45Q FILL-POINTER 37Q ARRAY-HAS-FILL-POINTER-P 30Q VECTORP 24Q LENGTH) (56Q SEQUENCE) ( 63Q (OR LIST VECTOR) 17Q (NIL)) CL:REVERSE D1 (L (0 SEQUENCE)) -@@dldo  @ gHo (52Q CHECK-TYPE-FAIL 36Q VECTOR-REVERSE* 30Q VECTORP 24Q REVERSE) (42Q SEQUENCE) ( 47Q (OR LIST VECTOR) 17Q (NIL)) 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 CL: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 IH KKI@J IkJkպY(47Q ASETFUN 44Q AREF 32Q %%= 22Q MAKE-SEQUENCE-OF-TYPE 16Q TYPE-OF 3 CL:LENGTH) NIL () CL:NREVERSE D1 (L (0 SEQUENCE)) -@@dldo  @ gHo (52Q CHECK-TYPE-FAIL 36Q VECTOR-NREVERSE* 30Q VECTORP 24Q DREVERSE) (42Q SEQUENCE) ( 47Q (OR LIST VECTOR) 17Q (NIL)) 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 CL: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)) P @ ajHkHl OO @@ONM @OKJ NMI KJL OkOk__(76Q ASETFUN 67Q ASETFUN 60Q AREF 45Q AREF 30Q %%= 3 CL:LENGTH) NIL () MAKE-SEQUENCE D1 (L (0 -args-)) ekaqlaHlLdKhIdagLkaLl\^dgJgM gNdg'J _Mj_J OOM Ok԰OgJgM NgNgNdgIIJgIgM gNgJgogM oI (325Q CL:ERROR 314Q MAKE-ARRAY 257Q MAKE-ARRAY 204Q MAKE-ARRAY 155Q SCHARSET 144Q %%= 127Q MAKE-STRING 104Q MAKE-LIST) (307Q :INITIAL-ELEMENT 300Q :ELEMENT-TYPE 271Q SIMPLE-BIT-VECTOR 263Q BIT-VECTOR 252Q :INITIAL-ELEMENT 244Q :ELEMENT-TYPE 226Q SIMPLE-ARRAY 217Q VECTOR 211Q ARRAY 200Q :INITIAL-ELEMENT 172Q SIMPLE-VECTOR 117Q STRING 110Q SIMPLE-STRING 100Q :INITIAL-ELEMENT 71Q LIST 44Q :INITIAL-ELEMENT) ( 321Q "~S is a bad type specifier for sequences." 304Q (MOD 2)) CONCATENATE D1 (L (0 -args-)) ekaaHl2 OdOOId%$a_OOh__Ok_O&_[dg'gjJdMk]no MLg1Kg*Kg#KgKgKgKgKg,gk_IJdOk_no ONoI (327Q CL:ERROR 307Q LISPERROR 151Q LISPERROR) (250Q CONCAT-TO-SIMPLE* 242Q SIMPLE-BIT-VECTOR 234Q BIT-VECTOR 226Q SIMPLE-ARRAY 217Q ARRAY 210Q STRING 201Q VECTOR 172Q SIMPLE-STRING 163Q SIMPLE-VECTOR 117Q CONCAT-TO-LIST* 110Q LIST) ( 323Q "~S: invalid output type specification." 304Q "TOO MANY ARGUMENTS" 146Q "TOO MANY ARGUMENTS") 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 (CL: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&__dldo] BLdM&M $jO _^O LdON &Nk԰gOo K(216Q CHECK-TYPE-FAIL 171Q AREF 157Q %%= 146Q CL:LENGTH 136Q VECTORP 115Q ENDP) (205Q SEQUENCE) ( 213Q (OR LIST VECTOR) 106Q (NIL)) CONCAT-TO-SIMPLE* D1 (L (0 -args-)) ekaaHl2 OdO/OZjOJO jIO O$O &O&a_OOh__Ok_O&_O ^]dldo[ KO&O$K O$k_$K %j\O" 'O&O$NL O$k_$Lk԰gMo O O"_"_ e _O_OO_O_3(331Q CL:LENGTH 305Q CHECK-TYPE-FAIL 255Q ASETFUN 252Q AREF 237Q %%= 225Q VECTORP 206Q ASETFUN 173Q ENDP 76Q %%= 64Q MAKE-SEQUENCE-OF-TYPE 55Q REVERSE) (275Q SEQUENCE) ( 302Q (OR LIST VECTOR) 164Q (NIL)) (PUTPROPS CMLSEQBASICS FILETYPE COMPILE-FILE) (PUTPROPS CMLSEQBASICS COPYRIGHT ("Xerox Corporation" 1986)) STOP