(FILECREATED "23-Jul-86 14:05:47" ("compiled on " {DSK}DINDESORT.;3) "12-Nov-85 14:59:23" bcompl'd in "LOOPS with TEDIT 2-Jun-86 ..." dated " 2-Jun-86 16:58:15") (FILECREATED "23-Jul-86 14:03:13" {DSK}DINDESORT.;3 44630 changes to: (VARS DINDESORTCOMS) (FNS InsertionPairSort1 QuickPairSortFence QuickPairSort1 QuickPairSort UFQuickPairSortFenceYNotFloat UFInsertionPairSortYNotFloat1 UFQuickPairSortYNotFloat1 UFQuickPairSortYNotFloat) previous date: " 1-May-86 13:17:24" {DSK}DINDESORT.;1) InsertionPairSort1 D1 (L (3 U 2 L 1 Y 0 X)) iCBkIH\@I AI hIMB0@Mk \JL@M AMk AM Mk]J@M KAM IkY@(136Q \ASET.1 127Q \ASET.1 110Q \ASET.1 103Q \AREF.1 73Q \ASET.1 50Q \AREF.1 27Q \AREF.1 20Q \AREF.1) NIL () InsertionSort D1 (I 2 U I 1 L I 0 X) l@ g@ go@ @ k o@ AjbB@ kbABoAB jAB@ koAB @AB (151Q InsertionSort1 142Q ERROR 125Q ARRAY-TOTAL-SIZE 113Q ERROR 71Q ARRAY-TOTAL-SIZE 54Q ERROR 43Q EQP 37Q ARRAY-RANK 32Q ERROR 15Q ARRAY-ELEMENT-TYPE 3 ARRAY-ELEMENT-TYPE) (20Q FIXNUM 6 SINGLE-FLOAT) ( 135Q "Bounds exceed Array limits:" 106Q "Bounds out of order:" 50Q "Array not 1-Dimensional:" 26Q "Array not NUMBERP:") InsertionSort1 D1 (L (2 U 1 L 0 X)) @BAk"IH3@I IKA@Kk dJJ@K IkY@K Kk[@(65Q \ASET.1 51Q \ASET.1 36Q \AREF.1 20Q \AREF.1) NIL () PartialSort D1 (I 1 Ranks I 0 X) @ g@ go@ @ k o@ Ad0 ggg0AdjظIHhZH&J b jAj jAd k j@ koA @Aj@ kjA k (237Q PartialSort1 231Q ARRAY-TOTAL-SIZE 222Q ARRAY-TOTAL-SIZE 212Q ERROR 176Q ARRAY-TOTAL-SIZE 170Q \AREF.1 163Q ARRAY-TOTAL-SIZE 151Q \AREF.1 143Q QuickSort 136Q MAKE-ARRAY 65Q LENGTH 54Q ERROR 43Q EQP 37Q ARRAY-RANK 32Q ERROR 15Q ARRAY-ELEMENT-TYPE 3 ARRAY-ELEMENT-TYPE) (76Q :INITIAL-CONTENTS 73Q FIXNUM 70Q :ELEMENT-TYPE 20Q FIXNUM 6 SINGLE-FLOAT) ( 206Q "Ranks out of bounds:" 50Q "Array not 1-Dimensional:" 26Q "Array not NUMBERP:") PartialSort1 D1 (P 4 RJ P 3 RI P 2 XL P 1 J P 0 I I 5 RU I 4 RL I 3 U I 2 L I 1 Ranks I 0 X) CBl @BC BkC@B DE%Hkظ@H JIkٹ@I JHI@H @I @H M@I @B @I @B N@I KE!AK jHAK jCKk[LkټDLAL jBAL jIkKE@AHCKE DL@ABIkDL @@BC (330Q InsertionSort1 320Q PartialSort1 277Q PartialSort1 251Q \AREF.1 235Q \AREF.1 204Q \AREF.1 171Q \AREF.1 156Q \ASET.1 147Q \ASET.1 142Q \AREF.1 134Q \AREF.1 124Q \ASET.1 115Q \ASET.1 110Q \AREF.1 102Q \AREF.1 64Q \AREF.1 46Q \AREF.1 30Q \AREF.1 17Q QuickSortFence) NIL () QuickPairSort D1 (I 3 U I 2 L I 1 Y I 0 X) @ go@ @ k o@ A k oA @ A o@A BjbC@ kbBCoBC jBC@ koBC @ABC @ABC (217Q InsertionPairSort1 210Q QuickPairSort1 200Q ERROR 163Q ARRAY-TOTAL-SIZE 151Q ERROR 127Q ARRAY-TOTAL-SIZE 112Q ERROR 100Q EQP 75Q ARRAY-TOTAL-SIZE 71Q ARRAY-TOTAL-SIZE 64Q ERROR 53Q EQP 47Q ARRAY-RANK 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (6 SINGLE-FLOAT) ( 173Q "Bounds exceed Array limits:" 144Q "Bounds out of order:" 105Q "Arrays not the same length:" 60Q "Array not 1-Dimensional:" 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") QuickPairSort1 D1 (P 1 J P 0 I I 3 U I 2 L I 1 Y I 0 X) CBl @ABC BkC@B CHkظ@H JIkٹ@I JHI4@H @I @H K@I AH AI AH LAI @B @I @B M@I AB AI AB NAI IBCHk@ABIk @AHC@AHC @ABIk h(320Q QuickPairSort1 306Q QuickPairSort1 271Q QuickPairSort1 245Q \ASET.1 236Q \ASET.1 231Q \AREF.1 223Q \AREF.1 215Q \ASET.1 206Q \ASET.1 201Q \AREF.1 173Q \AREF.1 163Q \ASET.1 154Q \ASET.1 147Q \AREF.1 141Q \AREF.1 133Q \ASET.1 124Q \ASET.1 117Q \AREF.1 111Q \AREF.1 71Q \AREF.1 51Q \AREF.1 33Q \AREF.1 22Q QuickPairSortFence) NIL () QuickPairSortFence D1 (L (3 U 2 L 1 Y 0 X)) BClBk @H @I @H J@I AH AI AH KAI @I @C 2@I @C @I L@C AI AC AI MAC @B @C 5@B @C @B N@C AB _AC AB OAC @I @B 8@I _@B @I O@B AI _AB AI OAB h(372Q \ASET.1 362Q \ASET.1 355Q \AREF.1 345Q \AREF.1 337Q \ASET.1 327Q \ASET.1 322Q \AREF.1 312Q \AREF.1 302Q \AREF.1 275Q \AREF.1 267Q \ASET.1 257Q \ASET.1 252Q \AREF.1 242Q \AREF.1 234Q \ASET.1 225Q \ASET.1 220Q \AREF.1 212Q \AREF.1 202Q \AREF.1 175Q \AREF.1 167Q \ASET.1 160Q \ASET.1 153Q \AREF.1 145Q \AREF.1 137Q \ASET.1 130Q \ASET.1 123Q \AREF.1 115Q \AREF.1 105Q \AREF.1 100Q \AREF.1 72Q \ASET.1 63Q \ASET.1 56Q \AREF.1 50Q \AREF.1 42Q \ASET.1 33Q \ASET.1 26Q \AREF.1 20Q \AREF.1) NIL () QuickSort D1 (I 2 U I 1 L I 0 X) r@ g@ go@ @ k o@ AjbB@ kbABoAB jAB@ koAB @AB @AB (157Q InsertionSort1 151Q QuickSort1 142Q ERROR 125Q ARRAY-TOTAL-SIZE 113Q ERROR 71Q ARRAY-TOTAL-SIZE 54Q ERROR 43Q EQP 37Q ARRAY-RANK 32Q ERROR 15Q ARRAY-ELEMENT-TYPE 3 ARRAY-ELEMENT-TYPE) (20Q FIXNUM 6 SINGLE-FLOAT) ( 135Q "Bounds exceed Array limits:" 106Q "Indexes out of order:" 50Q "Array not 1-Dimensional:" 26Q "Array not NUMBERP:") QuickSort1 D1 (P 2 XL P 1 J P 0 I I 2 U I 1 L I 0 X) BAl @AB AkB@A #Hkظ@H JIkٹ@I JHI@H @I @H K@I @A @I @A L@I IABHk@AIk @HB@HB @AIk h(225Q QuickSort1 214Q QuickSort1 201Q QuickSort1 156Q \ASET.1 147Q \ASET.1 142Q \AREF.1 134Q \AREF.1 124Q \ASET.1 115Q \ASET.1 110Q \AREF.1 102Q \AREF.1 64Q \AREF.1 46Q \AREF.1 32Q \AREF.1 21Q QuickSortFence) NIL () QuickSortFence D1 (L (2 U 1 L 0 X)) ABlAkB@H @I @H J@I @I @B @I @B @I K@B @A @B @A @B @A L@B @I @A @I @A @I M@A (220Q \ASET.1 212Q \ASET.1 205Q \AREF.1 177Q \AREF.1 167Q \AREF.1 162Q \AREF.1 154Q \ASET.1 145Q \ASET.1 140Q \AREF.1 132Q \AREF.1 122Q \AREF.1 115Q \AREF.1 107Q \ASET.1 100Q \ASET.1 73Q \AREF.1 65Q \AREF.1 55Q \AREF.1 50Q \AREF.1 42Q \ASET.1 33Q \ASET.1 26Q \AREF.1 20Q \AREF.1) NIL () QuickSortSwap D1 (L (2 J 1 I 0 X)) @A @B @A H@B (27Q \ASET.1 21Q \ASET.1 14Q \AREF.1 4 \AREF.1) NIL () SelectKth D1 (I 1 K I 0 X) r@ g@ go@ @ k o@ AjbjAd@ koA Aj @ A@ k @ @Aj@ k (157Q SelectKth1 152Q ARRAY-TOTAL-SIZE 142Q SelectMax 135Q EQP 130Q ARRAY-TOTAL-SIZE 122Q SelectMin 115Q EQP 107Q ERROR 73Q ARRAY-TOTAL-SIZE 54Q ERROR 43Q EQP 37Q ARRAY-RANK 32Q ERROR 15Q ARRAY-ELEMENT-TYPE 3 ARRAY-ELEMENT-TYPE) (20Q FIXNUM 6 SINGLE-FLOAT) ( 103Q "Select: K outside array limits." 50Q "Array not 1-Dimensional:" 26Q "Array not NUMBERP:") SelectKth1 D1 (P 1 J P 0 I I 3 U I 2 L I 1 K I 0 X) BCkCB{@BC @B !HkXC@H \KIkٹ@I ]KHIL@I M@H @B @I @B J@I AIIkbBIAIkbCkع@A (211Q \AREF.1 146Q \ASET.1 137Q \ASET.1 132Q \AREF.1 124Q \AREF.1 113Q \ASET.1 104Q \ASET.1 65Q \AREF.1 46Q \AREF.1 27Q \AREF.1 21Q QuickSortFence) NIL () SelectMax D1 (I 0 X) .@d kj2IH@I KLKLIZIkYJ (53Q \AREF.1 24Q \AREF.1 4 ARRAY-TOTAL-SIZE) NIL () SelectMedian D1 (P 1 Ranks P 0 N I 0 X) Y@ Hkj@Hkl oHlkIj HlIk @IjHkjk @Hlk @Hl o(120Q \AREF.1 110Q \AREF.1 76Q PartialSort1 62Q \ASET.1 51Q \ASET.1 26Q SelectKth 3 ARRAY-TOTAL-SIZE) NIL ( 125Q .5 33Q (MAKE-ARRAY 2 (QUOTE :ELEMENT-TYPE) (QUOTE FIXNUM))) SelectMin D1 (I 0 X) .@d kj2IH@I KKLLIZIkYJ (53Q \AREF.1 24Q \AREF.1 4 ARRAY-TOTAL-SIZE) NIL () UFInsertionPairSort D1 (I 3 U I 2 L I 1 Y I 0 X) @ go@ A goA @ k oA A k oA @ A o@A BjbC@ kbBCoBC jBC@ koBC @ABC (232Q UFInsertionPairSort1 222Q ERROR 205Q ARRAY-TOTAL-SIZE 173Q ERROR 151Q ARRAY-TOTAL-SIZE 134Q ERROR 122Q EQP 117Q ARRAY-TOTAL-SIZE 113Q ARRAY-TOTAL-SIZE 106Q ERROR 75Q EQP 71Q ARRAY-RANK 64Q ERROR 53Q EQP 47Q ARRAY-RANK 42Q ERROR 25Q ARRAY-ELEMENT-TYPE 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (30Q SINGLE-FLOAT 6 SINGLE-FLOAT) ( 215Q "Bounds exceed Array limits:" 166Q "Bounds out of order:" 127Q "Arrays not the same length:" 102Q "Array not 1-Dimensional:" 60Q "Array not 1-Dimensional:" 36Q "Array not FLOATP:" 14Q "Array not FLOATP:") UFInsertionPairSort1 D1 (L (3 U 2 L 1 Y 0 X)) CBkIH@IddAIddhIMBS@MkMkd\J8@MdLAMdAMkMkdMk]@MdJAMdKIkY]@NIL (234Q ARRAY 216Q ARRAY 160Q ARRAY 146Q ARRAY 130Q ARRAY 75Q ARRAY 42Q ARRAY 21Q ARRAY) () UFInsertionPairSortYNotFloat1 D1 (L (3 U 2 L 1 Y 0 X)) CBkIHy@IddAI hIMB>@MkMkd\J#@MdLAMk AM Mk]@MdJKAM IkY@(173Q \ASET.1 140Q \ASET.1 133Q \AREF.1 41Q \AREF.1) (153Q ARRAY 112Q ARRAY 57Q ARRAY 17Q ARRAY) () UFInsertionSort D1 (I 2 U I 1 L I 0 X) b@ go@ @ k o@ AjbB@ kbABoAB jAB@ koAB @AB (137Q UFInsertionSort1 130Q ERROR 113Q ARRAY-TOTAL-SIZE 101Q ERROR 57Q ARRAY-TOTAL-SIZE 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (6 SINGLE-FLOAT) ( 123Q "Bounds exceed Array limits:" 74Q "Indexes out of order:" 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") UFInsertionSort1 D1 (L (2 U 1 L 0 X)) mBAkIH`@IddhILA1@LkLkd[J@LdKLk\@LdJIkY@NIL (131Q ARRAY 105Q ARRAY 52Q ARRAY 17Q ARRAY) () UFPartialSort D1 (I 1 Ranks I 0 X) @ go@ @ k o@ Ad0 ggg0AdjظIHhZH&J b jAj jAd k j@ koA @Aj@ kjA k (225Q UFPartialSort1 217Q ARRAY-TOTAL-SIZE 210Q ARRAY-TOTAL-SIZE 200Q ERROR 164Q ARRAY-TOTAL-SIZE 156Q \AREF.1 151Q ARRAY-TOTAL-SIZE 137Q \AREF.1 131Q QuickSort 124Q MAKE-ARRAY 53Q LENGTH 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (64Q :INITIAL-CONTENTS 61Q FIXNUM 56Q :ELEMENT-TYPE 6 SINGLE-FLOAT) ( 174Q "Ranks out of bounds:" 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") UFPartialSort1 D1 (P 4 RJ P 3 RI P 1 J P 0 I I 5 RU I 4 RL I 3 U I 2 L I 1 Ranks I 0 X) MCBl >@BC BkC@BddDE%Hkظ@HddJIkٹ@IddJHIB@Hddѽ@Hd@Idd@IdM@BddѾ@Bd@Idd@IdNKE!AK jHAK jCKk[LkټDLAL jBAL jIkKE@AHCKE DL@ABIkDL @@BC (512Q UFInsertionSort1 502Q UFPartialSort1 461Q UFPartialSort1 433Q \AREF.1 417Q \AREF.1 366Q \AREF.1 353Q \AREF.1 17Q UFQuickSortFence) (327Q ARRAY 303Q ARRAY 271Q ARRAY 247Q ARRAY 227Q ARRAY 203Q ARRAY 171Q ARRAY 147Q ARRAY 114Q ARRAY 61Q ARRAY 27Q ARRAY) () UFQuickPairSort D1 (I 3 U I 2 L I 1 Y I 0 X) @ go@ A goA @ k o@ A k oA @ A o@A BjbC@ kbBCoBC jBC@ koBC @ABC @ABC (241Q UFInsertionPairSort1 232Q UFQuickPairSort1 222Q ERROR 205Q ARRAY-TOTAL-SIZE 173Q ERROR 151Q ARRAY-TOTAL-SIZE 134Q ERROR 122Q EQP 117Q ARRAY-TOTAL-SIZE 113Q ARRAY-TOTAL-SIZE 106Q ERROR 75Q EQP 71Q ARRAY-RANK 64Q ERROR 53Q EQP 47Q ARRAY-RANK 42Q ERROR 25Q ARRAY-ELEMENT-TYPE 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (30Q SINGLE-FLOAT 6 SINGLE-FLOAT) ( 215Q "Bounds exceed Array limits:" 166Q "Bounds out of order:" 127Q "Arrays not the same length:" 102Q "Array not 1-Dimensional:" 60Q "Array not 1-Dimensional:" 36Q "Array not FLOATP:" 14Q "Array not FLOATP:") UFQuickPairSort1 D1 (P 1 J P 0 I I 3 U I 2 L I 1 Y I 0 X) CBl @ABC BkC@BddCHkظ@HddJIkٹ@IddJHI@Hddѻ@Hd@Idd@IdKAHddѼAHdAIddAIdLH@Bddѽ@Bd@Idd@IdMABddѾABdAIddAIdNIBCHk@ABIk @AHC@AHC @ABIk h(613Q UFQuickPairSort1 601Q UFQuickPairSort1 564Q UFQuickPairSort1 22Q UFQuickPairSortFence) (527Q ARRAY 503Q ARRAY 471Q ARRAY 447Q ARRAY 431Q ARRAY 405Q ARRAY 373Q ARRAY 351Q ARRAY 330Q ARRAY 304Q ARRAY 272Q ARRAY 250Q ARRAY 232Q ARRAY 206Q ARRAY 174Q ARRAY 152Q ARRAY 115Q ARRAY 62Q ARRAY 32Q ARRAY) () UFQuickPairSortFence D1 (L (3 U 2 L 1 Y 0 X))  BClBk @HddѺ@Hd@Idd@IdJAHddѻAHdAIddAIdK@Idd@Cdd~@IddѼ@Id@Cdd@CdLAIddѽAIdACddACdM@Bdd@Cdd@BddѾ@Bd@Cdd@CdNABdd_ABdACddACdO@Idd@Bdd@Idd_@Id@Bdd@BdOAIdd_AIdABddABdOhNIL (1161Q ARRAY 1135Q ARRAY 1123Q ARRAY 1077Q ARRAY 1060Q ARRAY 1034Q ARRAY 1022Q ARRAY 776Q ARRAY 745Q ARRAY 724Q ARRAY 705Q ARRAY 661Q ARRAY 647Q ARRAY 623Q ARRAY 605Q ARRAY 561Q ARRAY 547Q ARRAY 525Q ARRAY 476Q ARRAY 455Q ARRAY 437Q ARRAY 413Q ARRAY 401Q ARRAY 357Q ARRAY 341Q ARRAY 315Q ARRAY 303Q ARRAY 261Q ARRAY 234Q ARRAY 213Q ARRAY 175Q ARRAY 151Q ARRAY 137Q ARRAY 115Q ARRAY 77Q ARRAY 53Q ARRAY 41Q ARRAY 17Q ARRAY) () UFQuickPairSortFenceYNotFloat D1 (L (3 U 2 L 1 Y 0 X))  BClBk @HddѺ@Hd@Idd@IdJAH AI AH KAI @Idd@CddX@IddѼ@Id@Cdd@CdLAI AC AI MAC @Bdd@Cdd[@BddѾ@Bd@Cdd@CdNAB _AC AB OAC @Idd@Bdd^@Idd_@Id@Bdd@BdOAI _AB AI OAB h(735Q \ASET.1 725Q \ASET.1 720Q \AREF.1 710Q \AREF.1 533Q \ASET.1 523Q \ASET.1 516Q \AREF.1 506Q \AREF.1 334Q \ASET.1 325Q \ASET.1 320Q \AREF.1 312Q \AREF.1 140Q \ASET.1 131Q \ASET.1 124Q \AREF.1 116Q \AREF.1) (670Q ARRAY 644Q ARRAY 632Q ARRAY 606Q ARRAY 561Q ARRAY 540Q ARRAY 467Q ARRAY 443Q ARRAY 431Q ARRAY 407Q ARRAY 362Q ARRAY 341Q ARRAY 273Q ARRAY 247Q ARRAY 235Q ARRAY 213Q ARRAY 166Q ARRAY 145Q ARRAY 77Q ARRAY 53Q ARRAY 41Q ARRAY 17Q ARRAY) () UFQuickPairSortYNotFloat D1 (I 3 U I 2 L I 1 Y I 0 X) @ go@ @ k o@ A k oA @ A o@A BjbC@ kbBCoBC jBC@ koBC @ABC @ABC (217Q UFInsertionPairSortYNotFloat1 210Q UFQuickPairSortYNotFloat1 200Q ERROR 163Q ARRAY-TOTAL-SIZE 151Q ERROR 127Q ARRAY-TOTAL-SIZE 112Q ERROR 100Q EQP 75Q ARRAY-TOTAL-SIZE 71Q ARRAY-TOTAL-SIZE 64Q ERROR 53Q EQP 47Q ARRAY-RANK 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (6 SINGLE-FLOAT) ( 173Q "Bounds exceed Array limits:" 144Q "Bounds out of order:" 105Q "Arrays not the same length:" 60Q "Array not 1-Dimensional:" 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") UFQuickPairSortYNotFloat1 D1 (P 1 J P 0 I I 3 U I 2 L I 1 Y I 0 X) ACBl 6@ABC BkC@BddCHkظ@HddJIkٹ@IddJHI[@Hddѻ@Hd@Idd@IdKAH AI AH LAI p@Bddѽ@Bd@Idd@IdMAB AI AB NAI IBCHk@ABIk @AHC@AHC @ABIk h(475Q UFQuickPairSortYNotFloat1 463Q UFQuickPairSortYNotFloat1 446Q UFQuickPairSortYNotFloat1 422Q \ASET.1 413Q \ASET.1 406Q \AREF.1 400Q \AREF.1 271Q \ASET.1 262Q \ASET.1 255Q \AREF.1 247Q \AREF.1 22Q UFQuickPairSortFenceYNotFloat) (361Q ARRAY 335Q ARRAY 323Q ARRAY 301Q ARRAY 230Q ARRAY 204Q ARRAY 172Q ARRAY 150Q ARRAY 115Q ARRAY 62Q ARRAY 32Q ARRAY) () UFQuickSort D1 (I 2 U I 1 L I 0 X) h@ go@ @ k o@ AjbB@ kbABoAB jAB@ koAB @AB @AB (145Q UFInsertionSort1 137Q UFQuickSort1 130Q ERROR 113Q ARRAY-TOTAL-SIZE 101Q ERROR 57Q ARRAY-TOTAL-SIZE 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (6 SINGLE-FLOAT) ( 123Q "Bounds exceed Array limits:" 74Q "Bounds out of order:" 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") UFQuickSort1 D1 (P 1 J P 0 I I 2 U I 1 L I 0 X)  BAl @AB AkB@Add#Hkظ@HddJIkٹ@IddJHIB@Hddѻ@Hd@Idd@IdK@AddѼ@Ad@Idd@IdLIABHk@AIk @HB@HB @AIk h(407Q UFQuickSort1 376Q UFQuickSort1 363Q UFQuickSort1 21Q UFQuickSortFence) (327Q ARRAY 303Q ARRAY 271Q ARRAY 247Q ARRAY 227Q ARRAY 203Q ARRAY 171Q ARRAY 147Q ARRAY 114Q ARRAY 61Q ARRAY 31Q ARRAY) () UFQuickSortFence D1 (L (2 U 1 L 0 X)) xABlAkB@HddѺ@Hd@Idd@IdJ@Idd@Bdd@@Iddѻ@Id@Bdd@BdK@Add@Bdd@@AddѼ@Ad@Bdd@BdL@Idd@Add@@Iddѽ@Id@Add@AdMhNIL (553Q ARRAY 527Q ARRAY 515Q ARRAY 473Q ARRAY 446Q ARRAY 425Q ARRAY 407Q ARRAY 363Q ARRAY 351Q ARRAY 327Q ARRAY 302Q ARRAY 261Q ARRAY 243Q ARRAY 217Q ARRAY 205Q ARRAY 163Q ARRAY 136Q ARRAY 115Q ARRAY 77Q ARRAY 53Q ARRAY 41Q ARRAY 17Q ARRAY) () UFQuickSortSwap D1 (L (2 J 1 I 0 X)) H@Add@Ad@Bdd@BdHHNIL (64Q ARRAY 41Q ARRAY 27Q ARRAY 3 ARRAY) () UFSelectKth D1 (I 1 K I 0 X) h@ go@ @ k o@ AjbjAd@ koA Aj @ A@ k @ @Aj@ k (145Q UFSelectKth1 140Q ARRAY-TOTAL-SIZE 130Q UFSelectMax 123Q EQP 116Q ARRAY-TOTAL-SIZE 110Q UFSelectMin 103Q EQP 75Q ERROR 61Q ARRAY-TOTAL-SIZE 42Q ERROR 31Q EQP 25Q ARRAY-RANK 20Q ERROR 3 ARRAY-ELEMENT-TYPE) (6 SINGLE-FLOAT) ( 71Q "Select: K outside array limits." 36Q "Array not 1-Dimensional:" 14Q "Array not FLOATP:") UFSelectKth1 D1 (P 1 J P 0 I I 3 U I 2 L I 1 K I 0 X) BCkCB@BC hd@BddHkXC@Hdd[MIkٹ@Idd\MHI @IdK@HdL@BddѺ@Bd@Idd@IdJAIIkbBIA/IkbCkع"@Add(23Q UFQuickSortFence) (353Q ARRAY 275Q ARRAY 251Q ARRAY 237Q ARRAY 215Q ARRAY 174Q ARRAY 156Q ARRAY 122Q ARRAY 66Q ARRAY 32Q ARRAY) () UFSelectMax D1 (I 0 X) ?@ kk@dIH @IdddJZIkYJ(3 ARRAY-TOTAL-SIZE) (37Q ARRAY 12Q ARRAY) () UFSelectMedian D1 (P 1 Ranks P 0 N I 0 X) @ Hkj@HkljHk oHlkIj HlIk @IjHkjk @HlkHlkd@HlHldn?jd(102Q UFPartialSort1 66Q \ASET.1 55Q \ASET.1 32Q UFSelectKth1 3 ARRAY-TOTAL-SIZE) (141Q ARRAY 106Q ARRAY) ( 37Q (MAKE-ARRAY 2 (QUOTE :ELEMENT-TYPE) (QUOTE FIXNUM))) UFSelectMin D1 (I 0 X) @@ kk@dIH!@IdddJZIkYJ(3 ARRAY-TOTAL-SIZE) (37Q ARRAY 12Q ARRAY) () (PRETTYCOMPRINT DINDESORTCOMS) (RPAQQ DINDESORTCOMS ((FNS InsertionPairSort1 InsertionSort InsertionSort1 PartialSort PartialSort1 QuickPairSort QuickPairSort1 QuickPairSortFence QuickSort QuickSort1 QuickSortFence QuickSortSwap SelectKth SelectKth1 SelectMax SelectMedian SelectMin UFInsertionPairSort UFInsertionPairSort1 UFInsertionPairSortYNotFloat1 UFInsertionSort UFInsertionSort1 UFPartialSort UFPartialSort1 UFQuickPairSort UFQuickPairSort1 UFQuickPairSortFence UFQuickPairSortFenceYNotFloat UFQuickPairSortYNotFloat UFQuickPairSortYNotFloat1 UFQuickSort UFQuickSort1 UFQuickSortFence UFQuickSortSwap UFSelectKth UFSelectKth1 UFSelectMax UFSelectMedian UFSelectMin) (MACROS QuickSortSwap UFQuickSortSwap))) (PUTPROPS QuickSortSwap MACRO (OPENLAMBDA (X I J) (LET ((TT (AREF X I))) (ASET (AREF X J) X I) (ASET TT X J)))) (PUTPROPS UFQuickSortSwap DMACRO ((X I J) (LET ((TT (\FLOATAREF X I))) (DECLARE (TYPE FLOATP TT)) ( \FLOATASET (\FLOATAREF X J) X I) (\FLOATASET TT X J)))) (PUTPROPS DINDESORT COPYRIGHT ("Massachusetts Institute of Technology" 1985 1986)) NIL