(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 10:40:02" ("compiled on " {DSK}sources>CMLSEQMAPPERS.;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:31:36" {DSK}local>lde>lispcore>sources>CMLSEQMAPPERS.;2 17365 changes to%: (VARS CMLSEQMAPPERSCOMS) previous date%: " 1-Jun-87 11:21:23" {DSK}local>lde>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¼ggKogLoooKhoggggoggIhhhhNIL (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@ggggHhhhggHhoooNIL (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«gIKhgNIL (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«gIKhgNIL (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«gIKhgNIL (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«gIKhgNIL (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 (4 INITIAL-VALUE 3 END 2 START 1 SEQUENCE 0 FUNCTION)) eAaHYZ—JÃ²!CkÕD¼»BKó‘LKA Ll@¼KkÕ°èI ´CkÕD¾½BMó‘NAM¶Nl@¾MkÕ°ígHoh (98 CHECK-TYPE-FAIL 52 CL:VECTORP 34 CL:NTHCDR) (85 SEQUENCE 13 LISTP) ( 91 (OR LIST CL:VECTOR)) (SET-DOCUMENTATION (QUOTE REDUCE-FROM-END) (QUOTE CL:FUNCTION) "Backward reduction") REDUCE-FROM-START :D8 (L (4 INITIAL-VALUE 3 END 2 START 1 SEQUENCE 0 FUNCTION)) mA!HYZ—JÃ²'BA BDLC:‘MK¾MNl@½KLkÔ¼»°éI ´BDKC:‘LAK¶½LMl@¼KkÔ[°ìgHoh (106 CHECK-TYPE-FAIL 58 CL:VECTORP 22 CL:NTHCDR) (93 SEQUENCE 13 LISTP) ( 99 (OR LIST CL:VECTOR)) CL:REDUCE :D8 (L (0 -args-)) gekañlaºHl¼»LKó¢±”j½Hl_¿¾OdNó¢±™¿h_¿Hl_¿_¿OdOó¢±›¿h_¿i_¿Hl_¿_¿OdOó¢±™¿h__¿J _ ¿O¤O _¿jMOO ®oJMO¿O¢±ˆO²uIJMOO Ldagð¦lÔ\±ÿ[kØa±ÿ\agð—OkØa±ÿ_OlÔ_±ÿLagð—OkØa±ÿ]OlÔ_±ÿIagð—OkØa±ÿaOlÔ_±ÿKIJMOO OMÕdjð”¿jIkð—JM O²IJMOkÕJOkÕ IJMkÔOJM (356 REDUCE-FROM-START 350 CL:ELT 335 REDUCE-FROM-END 329 CL:ELT 307 CL:ELT 283 REDUCE-FROM-START 168 REDUCE-FROM-END 144 CL:ERROR 129 <= 107 CL:LENGTH) (250 :INITIAL-VALUE 224 :FROM-END 198 :END 177 :START) ( 135 "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)) NIL