(FILECREATED "12-Oct-86 18:11:46" ("compiled on " {ERIS}SOURCES>CMLSEQMAPPERS.;7) " 1-Oct-86 20:23:15" "COMPILE-FILEd" in "Xerox Lisp 1-Oct-86 ..." dated " 1-Oct-86 21:24:44") (FILECREATED "12-Oct-86 17:31:06" {ERIS}SOURCES>CMLSEQMAPPERS.;7 28037 changes to: ( FUNCTIONS CL:MAP) previous date: "29-Sep-86 18:47:41" {ERIS}SOURCES>CMLSEQMAPPERS.;6) (RPAQQ CMLSEQMAPPERSCOMS ((DECLARE: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS ELT-SLICE MAP-FOR-EFFECT %%MAP-FOR-EFFECT %%MAP-SINGLE-FOR-EFFECT MAP-TO-LIST %%MAP-TO-LIST %%MAP-SINGLE-TO-LIST MAP-TO-SIMPLE %%MAP-TO-SIMPLE %%MAP-SINGLE-TO-SIMPLE CL:MAP) (OPTIMIZERS %%MAP-FOR-EFFECT %%MAP-TO-LIST %%MAP-TO-SIMPLE CL:MAP) (FUNCTIONS %%SINGLE-SOME CL:SOME %%SINGLE-EVERY CL:EVERY %%SINGLE-NOTANY CL:NOTANY %%SINGLE-NOTEVERY CL:NOTEVERY) (OPTIMIZERS CL:SOME CL:EVERY CL:NOTANY CL:NOTEVERY) (FUNCTIONS LIST-REDUCE-FROM-END LIST-REDUCE MUMBLE-REDUCE-FROM-END MUMBLE-REDUCE REDUCE) (PROP FILETYPE CMLSEQMAPPERS))) expand-ELT-SLICE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) 2@!HHgggoggJhhhIhNIL (36Q SEQ 33Q CL:ELT 24Q CL:LAMBDA 21Q FUNCTION 16Q CL:MAPCAR) ( 30Q (SEQ)) (SETF-MACRO-FUNCTION (QUOTE ELT-SLICE) (QUOTE expand-ELT-SLICE)) expand-MAP-FOR-EFFECT D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) oNIL NIL ( 3 (CL:IF (NULL MORE-SEQUENCES) (SEQ-DISPATCH FIRST-SEQUENCE (MAPC FIRST-SEQUENCE FUNCTION) (DOTIMES (I (VECTOR-LENGTH FIRST-SEQUENCE)) (FUNCALL FUNCTION (AREF FIRST-SEQUENCE I)))) (CL:DO ((SEQS MORE-SEQUENCES (CDR SEQS)) (MIN-LENGTH (CL:LENGTH FIRST-SEQUENCE))) ((NULL SEQS) (CL:DO ((INDEX 0 (1+ INDEX))) ((= INDEX MIN-LENGTH) NIL) (CL:APPLY FUNCTION (ELT-SLICE SEQUENCES INDEX)))) (LET ((LENGTH (CL:LENGTH (CAR SEQS)))) (CL:WHEN (< LENGTH MIN-LENGTH) (SETQ MIN-LENGTH LENGTH)))))) (SETF-MACRO-FUNCTION (QUOTE MAP-FOR-EFFECT) (QUOTE expand-MAP-FOR-EFFECT)) %%MAP-FOR-EFFECTA0001 D1 (L (0 SEQ) F 0 INDEX) @P (4 CL:ELT) NIL () %%MAP-FOR-EFFECT D1 (L (0 -args-) P 23Q INDEX) eka laHl2OdOO JKKxJ]dd6JI+a_$O"O$h_"_ Ok_O$&_"dkNh )J j__OOhiJOkIOk_gMo J __FjO&O Ij__gL dOk_nhl4 OOO&k_& _OOO_O(357Q CL:LENGTH 332Q \LISPERROR 303Q CL:MAPCAR 262Q %%= 240Q CL:LENGTH 233Q CHECK-TYPE-FAIL 155Q VECTOR-LENGTH 147Q VECTORP) (277Q %%MAP-FOR-EFFECTA0001 223Q FIRST-SEQUENCE 56Q LISTP) ( 230Q (OR LIST VECTOR)) %%MAP-SINGLE-FOR-EFFECT D1 (L (1 SEQUENCE 0 FUNCTION)) OAAHYIdA@dkJh A jKLhiALk@LkԼgHo (114Q CHECK-TYPE-FAIL 50Q VECTOR-LENGTH 42Q VECTORP) (104Q SEQUENCE 13Q LISTP) ( 111Q (OR LIST VECTOR)) expand-MAP-TO-LIST D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) oNIL NIL ( 3 (CL:IF (NULL MORE-SEQUENCES) (SEQ-DISPATCH FIRST-SEQUENCE (MAPCAR FIRST-SEQUENCE FUNCTION) (for I from 0 to (VECTOR-LENGTH FIRST-SEQUENCE) collect (FUNCALL FUNCTION (AREF I FIRST-SEQUENCE)))) (CL:DO ((SEQS MORE-SEQUENCES (CDR SEQS)) (MIN-LENGTH (CL:LENGTH FIRST-SEQUENCE))) ((NULL SEQS) (FOR INDEX FROM 0 TO (1- MIN-LENGTH) COLLECT (CL:APPLY FUNCTION (ELT-SLICE SEQUENCES INDEX)))) (LET ((LENGTH (CL:LENGTH (CAR SEQS)))) (CL:WHEN (< LENGTH MIN-LENGTH) (SETF MIN-LENGTH LENGTH)))))) (SETF-MACRO-FUNCTION (QUOTE MAP-TO-LIST) (QUOTE expand-MAP-TO-LIST)) %%MAP-TO-LISTA0001 D1 (L (0 SEQ) F 0 INDEX) @P (4 CL:ELT) NIL () %%MAP-TO-LIST D1 (L (0 -args-) P 33Q INDEX) Peka laHl2OdO&OJKKJ]ddTJI2O Da_OOh__Ok_O&_dkO"_$O&hiO$h_(O&O$&_&O( 9J j2O,dO*O.JkI_2O0O2h_0_.O,k_,O2&_0gMo J _^bOkj2O6O4PIj__gL dOk_nhl4 OO_O>_(O<_&Jj_$_"gM dO$k_$nhl4 O$O"O(O&O]jIO@ ?O|O@ O~O~_HO|_FJj_D_BgM dODk_Dnhl4 ODOBOHOFO|k_| _JO@OJOJ_@O>oI (1621Q CL:ERROR 1566Q CL:LENGTH 1534Q \LISPERROR 1505Q CL:MAPCAR 1450Q %%= 1436Q MAKE-SEQUENCE-OF-TYPE 1420Q CL:LENGTH 1412Q CHECK-TYPE-FAIL 1306Q VECTORP 1177Q MAKE-SEQUENCE-OF-TYPE 1166Q CL:LENGTH 1041Q CL:LENGTH 762Q \LISPERROR 733Q CL:MAPCAR 666Q CL:LENGTH 661Q CHECK-TYPE-FAIL 562Q VECTOR-LENGTH 554Q VECTORP 413Q CL:LENGTH 366Q \LISPERROR 337Q CL:MAPCAR 316Q %%= 274Q CL:LENGTH 267Q CHECK-TYPE-FAIL 210Q VECTOR-LENGTH 202Q VECTORP) (1501Q CL:MAPA0003 1401Q FIRST-SEQUENCE 1213Q LISTP 1147Q SIMPLE-BIT-VECTOR 1141Q BIT-VECTOR 1133Q SIMPLE-ARRAY 1124Q CL:ARRAY 1115Q STRING 1106Q VECTOR 1077Q SIMPLE-STRING 1070Q SIMPLE-VECTOR 727Q CL:MAPA0002 650Q FIRST-SEQUENCE 466Q LISTP 441Q LIST 333Q CL:MAPA0001 256Q FIRST-SEQUENCE 150Q LISTP) ( 1615Q "~S: invalid output type specifier." 1407Q (OR LIST VECTOR) 656Q (OR LIST VECTOR) 264Q (OR LIST VECTOR)) (LET* ((A3748 (QUOTE CL:MAP)) (A3749 (QUOTE CL:FUNCTION)) (A3750 "FUNCTION must take as many arguments as there are sequences provided. The result is a sequence such that element i is the result of applying FUNCTION to element i of each of the argument sequences." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3748 A3749 A3750))) A3750)) optimize-%%MAP-FOR-EFFECT D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @1HHZJgIKhgNIL (34Q COMPILER:PASS 22Q %%MAP-SINGLE-FOR-EFFECT) () (PUTPROP (QUOTE %%MAP-FOR-EFFECT) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE %%MAP-FOR-EFFECT) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-%%MAP-FOR-EFFECT)))) optimize-%%MAP-TO-LIST D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @1HHZJgIKhgNIL (34Q COMPILER:PASS 22Q %%MAP-SINGLE-TO-LIST) () (PUTPROP (QUOTE %%MAP-TO-LIST) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE %%MAP-TO-LIST) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-%%MAP-TO-LIST)))) optimize-%%MAP-TO-SIMPLE D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) &@QHHZJ\LgIKMhgNIL (43Q COMPILER:PASS 27Q %%MAP-SINGLE-TO-SIMPLE) () (PUTPROP (QUOTE %%MAP-TO-SIMPLE) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE %%MAP-TO-SIMPLE) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-%%MAP-TO-SIMPLE)))) optimize-CL:MAP D1 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) R@aHHZJB ^jNN I d$M gKLggKLgMKLg(45Q CONSTANTEXPRESSIONP 40Q \FZEROP 23Q COMPILER:CONTEXT-VALUES-USED) (117Q COMPILER:PASS 105Q %%MAP-TO-SIMPLE 75Q %%MAP-TO-LIST 70Q LIST 60Q %%MAP-FOR-EFFECT) () (PUTPROP (QUOTE CL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST) (UNION (GETPROP (QUOTE CL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE optimize-CL:MAP)))) %%SINGLE-SOME D1 (L (1 SEQUENCE 0 PREDICATE)) NAAHYIdAZd;k@5J !A jKLhiALk@dLkԼgHo (113Q CHECK-TYPE-FAIL 45Q VECTOR-LENGTH 37Q VECTORP) (103Q SEQUENCE 13Q LISTP) ( 110Q (OR LIST VECTOR)) CL:SOMEA0001 D1 (L (0 SEQ) F 0 INDEX) @P (4 CL:ELT) NIL () CL:SOME D1 (L (0 -args-) P 17Q INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOAjOO hIjgO dMk]nhl4 MLOk_ ONN_O_(230Q CL:LENGTH 204Q \LISPERROR 157Q CL:MAPCAR 140Q %%= 113Q CL:LENGTH 45Q %%SINGLE-SOME) (152Q CL:SOMEA0001) () (LET* ((A3765 (QUOTE CL:SOME)) (A3766 (QUOTE CL:FUNCTION)) (A3767 "PREDICATE is applied to the elements with index 0 of the sequences, then possibly to those with index 1, and so on. SOME returns the first non-() value encountered, or () if the end of a sequence is reached." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3765 A3766 A3767))) A3767)) %%SINGLE-EVERY D1 (L (1 SEQUENCE 0 PREDICATE)) XAAHYIdAZik@hihJ $A jKLhiALk@hiLkԼgHo (125Q CHECK-TYPE-FAIL 54Q VECTOR-LENGTH 46Q VECTORP) (115Q SEQUENCE 13Q LISTP) ( 122Q (OR LIST VECTOR)) CL:EVERYA0001 D1 (L (0 SEQ) F 0 INDEX) @P (4 CL:ELT) NIL () CL:EVERY D1 (L (0 -args-) P 17Q INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOFjOO iIjgO dMk]nhl4 MLhihOk_ ONN_O_(235Q CL:LENGTH 204Q \LISPERROR 157Q CL:MAPCAR 140Q %%= 113Q CL:LENGTH 45Q %%SINGLE-EVERY) (152Q CL:EVERYA0001) () (LET* ((A3769 (QUOTE CL:EVERY)) (A3770 (QUOTE CL:FUNCTION)) (A3771 "PREDICATE is applied to the elements with index 0 of the sequences, then possibly to those with index 1, and so on. EVERY returns () as soon as any invocation of PREDICATE returns (), or T if every invocation is non-()." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3769 A3770 A3771))) A3771)) %%SINGLE-NOTANY D1 (L (1 SEQUENCE 0 PREDICATE)) PAAHYIdAZik@hJ A jKLhiALk@LkԼgHo (115Q CHECK-TYPE-FAIL 50Q VECTOR-LENGTH 42Q VECTORP) (105Q SEQUENCE 13Q LISTP) ( 112Q (OR LIST VECTOR)) CL:NOTANYA0001 D1 (L (0 SEQ) F 0 INDEX) @P (4 CL:ELT) NIL () CL:NOTANY D1 (L (0 -args-) P 17Q INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOBjOO iIjgO dMk]nhl4 MLhOk_ ONN_O_(231Q CL:LENGTH 204Q \LISPERROR 157Q CL:MAPCAR 140Q %%= 113Q CL:LENGTH 45Q %%SINGLE-NOTANY) (152Q CL:NOTANYA0001) () (LET* ((A3773 (QUOTE CL:NOTANY)) (A3774 (QUOTE CL:FUNCTION)) (A3775 "PREDICATE is applied to the elements with index 0 of the sequences, then possibly to those with index 1, and so on. NOTANY returns () as soon as any invocation of PREDICATE returns a non-() value, or T if the end of a sequence is reached." )) (PROGN (COND ((FBOUNDP (QUOTE SET-DOCUMENTATION)) (SET-DOCUMENTATION A3773 A3774 A3775))) A3775)) %%SINGLE-NOTEVERY D1 (L (1 SEQUENCE 0 PREDICATE)) NA1HYIdAd= 67Q VALUE 55Q INDEX 52Q CL:DO) ( 144Q (INDEX) 117Q (VALUE) 62Q ((1+ INDEX))) (SETF-MACRO-FUNCTION (QUOTE MUMBLE-REDUCE) (QUOTE expand-MUMBLE-REDUCE)) REDUCE D1 (L (0 -args-)) ekalaHlLdKXhHl_OdNZj_Hl__OdOZh_i_Hl__OdOVh__J _ OZhXagLkaLl\agOkaOl_agOkaOl_agOkaOl_iO _JOOO OO OOjIJJMSJ OJ _"OOO"_"OOOjk_$O"_&_(O$dj O(k_$O&_&O(lIOJ _*OOO*_*OOOjk_,O*_._0O,dj O0k_,O._.O0O.lIMFOhiOk_JO_OkOOkO6O:hiO8JO6O8lI_8O6k_6OhiJO_OkԁOO_4_2OO2hiO4O4JO2lI_4O2k԰(566Q %%= 512Q NTHCDR 455Q %%= 401Q NTHCDR 376Q REVERSE 367Q CL:LENGTH 335Q %%= 326Q CHECK-SUBSEQ 146Q CL:LENGTH) (263Q :INITIAL-VALUE 235Q :END 207Q :START 164Q :FROM-END) () (PUTPROPS CMLSEQMAPPERS FILETYPE COMPILE-FILE) (PUTPROPS CMLSEQMAPPERS COPYRIGHT ("Xerox Corporation" 1986)) NIL