(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "22-Nov-93 13:32:11" ("compiled on " {DSK}export>lispcore>sources>CLTL2>CMLSEQBASICS.;1) "11-Nov-93 16:58:33" "COMPILE-FILEd" in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "18-Oct-93 14:37:58" "{Pele:mv:envos}Sources>CLTL2>CMLSEQBASICS.;2" 10546 previous date%: "29-Aug-91 16:36:55" "{Pele:mv:envos}Sources>CLTL2>CMLSEQBASICS.;1") (RPAQQ CMLSEQBASICSCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES CMLSEQCOMMON)) (FUNCTIONS CL:CONCATENATE CL:COPY-SEQ CL:ELT CL:LENGTH CL:MAKE-SEQUENCE CL:NREVERSE CL:REVERSE CL:SUBSEQ %%SETELT ) (FUNCTIONS MAKE-SEQUENCE-OF-TYPE) (SETFS CL:ELT CL:SUBSEQ) (PROPS (CMLSEQBASICS FILETYPE)) ( DECLARE%: EVAL@COMPILE DONTCOPY DONTEVAL@LOAD (LOCALVARS . T)))) CL:CONCATENATE :D8 (L (0 -args-)) ¼!ekañ°Hl2 O:O8ó²0O<ºIj½Jh¼[µFM ^_d›dÃ¢±Á¿N_¿J_µ6NO:a_@¿O>µO@h_>_<¿O:kÔ_:°´O@&_>¿°ò¼ML Ô½K°¬__d´dÃ²$¿Oh_¿_µ°__¿OO¿O_¿O°ç ´/O j_¿_¿OOó².OOO¶¿O_¿OkÔ_¿°ãgOoh ¿O±ÿK ´‚±¦j_ ¿J_"µN_$_6d´dÃ²0¿O$h_,¿_*µ°w_,¿N_(¿O _&¿O,O(O&·¿O kÔ_ ¿O*°Û ´;O$ j_4¿_2¿O2O4ó²:N_0¿O _.¿O$O4¶O0O.·¿O kÔ_ ¿O4kÔ_4¿°×gO6oh ¿O"±ÿegOoh (441 CHECK-TYPE-FAIL 415 CHECK-TYPE-FAIL 346 VECTOR-LENGTH 337 CL:VECTORP 253 CL:VECTORP 241 CHECK-TYPE-FAIL 184 VECTOR-LENGTH 175 CL:VECTORP 114 CL:LENGTH 43 MAKE-SEQUENCE-OF-TYPE) (427 RESULT 401 SEQUENCE 284 LISTP 227 SEQUENCE 134 LISTP 54 LISTP) ( 434 (OR LIST CL:VECTOR) 408 (OR LIST CL:VECTOR) 234 (OR LIST CL:VECTOR)) CL:COPY-SEQ :D8 (L (0 SEQUENCE)) –@ a@Yd™dÃ²:¿@j2OH:’OO_¿OµOh__¿OOkÔ_¿_¿°ØO&_¿°ë ´0Hg@ ºj\[H:‘JJ¾L½@K¶NM·¿KkÔLkÔ¼°ègIoh (147 CHECK-TYPE-FAIL 100 MAKE-VECTOR 95 CL:ARRAY-ELEMENT-TYPE 81 CL:VECTORP 5 CL:LENGTH) (134 SEQUENCE 89 :ELEMENT-TYPE 18 LISTP) ( 140 (OR LIST CL:VECTOR)) (SET-DOCUMENTATION (QUOTE CL:COPY-SEQ) (QUOTE CL:FUNCTION) "Returns a copy of SEQUENCE which is EQUALP to SEQUENCE but not EQ.") CL:ELT :D8 (L (1 INDEX 0 SEQUENCE)) _AmÿóšA@ ýó³gg@gA ¿@!HYZ–JÃ—A@ I ´@A¶gHoh (92 CHECK-TYPE-FAIL 68 CL:VECTORP 61 CL:NTH 38 CL:ERROR 11 CL:LENGTH) (79 SEQUENCE 53 LISTP 31 :INDEX 25 :NAME 20 INDEX-BOUNDS-ERROR) ( 85 (OR LIST CL:VECTOR)) CL:LENGTH :D8 (L (0 SEQUENCE)) D@AHYZ—JÃ²j@¼»LµK¼KkÔ°ôI ´ @ gHoh (65 CHECK-TYPE-FAIL 46 VECTOR-LENGTH 38 CL:VECTORP) (52 SEQUENCE 13 LISTP) ( 58 (OR LIST CL:VECTOR)) CL:MAKE-SEQUENCE :D8 (L (0 -args-)) weka‘ laºi»Hl½¼MLó²h[¾Idgð²%¿JgNMdagð¥lÔ]°ÓkØa°ÔJ _¿K² j_J:³O_¿O_¿NOO·¿OkÔ°åO(78 MAKE-SEQUENCE-OF-TYPE 50 CL:MAKE-LIST) (59 :INITIAL-ELEMENT 44 :INITIAL-ELEMENT 34 LIST) () (SET-DOCUMENTATION (QUOTE CL:MAKE-SEQUENCE) (QUOTE CL:FUNCTION) "Make a sequnce of the specified type" ) CL:NREVERSE :D8 (L (0 SEQUENCE)) “@HYZ—JÃ² @!O_µO_¿OdO¿_¿°èI ´K@ »jKkÕKâOO:‘@@_¿O_¿OO¶¾@½O¼ML¶OO·¿NML·¿OkÔOkÕ_¿_°ËgHoh (144 CHECK-TYPE-FAIL 59 VECTOR-LENGTH 51 CL:VECTORP) (131 SEQUENCE 13 LISTP) ( 137 (OR LIST CL:VECTOR)) (SET-DOCUMENTATION (QUOTE CL:NREVERSE) (QUOTE CL:FUNCTION) "Returns a sequence of the same elements in reverse order (the argument is destroyed).") CL:REVERSE :D8 (L (0 SEQUENCE)) ƒ@qHYZ—JÃ²@h¼[µLL¼K°ôI ´H@ ]g@ jMkÕ OM:’OO_¿O¾@O¶ON·¿OkÔOkÕ_¿_°ÜgHoh (128 CHECK-TYPE-FAIL 63 MAKE-VECTOR 58 CL:ARRAY-ELEMENT-TYPE 46 VECTOR-LENGTH 38 CL:VECTORP) (115 SEQUENCE 52 :ELEMENT-TYPE 13 LISTP) ( 121 (OR LIST CL:VECTOR)) (SET-DOCUMENTATION (QUOTE CL:REVERSE) (QUOTE CL:FUNCTION) "Returns a new sequence containing the same elements but in reverse order.") CL:SUBSEQ :D8 (L (2 END 1 START 0 SEQUENCE)) Ã@ B£Hb¿jABHo@AB¿@YZ[—KÃ²?A@ A2 OB:’OO_¿OµOh__¿OOkÔ_¿_¿°ØO&_¿°ëJ ´8BAÕg@ ¼Aj¾]B:‘LL_¿N_¿@M¶OO·¿MkÔNkÔ°âgIoh (192 CHECK-TYPE-FAIL 139 MAKE-VECTOR 134 CL:ARRAY-ELEMENT-TYPE 118 CL:VECTORP 58 CL:NTHCDR 37 CL:ERROR 23 <= 5 CL:LENGTH) (179 SEQUENCE 128 :ELEMENT-TYPE 49 LISTP) ( 185 (OR LIST CL:VECTOR) 29 "Illegal subsequence for ~S.~%%Start is ~D. End is ~D") %%SETELT :D8 (L (2 NEWVAL 1 INDEX 0 SEQUENCE)) eAmÿóšA@ ýó³gg@gA ¿@AHYZ–JÃ˜A@BI ´@»A¼BKL·gHoh (98 CHECK-TYPE-FAIL 69 CL:VECTORP 62 CL::%%SET-NTH 38 CL:ERROR 11 CL:LENGTH) (85 SEQUENCE 53 LISTP 31 :INDEX 25 :NAME 20 INDEX-BOUNDS-ERROR) ( 91 (OR LIST CL:VECTOR)) MAKE-SEQUENCE-OF-TYPE :D8 (L (1 LENGTH 0 TYPE)) ó@dAHdgð—¿A gð©HdgðŸ¿@´@¹g°Rgð©HdgðŸ¿@´@¹g°2gð™@´@¹° Hgð³Hgð¨Hgð´@µ,i¼I3 µL²AAgLAô³îoA@¿°ßº@YµJµ°Ègð³ÀJ°¾¹°îH [œ@K b±ÿo@ (240 CL:ERROR 223 CL::TYPE-EXPAND 214 CL::TYPE-EXPANDER 174 CL:ERROR 157 MAKE-VECTOR 23 CL:MAKE-LIST) (198 CL:* 151 :ELEMENT-TYPE 128 CL:SIMPLE-ARRAY 120 CL:VECTOR 111 CL:ARRAY 93 CL:SIMPLE-VECTOR 86 BIT 70 CL:BIT-VECTOR 61 CL:SIMPLE-BIT-VECTOR 54 CL:STRING-CHAR 38 STRING 29 CL:SIMPLE-STRING 14 LIST) ( 234 "~S is a bad type specifier for sequences." 167 "~D is not the length of type ~s") (CL::SET-SETF-INVERSE (QUOTE CL:ELT) (QUOTE %%SETELT)) CL::SUBSEQ-setf-expander :D8 (L (1 CL::SUBSEQ-setf-env 0 CL::ACCESS-FORM)) r@1H³TKq@H¹ºH@JhI_¾O]¼Md»ggNJgLgKhJhI$¹K”JI&º„IhZ»HX°—(94 GENSYM 22 GENSYM) (70 :END1 64 :START1 57 CL:REPLACE 52 PROGN) () (CL::SET-SETF-METHOD-EXPANDER (QUOTE CL:SUBSEQ) (QUOTE CL::SUBSEQ-setf-expander)) (PUTPROPS CMLSEQBASICS FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLSEQBASICS COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1993)) NIL