(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 3-Nov-93 12:28:35" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLSEQMAPPERS.;1) "19-Feb-93 17:03:08" "COMPILE-FILEd" in "Medley 19-Feb-93 ..." dated "19-Feb-93 18:20:42") (FILECREATED "29-Aug-91 16:51:48" {DSK}sources>lispcore>sources>CMLSEQMAPPERS.;2 14225 changes to%: (FUNCTIONS REDUCE-FROM-END REDUCE-FROM-START CL:REDUCE) previous date%: "16-May-90 14:31:36" {DSK}sources>lispcore>sources>CMLSEQMAPPERS.;1) (RPAQQ CMLSEQMAPPERSCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS %%FILL-SLICE %%MAP-FOR-EFFECT %%MAP-FOR-EFFECT-MULTIPLE %%MAP-FOR-EFFECT-SINGLE %%MAP-FOR-RESULT-MULTIPLE %%MAP-FOR-RESULT-SINGLE %%MIN-SEQUENCE-LENGTH CL:MAP) (* ;; "For compatibility with old optimizers") (FUNCTIONS %%MAP-SINGLE-FOR-EFFECT %%MAP-SINGLE-TO-LIST %%MAP-SINGLE-TO-SIMPLE %%MAP-TO-LIST %%MAP-TO-SIMPLE) (OPTIMIZERS CL:MAP) (FUNCTIONS %%SOME-MULTIPLE %%SOME-SINGLE %%EVERY-MULTIPLE %%EVERY-SINGLE %%NOTANY-MULTIPLE %%NOTANY-SINGLE %%NOTEVERY-MULTIPLE %%NOTEVERY-SINGLE CL:SOME CL:EVERY CL:NOTANY CL:NOTEVERY) (* ;; "For compatibility with old optimizers") (P (MOVD (QUOTE %%SOME-SINGLE) (QUOTE %%SINGLE-SOME)) (MOVD ( QUOTE %%EVERY-SINGLE) (QUOTE %%SINGLE-EVERY)) (MOVD (QUOTE %%NOTEVERY-SINGLE) (QUOTE %%SINGLE-NOTEVERY )) (MOVD (QUOTE %%NOTANY-SINGLE) (QUOTE %%SINGLE-NOTANY))) (OPTIMIZERS CL:SOME CL:EVERY CL:NOTANY CL:NOTEVERY) (FUNCTIONS REDUCE-FROM-END REDUCE-FROM-START CL:REDUCE) (PROP FILETYPE CMLSEQMAPPERS) ( DECLARE%: DONTEVAL@LOAD DONTCOPY DOEVAL@COMPILE (LOCALVARS . T)))) expand-%%FILL-SLICE :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) ~@AH¹HZ»J¼ggKogLoooKhoggggoggIhhhh#:NIL (103 %%SEQUENCE 98 CL:AREF 88 %%SEQUENCE 83 SEQ-DISPATCH 78 %%SUBSLICE 73 RPLACA 39 %%SUBSEQ 26 %%SUBSLICE 21 CL:DO) ( 93 (PROG1 (CAR %%SEQUENCE) (RPLACA %%SUBSEQ (CDR %%SEQUENCE))) 68 (SETQ %%SEQUENCE (CAR %%SUBSEQ)) 59 (NULL %%SUBSEQ) 52 (%%SEQUENCE) 45 ((CDR %%SUBSEQ)) 32 ((CDR %%SUBSLICE))) (SETF-MACRO-FUNCTION (QUOTE %%FILL-SLICE) (QUOTE expand-%%FILL-SLICE)) %%MAP-FOR-EFFECT :D8 (L (0 -args-)) M eka!laºHl2MLóœN[³(IJ Ma_¿OµOh_¾MkÔ]°ÜO&_¿°ôIJK (74 %%MAP-FOR-EFFECT-MULTIPLE 34 %%MAP-FOR-EFFECT-SINGLE) #:NIL () %%MAP-FOR-EFFECT-MULTIPLE :D8 (L (1 SEQUENCES 0 FUNCTION)) À A AI³HA RHj»ºJKó³hI ºHJó‘J¸IY°Ò@j¾½IA OµI°f_¿OO\d™dÃœ¿OOO¿°! ´OK¶°gLoh ¿OO_¿_¿°¬dýnNkØ^ñ¨hl4 ¿µêNM¿KkÔ»±ÿg(176 \LISPERROR 139 CHECK-TYPE-FAIL 113 CL:VECTORP 48 CL:LENGTH 27 CL:MAKE-LIST 22 CL:LENGTH 6 CL:LENGTH) (126 %%SEQUENCE 94 LISTP) ( 132 (OR LIST CL:VECTOR)) %%MAP-FOR-EFFECT-SINGLE :D8 (L (1 SEQUENCE 0 FUNCTION)) WAaHYZ–JÃA[d k@¿K°õI ´ A j½¼LMó¡h@¾AM¶kN¿MkÔ½°ígHoh (84 CHECK-TYPE-FAIL 42 VECTOR-LENGTH 34 CL:VECTORP) (71 SEQUENCE 13 LISTP) ( 77 (OR LIST CL:VECTOR)) %%MAP-FOR-RESULT-MULTIPLE :D8 (L (2 SEQUENCES 1 FUNCTION 0 RESULT-TYPE)) \B BI³4H¡ B ¹@H Z[d›dÃ¢±‹¿Jj½¼MH:²JI ºHJó‘J¸IY°»LAIB OµI ¿LMkÔ°Ë_¿OO^d™dÃœ¿OOO¿°! ´OM¶°gNoh ¿OO_¿_¿° ´‚±ƒj_H:’±ÿqJ_¿O_¿AIBOµI OO·¿OkÔ°Ô_ ¿OO _d™dÃœ¿O OO ¿°# ´ O O¶°gOoh ¿OO_¿_¿°šgKoh (345 CHECK-TYPE-FAIL 311 CHECK-TYPE-FAIL 283 CL:VECTORP 234 CL:APPLY 193 CL:VECTORP 172 CHECK-TYPE-FAIL 146 CL:VECTORP 101 CL:APPLY 71 CL:LENGTH 38 MAKE-SEQUENCE-OF-TYPE 30 CL:MAKE-LIST 25 CL:LENGTH 6 CL:LENGTH) (332 RESULT 297 %%SEQUENCE 264 LISTP 159 %%SEQUENCE 127 LISTP 48 LISTP) ( 338 (OR LIST CL:VECTOR) 304 (OR LIST CL:VECTOR) 165 (OR LIST CL:VECTOR)) %%MAP-FOR-RESULT-SINGLE :D8 (L (2 SEQUENCE 1 FUNCTION 0 RESULT-TYPE)) 3B ñ @H ¹B_2_0Z—JÃ²wI__[—KÃ²BI¾]¢±ùNA¼MkL¿MN°ìO ´0Bj_¿_¢±ÕI_¿O_¿A_¿OkOOO·¿OOkÔ°ÖgOoh ¿±›O0 ´~I_._,_˜OÃ²&jI_"¿_ H:³uO"A_¿BO ¶kO¿O kÔO"°àO, ´*j_*H:³LI_(¿O*_&¿A_$¿BO*¶kO$O(O&·¿O*kÔ°ÛgO.oh ¿°gO2oh I(303 CHECK-TYPE-FAIL 281 CHECK-TYPE-FAIL 220 CL:VECTORP 158 CL:VECTORP 147 CHECK-TYPE-FAIL 80 CL:VECTORP 18 MAKE-SEQUENCE-OF-TYPE 5 CL:LENGTH) (289 SEQUENCE 267 RESULT 175 LISTP 133 RESULT 47 LISTP 32 LISTP) ( 296 (OR LIST CL:VECTOR) 274 (OR LIST CL:VECTOR) 140 (OR LIST CL:VECTOR)) expand-%%MIN-SEQUENCE-LENGTH :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) I@ggggHhhhggHhooo#:NIL (45 CDR 40 SUBSEQ 25 CAR 20 CL:LENGTH 15 MIN-LENGTH 10 CL:DO) ( 68 (((NULL SUBSEQ) MIN-LENGTH) (SETQ NEXT-LENGTH (CL:LENGTH (CAR SUBSEQ))) (CL:IF (< NEXT-LENGTH MIN-LENGTH) (SETQ MIN-LENGTH NEXT-LENGTH))) 61 (NEXT-LENGTH) 54 ((CDR SUBSEQ))) (SETF-MACRO-FUNCTION (QUOTE %%MIN-SEQUENCE-LENGTH) (QUOTE expand-%%MIN-SEQUENCE-LENGTH)) CL:MAP :D8 (L (0 -args-)) o eka1laºla»Hl2 NMó²O¼I³7L³*JK Na_¿OµOh__¿NkÔ^°ÔO&_¿°ôJKL L¨IJKIJKL(108 %%MAP-FOR-RESULT-MULTIPLE 97 %%MAP-FOR-RESULT-SINGLE 86 %%MAP-FOR-EFFECT-MULTIPLE 44 %%MAP-FOR-EFFECT-SINGLE) #:NIL () (SET-DOCUMENTATION (QUOTE CL:MAP) (QUOTE CL:FUNCTION) "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." ) %%MAP-SINGLE-FOR-EFFECT :D8 (L (1 SEQUENCE 0 FUNCTION)) @A (6 %%MAP-FOR-EFFECT-SINGLE) #:NIL () %%MAP-SINGLE-TO-LIST :D8 (L (1 SEQUENCE 0 FUNCTION)) g@A(11 %%MAP-FOR-RESULT-SINGLE) (4 LIST) () %%MAP-SINGLE-TO-SIMPLE :D8 (L (2 SEQUENCE 1 FUNCTION 0 RESULT-TYPE)) @AB(7 %%MAP-FOR-RESULT-SINGLE) #:NIL () %%MAP-TO-LIST :D8 (L (0 -args-)) X eka!laºHl2MLó²N[³-gIJMa_¿OµOh_¾MkÔ]°ÖO&_¿°ôgIJK(85 %%MAP-FOR-RESULT-MULTIPLE 40 %%MAP-FOR-RESULT-SINGLE) (76 LIST 33 LIST) () %%MAP-TO-SIMPLE :D8 (L (0 -args-)) V eka1laºla»Hl2 NMóžO\³+IJKNa_¿OµOh__¿NkÔ^°ØO&_¿°ôIJKL(83 %%MAP-FOR-RESULT-MULTIPLE 40 %%MAP-FOR-RESULT-SINGLE) #:NIL () CL::optimize-MAP :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) F@QH¹HZ»J\½L³+I ²#I «gKMhgIKMhg(35 EVAL 27 CL:CONSTANTP) (67 COMPILER:PASS 53 %%MAP-FOR-RESULT-SINGLE 41 %%MAP-FOR-EFFECT-SINGLE) () (PUTPROP (QUOTE CL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-MAP) (GET ( QUOTE CL:MAP) (QUOTE COMPILER:OPTIMIZER-LIST)))) %%SOME-MULTIPLE :D8 (L (1 SEQUENCES 0 PREDICATE)) ’A AI³HA "jZH:²hI ºHJó‘J¸IY°Õ@IAMµI µÜJkÔ°Ñ¾LN[d˜dÃ™¿NMN¿° ´NJ¶°gKoh ¿LM½¼°±(134 CHECK-TYPE-FAIL 109 CL:VECTORP 73 CL:APPLY 45 CL:LENGTH 27 CL:MAKE-LIST 22 CL:LENGTH 6 CL:LENGTH) (121 %%SEQUENCE 93 LISTP) ( 127 (OR LIST CL:VECTOR)) %%SOME-SINGLE :D8 (L (1 SEQUENCE 0 PREDICATE)) \A AAYd™dÃ²¿Aj»ºKH:‘hJk@µúJKkÔ°ì ´j\H:³åAL¶k@µÞLkÔ°ðgIoh (89 CHECK-TYPE-FAIL 50 CL:VECTORP 5 CL:LENGTH) (76 SEQUENCE 18 LISTP) ( 82 (OR LIST CL:VECTOR)) %%EVERY-MULTIPLE :D8 (L (1 SEQUENCES 0 PREDICATE)) žA AI³HA 2Hj»ºJKó³iI ºHJó‘J¸IY°Ò@IANµ I ³Jh_¿MO\d™dÃ›¿ONO¿°! ´OK¶°gLoh ¿MN¾½°®KkÔ»°ˆ(140 CHECK-TYPE-FAIL 114 CL:VECTORP 76 CL:APPLY 48 CL:LENGTH 27 CL:MAKE-LIST 22 CL:LENGTH 6 CL:LENGTH) (127 %%SEQUENCE 96 LISTP) ( 133 (OR LIST CL:VECTOR)) %%EVERY-SINGLE :D8 (L (1 FIRST-SEQUENCE 0 PREDICATE)) [AaHYZ—JÃ²A[µik@¡hK°òI ´ A j½¼LMó²ß@¾AM¶kN´ÝMkÔ½°ígHoh (88 CHECK-TYPE-FAIL 46 VECTOR-LENGTH 38 CL:VECTORP) (75 FIRST-SEQUENCE 13 LISTP) ( 81 (OR LIST CL:VECTOR)) %%NOTANY-MULTIPLE :D8 (L (1 SEQUENCES 0 PREDICATE)) žA AI³HA 2Hj»ºJKó³iI ºHJó‘J¸IY°Ò@IANµ I ²Jh_¿MO\d™dÃ›¿ONO¿°! ´OK¶°gLoh ¿MN¾½°®KkÔ»°ˆ(140 CHECK-TYPE-FAIL 114 CL:VECTORP 76 CL:APPLY 48 CL:LENGTH 27 CL:MAKE-LIST 22 CL:LENGTH 6 CL:LENGTH) (127 %%SEQUENCE 96 LISTP) ( 133 (OR LIST CL:VECTOR)) %%NOTANY-SINGLE :D8 (L (1 FIRST-SEQUENCE 0 PREDICATE)) [AaHYZ—JÃ²A[µik@‘hK°òI ´ A j½¼LMó²ß@¾AM¶kN³ÜMkÔ½°ígHoh (88 CHECK-TYPE-FAIL 46 VECTOR-LENGTH 38 CL:VECTORP) (75 FIRST-SEQUENCE 13 LISTP) ( 81 (OR LIST CL:VECTOR)) %%NOTEVERY-MULTIPLE :D8 (L (1 SEQUENCES 0 PREDICATE)) žA AI³HA 2Hj»ºJKó³hI ºHJó‘J¸IY°Ò@IANµ I ³Ji_¿MO\d™dÃ›¿ONO¿°! ´OK¶°gLoh ¿MN¾½°®KkÔ»°ˆ(140 CHECK-TYPE-FAIL 114 CL:VECTORP 76 CL:APPLY 48 CL:LENGTH 27 CL:MAKE-LIST 22 CL:LENGTH 6 CL:LENGTH) (127 %%SEQUENCE 96 LISTP) ( 133 (OR LIST CL:VECTOR)) %%NOTEVERY-SINGLE :D8 (L (1 FIRST-SEQUENCE 0 PREDICATE)) ZAaHYZ–JÃŸA[d k@¡iK°óI ´!A j½¼LMó¡h@¾AM¶kN²ÛMkÔ½°ìgHoh (87 CHECK-TYPE-FAIL 44 VECTOR-LENGTH 36 CL:VECTORP) (74 FIRST-SEQUENCE 13 LISTP) ( 80 (OR LIST CL:VECTOR)) CL:SOME :D8 (L (0 -args-)) M eka!laºHl2MLóœN[³(IJ Ma_¿OµOh_¾MkÔ]°ÜO&_¿°ôIJK (74 %%SOME-MULTIPLE 34 %%SOME-SINGLE) #:NIL () (SET-DOCUMENTATION (QUOTE CL:SOME) (QUOTE CL:FUNCTION) "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." ) CL:EVERY :D8 (L (0 -args-)) M eka!laºHl2MLóœN[³(IJ Ma_¿OµOh_¾MkÔ]°ÜO&_¿°ôIJK (74 %%EVERY-MULTIPLE 34 %%EVERY-SINGLE) #:NIL () (SET-DOCUMENTATION (QUOTE CL:EVERY) (QUOTE CL:FUNCTION) "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-()." ) CL:NOTANY :D8 (L (0 -args-)) M eka!laºHl2MLóœN[³(IJ Ma_¿OµOh_¾MkÔ]°ÜO&_¿°ôIJK (74 %%NOTANY-MULTIPLE 34 %%NOTANY-SINGLE) #:NIL () (SET-DOCUMENTATION (QUOTE CL:NOTANY) (QUOTE CL:FUNCTION) "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." ) CL:NOTEVERY :D8 (L (0 -args-)) M eka!laºHl2MLóœN[³(IJ Ma_¿OµOh_¾MkÔ]°ÜO&_¿°ôIJK (74 %%NOTEVERY-MULTIPLE 34 %%NOTEVERY-SINGLE) #:NIL () (SET-DOCUMENTATION (QUOTE CL:NOTEVERY) (QUOTE CL:FUNCTION) "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-()." ) (MOVD (QUOTE %%SOME-SINGLE) (QUOTE %%SINGLE-SOME)) (MOVD (QUOTE %%EVERY-SINGLE) (QUOTE %%SINGLE-EVERY)) (MOVD (QUOTE %%NOTEVERY-SINGLE) (QUOTE %%SINGLE-NOTEVERY)) (MOVD (QUOTE %%NOTANY-SINGLE) (QUOTE %%SINGLE-NOTANY)) CL::optimize-SOME :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1H¹HZ»J«gIKhg#:NIL (32 COMPILER:PASS 20 %%SOME-SINGLE) () (PUTPROP (QUOTE CL:SOME) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-SOME) (GET ( QUOTE CL:SOME) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-EVERY :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1H¹HZ»J«gIKhg#:NIL (32 COMPILER:PASS 20 %%EVERY-SINGLE) () (PUTPROP (QUOTE CL:EVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-EVERY) (GET ( QUOTE CL:EVERY) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-NOTANY :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1H¹HZ»J«gIKhg#:NIL (32 COMPILER:PASS 20 %%NOTANY-SINGLE) () (PUTPROP (QUOTE CL:NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-NOTANY) (GET (QUOTE CL:NOTANY) (QUOTE COMPILER:OPTIMIZER-LIST)))) CL::optimize-NOTEVERY :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) #@1H¹HZ»J«gIKhg#:NIL (32 COMPILER:PASS 20 %%NOTEVERY-SINGLE) () (PUTPROP (QUOTE CL:NOTEVERY) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE CL::optimize-NOTEVERY) (GET (QUOTE CL:NOTEVERY) (QUOTE COMPILER:OPTIMIZER-LIST)))) REDUCE-FROM-END :D8 (L (5 KEY 4 INITIAL-VALUE 3 END 2 START 1 SEQUENCE 0 FUNCTION)) äE²~AAHYZ—JÃ²-CkÕDBMó‘NMA _¿@»OkENlK¾MkÕ½°ÞI ´(CkÕDBMó‘NAM¶_¿@¼OkENlL¾MkÕ½°ãgHoh AaHYZ—JÃ²!CkÕD¼»BKó‘LKA Ll@¼KkÕ°èI ´CkÕD¾½BMó‘NAM¶Nl@¾MkÕ°ígHoh (225 CHECK-TYPE-FAIL 179 CL:VECTORP 161 CL:NTHCDR 125 CHECK-TYPE-FAIL 67 CL:VECTORP 38 CL:NTHCDR) (212 SEQUENCE 140 LISTP 112 SEQUENCE 16 LISTP) ( 218 (OR LIST CL:VECTOR) 118 (OR LIST CL:VECTOR)) (SET-DOCUMENTATION (QUOTE REDUCE-FROM-END) (QUOTE CL:FUNCTION) "Backward reduction") REDUCE-FROM-START :D8 (L (5 KEY 4 INITIAL-VALUE 3 END 2 START 1 SEQUENCE 0 FUNCTION)) ò E¢±ƒAAHYZ—JÃ²3BA BDNC:’OM_¿@»OOkElK_¿MNkÔ¾½°ÝI ´&BDMC:‘NAM¶_¿@¼NOkElL¾MkÔ]°ägHoh A!HYZ—JÃ²'BA BDLC:‘MK¾MNl@½KLkÔ¼»°éI ´BDKC:‘LAK¶½LMl@¼KkÔ[°ìgHoh (239 CHECK-TYPE-FAIL 191 CL:VECTORP 155 CL:NTHCDR 131 CHECK-TYPE-FAIL 75 CL:VECTORP 27 CL:NTHCDR) (226 SEQUENCE 146 LISTP 118 SEQUENCE 18 LISTP) ( 232 (OR LIST CL:VECTOR) 124 (OR LIST CL:VECTOR)) CL:REDUCE :D8 (L (0 -args-)) ÞekañplaºHl¼»LKó¢±Àj½Hl_¿¾OdNó¢±Å¿h_¿Hl_¿_¿OdOó¢±Ç¿h_¿i_¿Hl_¿_¿OdOó¢±Å¿h__¿i_ ¿Hl_$¿_"¿O$dO"ó¢±Á¿h_ ¿g_&¿J _(¿O¤O(_¿jMOO(®oJMO¿O¢±°O¢±–IJMOOO ´O& Ldagð¦lÔ\±ÿ/kØa±ÿ0agð—OkØa±ÿ3OlÔ_±ÿ agð—OkØa±ÿ1OlÔ_±ÿagð—OkØa±ÿ5OlÔ_±ÿagð—O$kØa±ÿ?O$lÔ_$±ÿ#IJMOOO ´O& OMÕdjð”¿jIkð²O&_*¿JM kO*O²)IJMOkÕO&_,¿JOkÕ kO,O ´O& IJMkÔOO&_.¿JM kO.O ´O& (475 REDUCE-FROM-START 459 CL:ELT 439 REDUCE-FROM-END 423 CL:ELT 392 CL:ELT 362 REDUCE-FROM-START 215 REDUCE-FROM-END 183 CL:ERROR 168 <= 146 CL:LENGTH) (323 :KEY 297 :INITIAL-VALUE 271 :FROM-END 245 :END 224 :START 137 CL:IDENTITY) ( 174 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") (PUTPROPS CMLSEQMAPPERS FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQMAPPERS COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991)) #:NIL