(FILECREATED " 4-Jun-86 23:23:39" ("compiled on " {ERIS}LIBRARY>CMLSORT.;10) " 3-Jun-86 02:20:44" recompiled changes: CL:SORT %%SORT-SIMPLE-VECTOR %%SORT-VECTOR %%SORT-LIST STABLE-SORT %%STABLE-SORT-SIMPLE-VECTOR %%STABLE-SORT-VECTOR CL:MERGE %%MERGE-LISTS* %%MERGE-VECTORS* %%MERGE-SIMPLE-VECTORS %%MERGE-NON-SIMPLE-VECTORS in "Xerox Lisp 3-Jun-86 ..." dated " 3-Jun-86 02:32:01") (FILECREATED " 4-Jun-86 23:22:16" {ERIS}LIBRARY>CMLSORT.;10 28370 changes to: (VARS CMLSORTCOMS) (FNS CL:SORT %%SORT-SIMPLE-VECTOR %%SORT-VECTOR %%SORT-LIST STABLE-SORT %%STABLE-SORT-SIMPLE-VECTOR %%STABLE-SORT-VECTOR CL:MERGE %%MERGE-LISTS* %%MERGE-VECTORS* %%MERGE-SIMPLE-VECTORS %%MERGE-NON-SIMPLE-VECTORS %%STABLE-%%SORT-SIMPLE-VECTOR %%STABLE-%%SORT-VECTOR MERGE-VECTORS* MERGE-NON-SIMPLE-VECTORS MERGE-LISTS* MERGE-SIMPLE-VECTORS) previous date: " 4-Jun-86 23:17:12" {ERIS}LIBRARY>CMLSORT.;8) CL:SORT D1 (L (0 -args-)) nekaAlaHlLdKhId%d j?IJM agLkaLl\ Id jIJM I oI JM (153Q %%SORT-LIST 145Q CL:ERROR 130Q %%SORT-SIMPLE-VECTOR 115Q CL:LENGTH 106Q VECTORP 57Q %%SORT-VECTOR 44Q CL:LENGTH) (64Q :KEY) ( 141Q "~S is not a sequence.") %%SORT-SIMPLE-VECTOR D1 (L (0 -args-)) ekaAlalap I kjhNN__NN__KIO _kKIO __OO _IO KLkKLOlJ'IOL Ok_O 3IO OKMkKOk_MlJIOM Ok_IOO OOkONOkNOOkOkNON^N8I(271Q ASETFUN 247Q ASETFUN 206Q AREF 176Q %%= 162Q ASETFUN 132Q AREF 122Q %%= 106Q AREF 72Q AREF 27Q CL:LENGTH) NIL () %%SORT-VECTOR D1 (L (0 -args-)) ekaAlalap I kjhNN__NN__KIO _kKIO __OO _IO KLkKLOlJ'IOL Ok_O 3IO OKMkKOk_MlJIOM Ok_IOO OOkONOkNOOkOkNON^N8I(271Q ASETFUN 247Q ASETFUN 206Q AREF 176Q %%= 162Q ASETFUN 132Q AREF 122Q %%= 106Q AREF 72Q AREF 27Q CL:LENGTH) NIL () %%SORT-LIST D1 (L (0 -args-)) ekaqlalajIMLkMh_Ih_HkLIddh_8LO_LkռgOgN:FOO_OJK _OO_OO_gN:OkռOO_gOOJK v(232Q %%MERGE-LISTS* 137Q %%MERGE-LISTS*) (216Q S2 171Q S1 113Q S2 103Q S1) () STABLE-SORT D1 (L (0 -args-)) WekaAlaHlLdKhIdJM agLkaLl\ IJM I o JM (124Q %%SORT-LIST 116Q CL:ERROR 102Q %%STABLE-SORT-VECTOR 73Q VECTORP 44Q %%STABLE-SORT-SIMPLE-VECTOR) (51Q :KEY) ( 113Q "~S is not a sequence.") %%STABLE-SORT-SIMPLE-VECTOR D1 (L (0 -args-)) ^ eka lalaghI jL_^dM LJK j__IkOdIN &IOO OOk԰(122Q ASETFUN 104Q AREF 60Q %%SORT-LIST 46Q %%= 32Q CL:LENGTH) (23Q HEADER) () %%STABLE-SORT-VECTOR D1 (L (0 -args-)) ^ eka lalaghI jL_^dM LJK j__IkOdIN &IOO OOk԰(122Q ASETFUN 104Q AREF 60Q %%SORT-LIST 46Q %%= 32Q CL:LENGTH) (23Q HEADER) () CL:MERGE D1 (L (0 -args-)) JekalalalaHlNdMg_IdagNkaNl^_gO:J_lOdoTK_lOdoJKLO `OlO gO`JK LO oK `OlO gO`YK_lOdoJ KLO `OlO gO`J K LO oK oJ gO:gO:gO:J_lOdodK_lOdoJg Kg LO `OlO gO`Jg KLO oK `OlO gO`VK_lOdoJKg LO `OlO gO`JKLO oK oJ oI (1107Q CL:ERROR 1076Q CL:ERROR 1065Q CL:ERROR 1054Q %%MERGE-VECTORS* 1027Q TYPENAME 1002Q %%MERGE-VECTORS* 774Q LIST-TO-VECTOR* 724Q TYPENAME 677Q CL:ERROR 666Q %%MERGE-VECTORS* 657Q LIST-TO-VECTOR* 633Q TYPENAME 606Q %%MERGE-VECTORS* 600Q LIST-TO-VECTOR* 571Q LIST-TO-VECTOR* 462Q CL:ERROR 451Q CL:ERROR 440Q %%MERGE-LISTS* 432Q VECTOR-TO-LIST* 426Q VECTOR-TO-LIST* 405Q TYPENAME 360Q %%MERGE-LISTS* 351Q VECTOR-TO-LIST* 305Q TYPENAME 260Q CL:ERROR 247Q %%MERGE-LISTS* 241Q VECTOR-TO-LIST* 217Q TYPENAME 172Q %%MERGE-LISTS*) (1042Q BITMAPTYPE# 1032Q ARRAYP 1007Q ARRAYTYPE# 771Q VECTOR 737Q BITMAPTYPE# 727Q ARRAYP 704Q ARRAYTYPE# 654Q VECTOR 646Q BITMAPTYPE# 636Q ARRAYP 613Q ARRAYTYPE# 575Q VECTOR 566Q VECTOR 505Q STRING 476Q ARRAY 466Q VECTOR 420Q BITMAPTYPE# 410Q ARRAYP 365Q ARRAYTYPE# 320Q BITMAPTYPE# 310Q ARRAYP 265Q ARRAYTYPE# 232Q BITMAPTYPE# 222Q ARRAYP 177Q ARRAYTYPE# 106Q LIST 60Q :KEY 42Q IDENTITY) ( 1103Q "~S is not a subtype of SEQUENCE." 1072Q "~S is not a sequence." 1061Q "~S is not a sequence." 761Q (NIL) 673Q "~S is not a sequence." 556Q (NIL) 533Q (NIL) 456Q "~S is not a sequence." 445Q "~S is not a sequence." 342Q (NIL) 254Q "~S is not a sequence." 157Q (NIL) 134Q (NIL)) %%MERGE-LISTS* D1 (L (0 -args-)) [ekaQlalalagh]IJINJNIMLJkLIkLJIlKNJNJNINIYNIL (27Q HEADER) () %%MERGE-VECTORS* D1 (L (0 -args-)) /eka1lalalaIJIJKL IJKL (54Q %%MERGE-SIMPLE-VECTORS 44Q %%MERGE-NON-SIMPLE-VECTORS) NIL () %%MERGE-SIMPLE-VECTORS D1 (L (0 -args-))  eka lalalaI J MN_gI _j___OOOOM -OdO OOJO Ok_Ok_ON +OdO wOOIO Ok_Ok_LJO kLIO kLJO IO lKOOJO Ok_OOIO Ok_Ok_8(361Q ASETFUN 356Q AREF 332Q ASETFUN 327Q AREF 307Q AREF 301Q AREF 267Q AREF 256Q AREF 224Q ASETFUN 221Q AREF 204Q %%= 172Q %%= 143Q ASETFUN 140Q AREF 121Q %%= 107Q %%= 55Q MAKE-ARRAY 52Q ARRAY-ELEMENT-TYPE 35Q CL:LENGTH 30Q CL:LENGTH) (46Q :ELEMENT-TYPE) () %%MERGE-NON-SIMPLE-VECTORS D1 (L (0 -args-))  eka lalalaI J I J _gI _j___OOOOM -OdO OOJO Ok_Ok_ON +OdO wOOIO Ok_Ok_LJO kLIO kLJO IO lKOOJO Ok_OOIO Ok_Ok_8(367Q ASETFUN 364Q AREF 340Q ASETFUN 335Q AREF 315Q AREF 307Q AREF 275Q AREF 264Q AREF 232Q ASETFUN 227Q AREF 212Q %%= 200Q %%= 151Q ASETFUN 146Q AREF 127Q %%= 115Q %%= 63Q MAKE-ARRAY 60Q ARRAY-ELEMENT-TYPE 46Q CL:LENGTH 42Q CL:LENGTH 35Q CL:LENGTH 30Q CL:LENGTH) (54Q :ELEMENT-TYPE) () (PRETTYCOMPRINT CMLSORTCOMS) (RPAQQ CMLSORTCOMS ((* * Section 14.5 Merging and Sorting -- By Kelly Roach. *) (DECLARE: DONTCOPY DOEVAL@COMPILE (MACROS APPLY-KEY APPLY-PRED SORT-PREFIX)) (FNS CL:SORT %%SORT-SIMPLE-VECTOR %%SORT-VECTOR %%SORT-LIST) (FNS STABLE-SORT %%STABLE-SORT-SIMPLE-VECTOR %%STABLE-SORT-VECTOR) (FNS CL:MERGE %%MERGE-LISTS* %%MERGE-VECTORS* %%MERGE-SIMPLE-VECTORS %%MERGE-NON-SIMPLE-VECTORS) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA %%MERGE-NON-SIMPLE-VECTORS %%MERGE-SIMPLE-VECTORS %%MERGE-VECTORS* %%MERGE-LISTS* CL:MERGE %%STABLE-SORT-VECTOR %%STABLE-SORT-SIMPLE-VECTOR STABLE-SORT %%SORT-LIST %%SORT-VECTOR %%SORT-SIMPLE-VECTOR CL:SORT))))) (PUTPROPS CMLSORT COPYRIGHT ("Xerox Corporation" 1986)) NIL