(FILECREATED "17-Jul-86 00:10:13" ("compiled on " {ERIS}LIBRARY>CMLSEQ.;32) "15-Jul-86 23:17:21" "COMPILE-FILEd" in "Xerox Lisp 15-Jul-86 ..." dated "15-Jul-86 23:40:47") (FILECREATED " 2-Jul-86 18:18:40" {ERIS}LIBRARY>CMLSEQ.;32 13717 changes to: (SETFS CL:ELT) (FUNCTIONS SEQ-DISPATCH MAKE-SEQUENCE-OF-TYPE CL:REPLACE) (VARS CMLSEQCOMS) (FNS LIST-TO-STRING* LIST-TO-BIT-VECTOR* LIST-TO-VECTOR*) previous date: " 1-Jul-86 18:39:59" {ERIS}LIBRARY>CMLSEQ.;31) (RPAQQ CMLSEQCOMS ((FUNCTIONS CONCATENATE-TO-MUMBLE) (* "Not used.") (FNS CL:COERCE LIST-TO-STRING* LIST-TO-BIT-VECTOR* LIST-TO-VECTOR* VECTOR-TO-LIST* VECTOR-TO-VECTOR* VECTOR-TO-STRING* VECTOR-TO-BIT-VECTOR* STRING-TO-SIMPLE-STRING* BIT-VECTOR-TO-SIMPLE-BIT-VECTOR*) (* "Left over.") ( FILES CMLSEQCOMMON CMLSEQBASICS CMLSEQMAPPERS CMLSEQMODIFY CMLSEQFINDER CMLSORT) (PROP FILETYPE CMLSEQ ))) expand-CONCATENATE-TO-MUMBLE D1 (L (1 $$MACRO-ENVIRONMENT 0 $$MACRO-FORM)) ^@!H¹HºggJoooggJoooggIohhohoNIL (74Q MAKE-SEQUENCE-OF-TYPE 71Q RESULT 47Q SEQUENCES 44Q CL:DO 21Q SEQS 16Q CL:DO) ( 130Q ((LET ((LENGTH (CL:LENGTH (CAR SEQS)))) (SETQ LENGTHS (NCONC LENGTHS (LIST LENGTH))) (INCF TOTAL-LENGTH LENGTH))) 117Q (((= INDEX TOTAL-LENGTH) RESULT) (LET ((SEQUENCE (CAR SEQUENCES))) (SEQ-DISPATCH SEQUENCE (CL:DO ((SEQUENCE SEQUENCE (CDR SEQUENCE))) ((CL:ATOM SEQUENCE)) (SETF (AREF RESULT INDEX) (CAR SEQUENCE)) (INCF INDEX)) (CL:DO ((JNDEX 0 (1+ JNDEX))) ((= JNDEX (CAR LENGTHS))) (SETF (AREF RESULT INDEX) (AREF SEQUENCE JNDEX)) (INCF INDEX))))) 101Q (TOTAL-LENGTH) 66Q (INDEX 0) 62Q (LENGTHS LENGTHS (CDR LENGTHS)) 54Q ((CDR SEQUENCES)) 41Q (NULL SEQS) 34Q ((TOTAL-LENGTH 0) (LENGTHS NIL)) 26Q ((CDR SEQS))) (SETF-MACRO-FUNCTION (QUOTE CONCATENATE-TO-MUMBLE) (QUOTE expand-CONCATENATE-TO-MUMBLE)) CL:COERCE D1 (L (1 OUTPUT-TYPE-SPEC 0 OBJECT)) · @A ‘@Agð”@ @d3²>¿AHgð³HgðHgð§Hdgð•¿@gð—o o@AHlð©Hdo²U¿AdYgð§Idgð•¿@ gð§Idgð•¿@ gð³Igð«Igð¥Igð•@A o@A ²