(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "25-Jan-98 10:35:19" ("compiled on " {DSK}sources>CMLSEQCOMMON.;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:28:05" {DSK}local>lde>lispcore>sources>CMLSEQCOMMON.;2 5238 changes to%: (VARS CMLSEQCOMMONCOMS) previous date%: "12-Nov-86 14:57:08" {DSK}local>lde>lispcore>sources>CMLSEQCOMMON.;1) (RPAQQ CMLSEQCOMMONCOMS ((FUNCTIONS CHECK-SUBSEQ COLLECT-ITEM COPY-VECTOR-SUBSEQ FILL-VECTOR-SUBSEQ MAKE-SEQUENCE-LIKE SEQ-DISPATCH TYPE-SPECIFIER) (FUNCTIONS BACKWARD-LIST-LOOP BACKWARD-VECTOR-LOOP FORWARD-LIST-LOOP FORWARD-VECTOR-LOOP) (PROP FILETYPE CMLSEQCOMMON) (DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T)))) expand-CHECK-SUBSEQ :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) K@aH¹HZ»J\½L¾gggjKMNhhgoIKMhhNIL (54 CL:ERROR 36 <= 31 NOT 26 CL:IF) ( 59 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (SETF-MACRO-FUNCTION (QUOTE CHECK-SUBSEQ) (QUOTE expand-CHECK-SUBSEQ)) expand-COLLECT-ITEM :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) X@AH¹HZ»J¼gLgLgLgIhhhgKgLgIhhhhNIL (68 LIST 62 SETQ 56 SETQ 39 LIST 33 SETQ 27 RPLACD 21 CL:IF) () (SETF-MACRO-FUNCTION (QUOTE COLLECT-ITEM) (QUOTE expand-COLLECT-ITEM)) expand-COPY-VECTOR-SUBSEQ :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ™@¡ H¹HZ»J\½L^_¿N__¿O_¿ggKogOohM›ggM‹ggOhOhggOogIohhNIL (133 CL:AREF 119 CL:AREF 114 CL:SETF 98 TO-INDEX 93 EQL 86 FROM-INDEX 81 EQL 62 TO-INDEX 49 FROM-INDEX 44 CL:DO) ( 139 (FROM-INDEX) 126 (TO-INDEX) 69 ((CL:1+ TO-INDEX)) 55 ((CL:1+ FROM-INDEX))) (SETF-MACRO-FUNCTION (QUOTE COPY-VECTOR-SUBSEQ) (QUOTE expand-COPY-VECTOR-SUBSEQ)) (SET-DOCUMENTATION (QUOTE COPY-VECTOR-SUBSEQ) (QUOTE CL:FUNCTION) "Copy one vector subsequence to another") expand-FILL-VECTOR-SUBSEQ :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) [@aH¹HZ»J\½L¾ggKohggMhIhggIoNhhNIL (70 CL:AREF 65 CL:SETF 51 INDEX 46 EQL 31 INDEX 26 CL:DO) ( 76 (INDEX) 37 ((CL:1+ INDEX))) (SETF-MACRO-FUNCTION (QUOTE FILL-VECTOR-SUBSEQ) (QUOTE expand-FILL-VECTOR-SUBSEQ)) expand-MAKE-SEQUENCE-LIKE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) i@!H¹HºggIhhggggJhhggJhhggJohhhNIL (81 MAKE-VECTOR 76 CL:VECTOR 64 CL:MAKE-STRING 59 STRING 47 CL:MAKE-LIST 42 LIST 37 SEQ 32 CL:ETYPECASE 21 SEQ 16 LET) ( 87 (:ELEMENT-TYPE (CL:ARRAY-ELEMENT-TYPE SEQ))) (SETF-MACRO-FUNCTION (QUOTE MAKE-SEQUENCE-LIKE) (QUOTE expand-MAKE-SEQUENCE-LIKE)) (SET-DOCUMENTATION (QUOTE MAKE-SEQUENCE-LIKE) (QUOTE CL:FUNCTION) "Returns a sequence of the same type as SEQUENCE and the given LENGTH.") expand-SEQ-DISPATCH :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) 0@AH¹HZ»J¼gIgKhgLhhNIL (36 CL:VECTOR 27 LIST 21 CL:ETYPECASE) () (SETF-MACRO-FUNCTION (QUOTE SEQ-DISPATCH) (QUOTE expand-SEQ-DISPATCH)) expand-TYPE-SPECIFIER :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) %@ggHhHgHhhNIL (25 CAR 15 CL:ATOM 10 CL:IF) () (SETF-MACRO-FUNCTION (QUOTE TYPE-SPECIFIER) (QUOTE expand-TYPE-SPECIFIER)) (SET-DOCUMENTATION (QUOTE TYPE-SPECIFIER) (QUOTE CL:FUNCTION) "Returns the broad class of which TYPE is a specific subclass.") expand-BACKWARD-LIST-LOOP :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ¡@¡ H¹HZ»J\½L^_¿N__¿O_¿OOO gOgMhgOhhgOOgOKhOhgggOIhhgOoONIL (142 SETQ 126 CL:NTHCDR 121 %%SUBSEQ 116 SETQ 99 < 87 %%SUBSEQ 73 CL:1- 64 CL:1- 57 CL:DO) ( 149 ((CAR %%SUBSEQ))) (SETF-MACRO-FUNCTION (QUOTE BACKWARD-LIST-LOOP) (QUOTE expand-BACKWARD-LIST-LOOP)) expand-BACKWARD-VECTOR-LOOP :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ‰@¡ H¹HZ»J\½L^_¿N__¿O_¿OOO gOgMhgOhhOOgOKhOhgOgIOhhONIL (117 CL:AREF 110 SETQ 93 < 73 CL:1- 64 CL:1- 57 CL:DO) () (SETF-MACRO-FUNCTION (QUOTE BACKWARD-VECTOR-LOOP) (QUOTE expand-BACKWARD-VECTOR-LOOP)) expand-FORWARD-LIST-LOOP :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @¡ H¹HZ»J\½L^_¿N__¿O_¿OOO gggKIhoOKgOhhOOgOMhOhgOoONIL (126 SETQ 109 EQL 88 CL:1+ 67 CL:NTHCDR 62 %%SUBSEQ 57 CL:DO) ( 133 ((CAR %%SUBSEQ)) 78 ((CDR %%SUBSEQ))) (SETF-MACRO-FUNCTION (QUOTE FORWARD-LIST-LOOP) (QUOTE expand-FORWARD-LIST-LOOP)) expand-FORWARD-VECTOR-LOOP :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @¡ H¹HZ»J\½L^_¿N__¿O_¿OOO gOKgOhhOOgOMhOhgOgIOhhONIL (109 CL:AREF 102 SETQ 85 EQL 65 CL:1+ 57 CL:DO) () (SETF-MACRO-FUNCTION (QUOTE FORWARD-VECTOR-LOOP) (QUOTE expand-FORWARD-VECTOR-LOOP)) (SET-DOCUMENTATION (QUOTE FORWARD-VECTOR-LOOP) (QUOTE CL:FUNCTION) "Canonical forward loop for vectors") (PUTPROPS CMLSEQCOMMON FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQCOMMON COPYRIGHT ("Venue & Xerox Corporation" 1986 1990)) NIL