(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 3-Nov-93 12:27:50" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLSEQCOMMON.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED " 6-Sep-91 14:19:03" {DSK}venue>sources>CMLSEQCOMMON.;3 5402 changes to%: ( OPTIMIZERS CL:COMPLEMENT) (VARS CMLSEQCOMMONCOMS) (FUNCTIONS CL:COMPLEMENT) previous date%: "16-May-90 14:28:05" {DSK}sources>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) (FUNCTIONS CL:COMPLEMENT) (OPTIMIZERS CL:COMPLEMENT) (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¾gggjKMNhhgoIKMhh#:NIL (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¼gLgLgLgIhhhgKgLgIhhhh#:NIL (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‹ggOhOhggOogIohh#:NIL (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¾ggKohggMhIhggIoNhh#:NIL (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ºggIhhggggJhhggJhhggJohhh#:NIL (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¼gIgKhgLhh#:NIL (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)) %@ggHhHgHhh#:NIL (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 gOgMhgOhhgOOgOKhOhgggOIhhgOoO#:NIL (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 gOgMhgOhhOOgOKhOhgOgIOhhO#:NIL (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 gggKIhoOKgOhhOOgOMhOhgOoO#:NIL (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 gOKgOhhOOgOMhOhgOgIOhhO#:NIL (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") CL::COMPLEMENTA0001 :D8 (L (0 -args-) F 6 CL::FN) 3eHk2JIóžKVI hðJa½Lµ Mh\»JkÔZ°ßM&¼°÷(24 CL:APPLY) #:NIL () CL:COMPLEMENT :D8 (L (0 CL::FN)) g#:NIL (4 CL::COMPLEMENTA0001) () CL::optimize-COMPLEMENTA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CL::FN-NAME F 3 SI::NLSETQ-VALUE) i@R hcg(10 SMARTARGLIST) (19 :NORMAL) () CL::optimize-COMPLEMENT :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE) P 6 *CONDITION-HANDLER-BINDINGS* P 5 SI::*NLSETQFLAG* P 4 *PROCEED-CASES* P 3 SI::NLSETQ-VALUE P 1 CL::FN-NAME F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) x@!Hµgdgð©gð²êHYd3@ð²à`WioWL gð´KZ²³ggJgIJhhh(72 CL::optimize-COMPLEMENTA0001) (104 NOT 98 CL:LAMBDA 93 CL:FUNCTION 78 :NORMAL 51 SI::NLSETQ-PROCEED-CASE 30 CL:FUNCTION 22 QUOTE 14 COMPILER:PASS) ( 60 (CL:ERROR . SI::NLSETQHANDLER)) (PUTPROP (QUOTE CL:COMPLEMENT) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-COMPLEMENT ) (GET (QUOTE CL:COMPLEMENT) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS CMLSEQCOMMON FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQCOMMON COPYRIGHT ("Venue & Xerox Corporation" 1986 1990 1991)) #:NIL