(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "LISP") (IL:FILECREATED "20-Oct-86 17:29:18" ("compiled on " IL:{ERIS}SOURCES>CMLSEQMAPPERS.\;8) "19-Oct-86 18:07:50" "COMPILE-FILEd" IL:|in| "Xerox Lisp 19-Oct-86 ..." IL:|dated| "19-Oct-86 23:28:21") (IL:FILECREATED "20-Oct-86 17:28:06" IL:{ERIS}SOURCES>CMLSEQMAPPERS.\;8 23314 IL:|changes| IL:|to:| (IL:VARS IL:CMLSEQMAPPERSCOMS) (IL:FUNCTIONS IL:ELT-SLICE IL:MAP-FOR-EFFECT) IL:|previous| IL:|date:| "12-Oct-86 17:31:06" IL:{ERIS}SOURCES>CMLSEQMAPPERS.\;7) (IL:RPAQQ IL:CMLSEQMAPPERSCOMS ((IL:DECLARE\: IL:EVAL@COMPILE IL:DONTCOPY (IL:FILES IL:CMLSEQCOMMON)) (IL:FUNCTIONS IL:ELT-SLICE IL:MAP-FOR-EFFECT IL:%MAP-FOR-EFFECT IL:%MAP-SINGLE-FOR-EFFECT IL:MAP-TO-LIST IL:%MAP-TO-LIST IL:%MAP-SINGLE-TO-LIST IL:MAP-TO-SIMPLE IL:%MAP-TO-SIMPLE IL:%MAP-SINGLE-TO-SIMPLE MAP) (IL:OPTIMIZERS IL:%MAP-FOR-EFFECT IL:%MAP-TO-LIST IL:%MAP-TO-SIMPLE MAP) (IL:FUNCTIONS IL:%SINGLE-SOME SOME IL:%SINGLE-EVERY EVERY IL:%SINGLE-NOTANY NOTANY IL:%SINGLE-NOTEVERY NOTEVERY) ( IL:OPTIMIZERS SOME EVERY NOTANY NOTEVERY) (IL:FUNCTIONS IL:LIST-REDUCE-FROM-END IL:LIST-REDUCE IL:MUMBLE-REDUCE-FROM-END IL:MUMBLE-REDUCE REDUCE) (IL:PROP IL:FILETYPE IL:CMLSEQMAPPERS))) IL:|expand-ELT-SLICE| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) 2@!HHgggoggJhhhIhNIL (30 IL:SEQ 27 ELT 20 LAMBDA 17 IL:FUNCTION 14 MAPCAR) ( 24 (IL:SEQ)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:ELT-SLICE) (QUOTE IL:|expand-ELT-SLICE|)) IL:|expand-MAP-FOR-EFFECT| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) oNIL NIL ( 3 (IF (NULL IL:MORE-SEQUENCES) (IL:SEQ-DISPATCH IL:FIRST-SEQUENCE (IL:MAPC IL:FIRST-SEQUENCE IL:FUNCTION) (DOTIMES (IL:I (IL:VECTOR-LENGTH IL:FIRST-SEQUENCE)) (FUNCALL IL:FUNCTION (AREF IL:FIRST-SEQUENCE IL:I)))) (DO ((IL:SEQS IL:MORE-SEQUENCES (CDR IL:SEQS)) (IL:MIN-LENGTH (LENGTH IL:FIRST-SEQUENCE))) ((NULL IL:SEQS) (DO ((IL:INDEX 0 (1+ IL:INDEX))) ((= IL:INDEX IL:MIN-LENGTH) NIL) (APPLY IL:FUNCTION (IL:ELT-SLICE IL:SEQUENCES IL:INDEX)))) (LET ((IL:LENGTH (LENGTH (CAR IL:SEQS)))) (WHEN (< IL:LENGTH IL:MIN-LENGTH) (IL:SETQ IL:MIN-LENGTH IL:LENGTH)))))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:MAP-FOR-EFFECT) (QUOTE IL:|expand-MAP-FOR-EFFECT|)) IL:%MAP-FOR-EFFECTA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () IL:%MAP-FOR-EFFECT IL:D1 (IL:L (0 IL:|-args-|) IL:P 19 IL: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(239 LENGTH 218 IL:\\LISPERROR 195 MAPCAR 178 IL:%= 160 LENGTH 155 IL:CHECK-TYPE-FAIL 109 IL:VECTOR-LENGTH 103 VECTORP) (191 IL:%MAP-FOR-EFFECTA0001 147 IL:FIRST-SEQUENCE 46 IL:LISTP) ( 152 (OR LIST VECTOR)) IL:%MAP-SINGLE-FOR-EFFECT IL:D1 (IL:L (1 SEQUENCE 0 IL:FUNCTION)) OAAHYIdA@dkJh A jKLhiALk@LkԼgHo (76 IL:CHECK-TYPE-FAIL 40 IL:VECTOR-LENGTH 34 VECTORP) (68 SEQUENCE 11 IL:LISTP) ( 73 (OR LIST VECTOR)) IL:|expand-MAP-TO-LIST| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) oNIL NIL ( 3 (IF (NULL IL:MORE-SEQUENCES) (IL:SEQ-DISPATCH IL:FIRST-SEQUENCE (IL:MAPCAR IL:FIRST-SEQUENCE IL:FUNCTION) (IL:|for| IL:I IL:|from| 0 IL:|to| (IL:VECTOR-LENGTH IL:FIRST-SEQUENCE) IL:|collect| (FUNCALL IL:FUNCTION (AREF IL:I IL:FIRST-SEQUENCE)))) (DO ((IL:SEQS IL:MORE-SEQUENCES (CDR IL:SEQS)) (IL:MIN-LENGTH (LENGTH IL:FIRST-SEQUENCE))) ((NULL IL:SEQS) (IL:FOR IL:INDEX IL:FROM 0 IL:TO (1- IL:MIN-LENGTH) IL:COLLECT (APPLY IL:FUNCTION (IL:ELT-SLICE IL:SEQUENCES IL:INDEX)))) (LET ((IL:LENGTH (LENGTH (CAR IL:SEQS)))) (WHEN (< IL:LENGTH IL:MIN-LENGTH) (SETF IL:MIN-LENGTH IL:LENGTH)))))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:MAP-TO-LIST) (QUOTE IL:|expand-MAP-TO-LIST|)) IL:%MAP-TO-LISTA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () IL:%MAP-TO-LIST IL:D1 (IL:L (0 IL:|-args-|) IL:P 27 IL: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 (913 ERROR 886 LENGTH 860 IL:\\LISPERROR 837 MAPCAR 808 IL:%= 798 IL:MAKE-SEQUENCE-OF-TYPE 784 LENGTH 778 IL:CHECK-TYPE-FAIL 710 VECTORP 639 IL:MAKE-SEQUENCE-OF-TYPE 630 LENGTH 545 LENGTH 498 IL:\\LISPERROR 475 MAPCAR 438 LENGTH 433 IL:CHECK-TYPE-FAIL 370 IL:VECTOR-LENGTH 364 VECTORP 267 LENGTH 246 IL:\\LISPERROR 223 MAPCAR 206 IL:%= 188 LENGTH 183 IL:CHECK-TYPE-FAIL 136 IL:VECTOR-LENGTH 130 VECTORP) (833 IL:MAPA0003 769 IL:FIRST-SEQUENCE 651 IL:LISTP 615 SIMPLE-BIT-VECTOR 609 BIT-VECTOR 603 SIMPLE-ARRAY 596 ARRAY 589 STRING 582 VECTOR 575 SIMPLE-STRING 568 SIMPLE-VECTOR 471 IL:MAPA0002 424 IL:FIRST-SEQUENCE 310 IL:LISTP 289 LIST 219 IL:MAPA0001 174 IL:FIRST-SEQUENCE 104 IL:LISTP) ( 909 "~S: invalid output type specifier." 775 (OR LIST VECTOR) 430 (OR LIST VECTOR) 180 (OR LIST VECTOR)) (LET* ((IL:A0538 (QUOTE MAP)) (IL:A0539 (QUOTE FUNCTION)) (IL:A0540 "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 IL:SET-DOCUMENTATION)) (IL:SET-DOCUMENTATION IL:A0538 IL:A0539 IL:A0540 ))) IL:A0540)) IL:|optimize-%MAP-FOR-EFFECT| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%MAP-SINGLE-FOR-EFFECT) () (IL:PUTPROP (QUOTE IL:%MAP-FOR-EFFECT) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE IL:%MAP-FOR-EFFECT) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE IL:|optimize-%MAP-FOR-EFFECT|)))) IL:|optimize-%MAP-TO-LIST| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%MAP-SINGLE-TO-LIST) () (IL:PUTPROP (QUOTE IL:%MAP-TO-LIST) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE IL:%MAP-TO-LIST) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE IL:|optimize-%MAP-TO-LIST|)))) IL:|optimize-%MAP-TO-SIMPLE| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) &@QHHZJ\LgIKMhgNIL (35 COMPILER:PASS 23 IL:%MAP-SINGLE-TO-SIMPLE) () (IL:PUTPROP (QUOTE IL:%MAP-TO-SIMPLE) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE IL:%MAP-TO-SIMPLE) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE IL:|optimize-%MAP-TO-SIMPLE|)))) |optimize-MAP| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) Y@aHHZJB ^jNN I d+M gKLggKLMg gMKLg(37 IL:CONSTANTEXPRESSIONP 32 IL:\\FZEROP 19 COMPILER:CONTEXT-VALUES-USED) (86 COMPILER:PASS 76 IL:%MAP-TO-SIMPLE 70 IL:OTHERWISE 61 IL:%MAP-TO-LIST 56 LIST 48 IL:%MAP-FOR-EFFECT) () (IL:PUTPROP (QUOTE MAP) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE MAP) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE |optimize-MAP|)))) IL:%SINGLE-SOME IL:D1 (IL:L (1 SEQUENCE 0 IL:PREDICATE)) KAAHYIdAZd&k@ J A jKLhiALk@LkԼgHo (72 IL:CHECK-TYPE-FAIL 37 IL:VECTOR-LENGTH 31 VECTORP) (64 SEQUENCE 11 IL:LISTP) ( 69 (OR LIST VECTOR)) IL:SOMEA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () SOME IL:D1 (IL:L (0 IL:|-args-|) IL:P 15 IL:INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOAjOO hIjgO dMk]nhl4 MLOk_ ONN_O_(152 LENGTH 132 IL:\\LISPERROR 111 MAPCAR 96 IL:%= 75 LENGTH 37 IL:%SINGLE-SOME) (106 IL:SOMEA0001) () (LET* ((IL:A0555 (QUOTE SOME)) (IL:A0556 (QUOTE FUNCTION)) (IL:A0557 "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 IL:SET-DOCUMENTATION)) (IL:SET-DOCUMENTATION IL:A0555 IL:A0556 IL:A0557 ))) IL:A0557)) IL:%SINGLE-EVERY IL:D1 (IL:L (1 SEQUENCE 0 IL:PREDICATE)) XAAHYIdAZik@hihJ $A jKLhiALk@hiLkԼgHo (85 IL:CHECK-TYPE-FAIL 44 IL:VECTOR-LENGTH 38 VECTORP) (77 SEQUENCE 11 IL:LISTP) ( 82 (OR LIST VECTOR)) IL:EVERYA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () EVERY IL:D1 (IL:L (0 IL:|-args-|) IL:P 15 IL:INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOFjOO iIjgO dMk]nhl4 MLhihOk_ ONN_O_(157 LENGTH 132 IL:\\LISPERROR 111 MAPCAR 96 IL:%= 75 LENGTH 37 IL:%SINGLE-EVERY) (106 IL:EVERYA0001) () (LET* ((IL:A0559 (QUOTE EVERY)) (IL:A0560 (QUOTE FUNCTION)) (IL:A0561 "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 IL:SET-DOCUMENTATION)) (IL:SET-DOCUMENTATION IL:A0559 IL:A0560 IL:A0561 ))) IL:A0561)) IL:%SINGLE-NOTANY IL:D1 (IL:L (1 SEQUENCE 0 IL:PREDICATE)) PAAHYIdAZik@hJ A jKLhiALk@LkԼgHo (77 IL:CHECK-TYPE-FAIL 40 IL:VECTOR-LENGTH 34 VECTORP) (69 SEQUENCE 11 IL:LISTP) ( 74 (OR LIST VECTOR)) IL:NOTANYA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () NOTANY IL:D1 (IL:L (0 IL:|-args-|) IL:P 15 IL:INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOBjOO iIjgO dMk]nhl4 MLhOk_ ONN_O_(153 LENGTH 132 IL:\\LISPERROR 111 MAPCAR 96 IL:%= 75 LENGTH 37 IL:%SINGLE-NOTANY) (106 IL:NOTANYA0001) () (LET* ((IL:A0563 (QUOTE NOTANY)) (IL:A0564 (QUOTE FUNCTION)) (IL:A0565 "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 IL:SET-DOCUMENTATION)) (IL:SET-DOCUMENTATION IL:A0563 IL:A0564 IL:A0565 ))) IL:A0565)) IL:%SINGLE-NOTEVERY IL:D1 (IL:L (1 SEQUENCE 0 IL:PREDICATE)) PAAHYIdAZdk@iJ !A jKLhihALk@LkԼgHo (77 IL:CHECK-TYPE-FAIL 39 IL:VECTOR-LENGTH 33 VECTORP) (69 SEQUENCE 11 IL:LISTP) ( 74 (OR LIST VECTOR)) IL:NOTEVERYA0001 IL:D1 (IL:L (0 IL:SEQ) IL:F 0 IL:INDEX) @P (4 ELT) NIL () NOTEVERY IL:D1 (IL:L (0 IL:|-args-|) IL:P 15 IL:INDEX) ekaQlaHl2 OdOO[)IJ a_OOh__Ok_O&_J JKOFjOO hIjgO dMk]nhl4 MLhiiOk_ ONN_O_(157 LENGTH 132 IL:\\LISPERROR 111 MAPCAR 96 IL:%= 75 LENGTH 37 IL:%SINGLE-NOTEVERY) (106 IL:NOTEVERYA0001) () (LET* ((IL:A0567 (QUOTE NOTEVERY)) (IL:A0568 (QUOTE FUNCTION)) (IL:A0569 "PREDICATE is applied to the elements with index 0 of the sequences, then possibly to those with index 1, and so on. NOTEVERY returns T as soon as any invocation of PREDICATE returns (), or () if every invocation is non-()." )) (PROGN (COND ((FBOUNDP (QUOTE IL:SET-DOCUMENTATION)) (IL:SET-DOCUMENTATION IL:A0567 IL:A0568 IL:A0569 ))) IL:A0569)) |optimize-SOME| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%SINGLE-SOME) () (IL:PUTPROP (QUOTE SOME) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE SOME) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE |optimize-SOME|)))) |optimize-EVERY| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%SINGLE-EVERY) () (IL:PUTPROP (QUOTE EVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE EVERY) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE |optimize-EVERY|)))) |optimize-NOTANY| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%SINGLE-NOTANY) () (IL:PUTPROP (QUOTE NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE |optimize-NOTANY|)))) |optimize-NOTEVERY| IL:D1 (IL:L (2 IL:$$CTX 1 IL:$$ENV 0 IL:$$WHOLE)) @1HHZJgIKhgNIL (28 COMPILER:PASS 18 IL:%SINGLE-NOTEVERY) () (IL:PUTPROP (QUOTE NOTEVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (IL:UNION (IL:GETPROP (QUOTE NOTEVERY) ( QUOTE COMPILER:OPTIMIZER-LIST)) (LIST (QUOTE |optimize-NOTEVERY|)))) IL:|expand-LIST-REDUCE-FROM-END| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) @ HHZJ\L^_N__O_gggggKhOhgKhhhhgOgOohgggOMgOohoogogIohhohNIL (148 FUNCALL 141 IL:VALUE 115 IF 109 - 106 IL:COUNT 103 DO* 88 PUSH 83 WHEN 67 IL:REVERSE 54 LENGTH 51 - 48 NTHCDR 45 SEQUENCE 42 LET) ( 167 (((= IL:COUNT 0) IL:VALUE)) 153 ((CAR SEQUENCE) IL:VALUE) 145 (CAR SEQUENCE) 138 (SEQUENCE SEQUENCE (CDR SEQUENCE)) 132 ((1- IL:COUNT)) 121 (0 1) 94 (SEQUENCE)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:LIST-REDUCE-FROM-END) (QUOTE IL:|expand-LIST-REDUCE-FROM-END|)) IL:|expand-LIST-REDUCE| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) @HHZJ\L^_N_gggMKhhhgOgOohggggggOohoogogIohhohNIL (122 FUNCALL 115 IL:VALUE 89 IF 86 IL:START 83 IL:END 80 - 77 IL:COUNT 74 DO* 59 PUSH 54 WHEN 40 NTHCDR 37 SEQUENCE 34 LET) ( 141 (((= IL:COUNT 0) IL:VALUE)) 127 (IL:VALUE (CAR SEQUENCE)) 119 (CAR SEQUENCE) 112 (SEQUENCE SEQUENCE (CDR SEQUENCE)) 106 ((1- IL:COUNT)) 95 (0 1) 65 (SEQUENCE)) (IL:SETF-MACRO-FUNCTION (QUOTE IL:LIST-REDUCE) (QUOTE IL:|expand-LIST-REDUCE|)) IL:|expand-MUMBLE-REDUCE-FROM-END| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) ~ @ HHZJ\L^_N__O_gggOhogOhggMhhhogggIOKoohhNIL (97 FUNCALL 94 IL:VALUE 91 IL:SETQ 73 1- 70 IL:TERMINUS 62 IL:VALUE 48 1- 45 IL:INDEX 42 DO) ( 111 (IL:VALUE) 105 (IL:INDEX) 88 ((<= IL:INDEX IL:TERMINUS) IL:VALUE) 57 ((1- IL:INDEX))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:MUMBLE-REDUCE-FROM-END) (QUOTE IL:|expand-MUMBLE-REDUCE-FROM-END|)) IL:|expand-MUMBLE-REDUCE| IL:D1 (IL:L (1 IL:$$MACRO-ENVIRONMENT 0 IL:$$MACRO-FORM)) w @ HHZJ\L^_N__O_ggMogOhhggOhogggIgOKohhhNIL (93 IL:VALUE 89 FUNCALL 86 IL:VALUE 83 IL:SETQ 69 IL:INDEX 66 >= 55 IL:VALUE 45 IL:INDEX 42 DO) ( 100 (IL:INDEX) 79 (IL:VALUE) 50 ((1+ IL:INDEX))) (IL:SETF-MACRO-FUNCTION (QUOTE IL:MUMBLE-REDUCE) (QUOTE IL:|expand-MUMBLE-REDUCE|)) REDUCE IL:D1 (IL:L (0 IL:|-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԰(374 IL:%= 330 NTHCDR 301 IL:%= 257 NTHCDR 254 IL:REVERSE 247 LENGTH 221 IL:%= 214 IL:CHECK-SUBSEQ 102 LENGTH) (179 :INITIAL-VALUE 157 :END 135 :START 116 :FROM-END) () (IL:PUTPROPS IL:CMLSEQMAPPERS IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:CMLSEQMAPPERS IL:COPYRIGHT ("Xerox Corporation" 1986)) NIL