(FILECREATED " 2-Oct-86 13:58:18" ("compiled on " {ERIS}SOURCES>CMLSORT.;3) "29-Sep-86 15:13:09" in "Xerox Lisp 29-Sep-86 ..." dated "29-Sep-86 15:41:04") (FILECREATED " 2-Oct-86 13:57:24" {ERIS}SOURCES>CMLSORT.;3 13241 changes to: (VARS CMLSORTCOMS) (FUNCTIONS CL:MERGE) previous date: " 2-Jul-86 17:17:04" {ERIS}SOURCES>CMLSORT.;2) (RPAQQ CMLSORTCOMS ((* ;; "CLtL Section 14.5 Merging and Sorting") (DECLARE: DONTCOPY DOEVAL@COMPILE ( FILES CMLSEQCOMMON) (FUNCTIONS APPLY-KEY APPLY-PRED SORT-PREFIX)) (FUNCTIONS CL:SORT %%SORT-VECTOR %%SORT-LIST) (FUNCTIONS STABLE-SORT %%STABLE-SORT-VECTOR) (FUNCTIONS CL:MERGE %%MERGE-LISTS* %%MERGE-VECTORS* %%MERGE-NON-SIMPLE-VECTORS) (PROP FILETYPE CMLSORT))) CL:SORT D1 (L (0 -args-)) YekaQlaºHl¼»LdKó²¿h½I^d—dÃ²¿IJMagð•LkØa°ãLlÔ\°Õ ´ IJMgNo(126Q CHECK-TYPE-FAIL 112Q %%SORT-VECTOR 102Q VECTORP 53Q %%SORT-LIST) (116Q SEQUENCE 60Q :KEY 42Q LISTP) ( 123Q (OR LIST VECTOR)) %%SORT-VECTOR D1 (L (2 KEY 1 PRED 0 VECTOR)) Ïð@ kÕjh¸HH¸[½HH¸\¾B—@L¶YkBƒ@L¶YºNM ³f@M¶_¿B•OkBOJlA²+@_¿N_¿OOO·¿NkÔ^M ³5@N¶_¿JB›OkB‡MkÕ½°µOlA²Û@_¿M_¿OOO·¿MkÕ½°—@_¿N_¿IOO·¿LNkÕýó™LH¸NkÕH¸KMkÔóšMkÔH¸KHX€H’±ÿE@(140Q %%= 57Q %%= 6 CL:LENGTH) NIL () %%SORT-LIST D1 (L (2 KEY 1 PRED 0 LIST)) tj1@¡IHkÔIhº@£h[°9kHóœ@db¿dh¿[°(HJºHkÕ¸gJ°Ûgð²1JJºKAB»JJº¿JJºdgð²Þ¿JkÕ¸KJºgJ°¦KAB¹¸°“(156Q %%MERGE-LISTS* 104Q %%MERGE-LISTS*) (144Q S2 124Q S1 66Q S2 57Q S1) () STABLE-SORT D1 (L (0 -args-)) YekaQlaºHl¼»LdKó²¿h½I^d—dÃ²¿IJMagð•LkØa°ãLlÔ\°Õ ´ IJMgNo(126Q CHECK-TYPE-FAIL 112Q %%STABLE-SORT-VECTOR 102Q VECTORP 53Q %%SORT-LIST) (116Q SEQUENCE 60Q :KEY 42Q LISTP) ( 123Q (OR LIST VECTOR)) %%STABLE-SORT-VECTOR D1 (L (2 KEY 1 PRED 0 VECTOR)) "@@g AB¹HIgjgh @(36Q CL:REPLACE 17Q %%SORT-LIST 12Q CL:COERCE) (31Q :END1 25Q :START1 7 LIST) () CL:MERGE D1 (L (0 -args-)) eka±laºla»la¼Hl¾½NdMó¿g_¿Id³°agð•NkØa°ìNlÔ^°Ý_dgð²T¿J_d²!dÃ“¿J° ´J ‹gOoK_d²!dÃ“¿K° ´K ‹gOoLOgð®Ogð§Ogð´VJ_d–dÃ™¿Jg ° ´J‹gOoK_d–dÃ™¿Kg ° ´K‹gOoLO(403Q %%MERGE-VECTORS* 375Q CHECK-TYPE-FAIL 355Q VECTORP 350Q LIST-TO-VECTOR* 326Q CHECK-TYPE-FAIL 306Q VECTORP 301Q LIST-TO-VECTOR* 232Q %%MERGE-LISTS* 224Q CHECK-TYPE-FAIL 207Q VECTOR-TO-LIST* 201Q VECTORP 157Q CHECK-TYPE-FAIL 142Q VECTOR-TO-LIST* 134Q VECTORP) (364Q SEQUENCE2 345Q VECTOR 337Q LISTP 315Q SEQUENCE1 276Q VECTOR 270Q LISTP 254Q STRING 245Q ARRAY 236Q VECTOR 213Q SEQUENCE2 171Q LISTP 146Q SEQUENCE1 124Q LISTP 106Q LIST 60Q :KEY 42Q IDENTITY) ( 372Q (OR LIST VECTOR) 323Q (OR LIST VECTOR) 221Q (OR LIST VECTOR) 154Q (OR LIST VECTOR)) %%MERGE-LISTS* D1 (L (3 KEY 2 PRED 1 LIST2 0 LIST1)) LghH¹@“A«@¢IAI@¿HCšAkC@kCƒA@lBIA¿I¹Ab¿°ÎI@¿I¹@b°ÂNIL (2 HEADER) () %%MERGE-VECTORS* D1 (L (3 KEY 2 PRED 1 VECTOR2 0 VECTOR1)) @ABC(6 %%MERGE-NON-SIMPLE-VECTORS) NIL () %%MERGE-NON-SIMPLE-VECTORS D1 (L (3 KEY 2 PRED 1 VECTOR2 0 VECTOR1)) Ð@ áA ¹HIÔZg@ »j\]¾JLó‘h€i‘KMH ²(LdJ ’±’¿K_¿L_¿AN¶OO·¿LkÔ¼NkÔ¾°ÜNI ²&LdJ ³f¿K_¿L_¿@M¶OO·¿LkÔ¼MkÔ½°ÞCœAN¶kC@M¶kC…AN¶@M¶lB²K_¿L_¿AN¶OO·¿NkÔ¾°K_¿L_¿@M¶OO·¿MkÔ½LkÔ¼±ÿS(142Q %%= 132Q %%= 65Q %%= 55Q %%= 31Q MAKE-ARRAY 26Q ARRAY-ELEMENT-TYPE 12Q CL:LENGTH 3 CL:LENGTH) (22Q :ELEMENT-TYPE) () (PUTPROPS CMLSORT FILETYPE COMPILE-FILE) (PUTPROPS CMLSORT COPYRIGHT ("Xerox Corporation" 1986)) NIL