(FILECREATED " 1-Aug-85 21:48:50" ("compiled on " {ERIS}LIBRARY>CMLSEQ.;7) "28-Jul-85 01:39:50" recompiled changes: CL:POSITION CL:REPLACE CL:LENGTH MAP1 MAPCAN NREVERSE LIST-NREVERSE* VECTOR-POSITION* \EQL-IS-EQ in "INTERLISP-D 28-Jul-85 ..." dated "28-Jul-85 01:53:53") (FILECREATED " 1-Aug-85 16:36:09" {ERIS}LIBRARY>CMLSEQ.;7 4555 changes to: (FNS CL:POSITION CL:LENGTH MAP1 MAPCAN CL:REPLACE \EQL-IS-EQ LIST-NREVERSE* NREVERSE VECTOR-POSITION*) (VARS CMLSEQCOMS ) (MACROS SEQ-DISPATCH LIST-NREVERSE-MACRO VECTOR-POSITION) previous date: "31-Jul-85 04:48:50" {ERIS}LIBRARY>CMLSEQ.;1) CL:POSITION D1 (L (0 \CL:LAMBDA.ARGCNT) P 24Q KEY P 23Q END P 16Q START P 13Q TEST-NOT P 10Q TEST P 5 FROM-END P 2 SEQUENCE P 1 ITEM) Pe@AHlLdKhdagLkذLl\aHl_OdNhgagOkذOl_a_Hl__OdOhdagOkذOl_a_Hl__OdOhjagOkذOl_a_Hl_ _O dOhJ agO kذO l_ aHl_$_"O$dO"hgagO$kذO$l_$a_(JJIJMOOOO&O( IJMOOOO&O( (515Q VECTOR-POSITION* 473Q LIST-POSITION* 327Q CL:LENGTH) (417Q :KEY 411Q IDENTITY 335Q :END 252Q :START 172Q :TEST-NOT 112Q :TEST 104Q EQL 40Q :FROM-END) () CL:REPLACE D1 (L (0 \CL:LAMBDA.ARGCNT) P 16Q SOURCE-END P 13Q SOURCE-START P 10Q TARGET-END P 5 TARGET-START P 2 SOURCE-SEQUENCE P 1 TARGET-SEQUENCE) e@AHlLdKhjagLkذLl\aHl_OdNhdagOkذOl_a_Hl__OdOhjagOkذOl_a_Hl__OdOhdagOkذOl_a_OI _OJ _IIJJJJ(354Q MUMBLE-REPLACE-FROM-MUMBLE 350Q MUMBLE-REPLACE-FROM-LIST 337Q LIST-REPLACE-FROM-MUMBLE 333Q LIST-REPLACE-FROM-LIST 313Q CL:LENGTH 301Q CL:LENGTH) (245Q :END2 165Q :START2 105Q :END1 35Q :START1) () CL:LENGTH D1 (I 0 X) @@ @ (23Q LENGTH 17Q HELP 7 NCHARS) NIL () MAP1 D1 (L (3 TAKE-CAR 2 ACCUMULATE 1 ORIGINAL-ARGLISTS 0 FUNCTION) F 10Q N) tAW qhhYH] hBIiMAH^CNNLNdN@L B_gO JK gO JK&Jh(145Q EQL 134Q LAST 131Q \NCONC2 123Q EQL 106Q APPLY 103Q NREVERSE 5 \APPEND2) (140Q :LIST 116Q :NCONC) () MAPCAN D1 (L (0 \CL:LAMBDA.ARGCNT) P 3 MORE-LISTS P 2 LIST P 1 FUNCTION) B e@AHl2MdLNIJKgi a_OOh_Mk]O&_(42Q MAP1) (36Q :NCONC) () NREVERSE D1 (L (0 SEQUENCE)) @dd  (14Q VECTOR-NREVERSE* 10Q LIST-NREVERSE*) NIL () LIST-NREVERSE* D1 (L (0 SEQUENCE)) #@@Id JJHd HHI(25Q CL:ATOM 12Q CL:ATOM) NIL () VECTOR-POSITION* D1 (L (7 KEY 6 END 5 START 4 TEST-NOT 3 TEST 2 FROM-END 1 SEQUENCE 0 ITEM)) OBmkBFkՀEBEkՀFI[J hD@AK kGlDK@AK kGlCKH԰(74Q \AREF.1 50Q \AREF.1 34Q %%=) NIL () \EQL-IS-EQ D1 (L (0 X)) @dl@`NIL (17Q CHARACTERTYPE#) () SCHAR D1 (L (1 INDEX 0 STRING)) @Ak) (7 INT-CHAR) NIL () (PRETTYCOMPRINT CMLSEQCOMS) (RPAQQ CMLSEQCOMS ((MACROS LIST-NREVERSE-MACRO SEQ-DISPATCH VECTOR-POSITION) (FNS CL:POSITION CL:REPLACE CL:LENGTH MAP1 MAPCAN NREVERSE LIST-NREVERSE* VECTOR-POSITION* \EQL-IS-EQ SCHAR) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:POSITION))))) (DEFMACRO LIST-NREVERSE-MACRO (LIST) (BQUOTE (CL:DO ((1ST (CDR (\, LIST)) (CL:IF (CL:ATOM 1ST) 1ST ( CDR 1ST))) (2ND (\, LIST) 1ST) (3RD (QUOTE NIL) 2ND)) ((CL:ATOM 2ND) 3RD) (RPLACD 2ND 3RD)))) (DEFMACRO SEQ-DISPATCH (SEQUENCE LIST-FORM ARRAY-FORM) (BQUOTE (CL:IF (CL:LISTP (\, SEQUENCE)) (\, LIST-FORM) (\, ARRAY-FORM)))) (DEFMACRO VECTOR-POSITION (ITEM SEQUENCE) (BQUOTE (LET ((INCREMENTER (CL:IF FROM-END -1 1)) (START ( CL:IF FROM-END (1- END) START)) (END (CL:IF FROM-END (1- START) END))) (CL:DO ((INDEX START (+ INDEX INCREMENTER))) ((= INDEX END) NIL) (CL:IF TEST-NOT (CL:IF (FUNCALL TEST-NOT (\, ITEM) (FUNCALL KEY ( AREF (\, SEQUENCE) INDEX))) (RETURN INDEX)) (CL:IF (FUNCALL TEST (\, ITEM) (FUNCALL KEY (AREF (\, SEQUENCE) INDEX))) (RETURN INDEX))))))) (PUTPROPS CMLSEQ COPYRIGHT ("Xerox Corporation" 1985)) NIL