(FILECREATED "28-Jun-86 15:13:12" ("compiled on " {QV}LISP>FLOATARRAYSORTER.;7) "12-Nov-85 14:59:23" recompiled changes: FLOAT.DINDEXQUICKSORT FLOAT.DQUICKSORT FLOAT.AINDEXQUICKSORT FLOAT.AQUICKSORT in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "28-Jun-86 15:12:14" {QV}LISP>FLOATARRAYSORTER.;7 24758 changes to: (FNS FLOAT.AINDEXQUICKSORT FLOAT.DINDEXQUICKSORT FLOAT.AQUICKSORT FLOAT.DQUICKSORT) previous date: "23-Jun-86 11:54:52" {QV}LISP>FLOATARRAYSORTER.;6) FLOAT.DINDEXINSERTIONSORT D1 (I 3 UPPER I 2 LOWER I 1 INDICES I 0 FLOATARRAY) g@ !CBkhLKRAL HNddѽLYB,HAIk AIk ZdMJAI IkٰNAI Lk\A(134Q \ASET.1 120Q \ASET.1 73Q \AREF.1 64Q \AREF.1 30Q \AREF.1 3 ARRAYBASE) NIL () FLOAT.DINDEXQSFENCE D1 (I 3 UPPER I 2 LOWER I 1 INDICES I 0 FLOATARRAY) @ BClBkAI AJ AI KAJ HAJ AJ dHAC AC dAJ AC AJ KAC HAB AB dHAC AC dAB AC AB KAC HAJ AJ dHAB AB dAJ AB AJ KAB h(364Q \ASET.1 355Q \ASET.1 350Q \AREF.1 342Q \AREF.1 317Q \AREF.1 312Q \AREF.1 273Q \AREF.1 266Q \AREF.1 257Q \ASET.1 250Q \ASET.1 243Q \AREF.1 235Q \AREF.1 212Q \AREF.1 205Q \AREF.1 166Q \AREF.1 161Q \AREF.1 152Q \ASET.1 143Q \ASET.1 136Q \AREF.1 130Q \AREF.1 105Q \AREF.1 100Q \AREF.1 61Q \AREF.1 54Q \AREF.1 46Q \ASET.1 37Q \ASET.1 32Q \AREF.1 24Q \AREF.1 3 ARRAYBASE) NIL () FLOAT.DINDEXQUICKSORT D1 (L (3 UPPER 2 LOWER 1 INDICES 0 FLOATARRAY)) CBl @ABC @ !HAB ddBkCNXHAL ddKLkؼMkٽHAM ddKMLAL AM AL IAM i^AB AM AB JAM MBCLk@ABMk @ALC@ALC @ABMk h(313Q FLOAT.DINDEXQUICKSORT 301Q FLOAT.DINDEXQUICKSORT 264Q FLOAT.DINDEXQUICKSORT 240Q \ASET.1 231Q \ASET.1 224Q \AREF.1 216Q \AREF.1 202Q \ASET.1 173Q \ASET.1 166Q \AREF.1 160Q \AREF.1 127Q \AREF.1 71Q \AREF.1 37Q \AREF.1 26Q ARRAYBASE 22Q FLOAT.DINDEXQSFENCE) NIL () FLOAT.DINSERTIONSORT D1 (I 2 UPPER I 1 LOWER I 0 FLOATARRAY) _@ !BAkغJILHJddJhLA'HLkLkd]KHLdMLk\HLdKJkZ@(3 ARRAYBASE) NIL () FLOAT.DQSFENCE D1 (I 2 UPPER I 1 LOWER I 0 FLOATARRAY) @ ABlAkhHIddѻHIdHJddHJdKHJddHBdd,HJddѻHJdHBddHBdKHAddHBdd,HAddѻHAdHBddHBdKHJddHAdd,HJddѻHJdHAddHAdKh(3 ARRAYBASE) NIL () FLOAT.DQUICKSORT D1 (L (2 UPPER 1 LOWER 0 FLOATARRAY)) BAl @AB @ AkBHAddhdOMHJdd]LJkغKkٻHKdd^LKJHJdNHKdMi_HAddѹHAdHKddHKdIKABJk@AKk @JB@JB @AKk h(314Q FLOAT.DQUICKSORT 303Q FLOAT.DQUICKSORT 270Q FLOAT.DQUICKSORT 25Q ARRAYBASE 21Q FLOAT.DQSFENCE) NIL () FLOAT.AINDEXINSERTIONSORT D1 (L (3 UPPER 2 LOWER 1 INDICES 0 FLOATARRAY)) `@ !CBkhLKKAL HNddѽLYB%HAIk ZddMJAI IkٰNAI Lk\A(125Q \ASET.1 111Q \ASET.1 64Q \AREF.1 30Q \AREF.1 3 ARRAYBASE) NIL () FLOAT.AINDEXQSFENCE D1 (I 3 UPPER I 2 LOWER I 1 INDICES I 0 FLOATARRAY) @ BClBkAI AJ AI KAJ HAJ AJ dHAC AC dAJ AC AJ KAC HAB AB dHAC AC dAB AC AB KAC HAJ AJ dHAB AB dAJ AB AJ KAB h(361Q \ASET.1 352Q \ASET.1 345Q \AREF.1 337Q \AREF.1 315Q \AREF.1 310Q \AREF.1 271Q \AREF.1 264Q \AREF.1 255Q \ASET.1 246Q \ASET.1 241Q \AREF.1 233Q \AREF.1 211Q \AREF.1 204Q \AREF.1 165Q \AREF.1 160Q \AREF.1 151Q \ASET.1 142Q \ASET.1 135Q \AREF.1 127Q \AREF.1 105Q \AREF.1 100Q \AREF.1 61Q \AREF.1 54Q \AREF.1 46Q \ASET.1 37Q \ASET.1 32Q \AREF.1 24Q \AREF.1 3 ARRAYBASE) NIL () FLOAT.AINDEXQUICKSORT D1 (L (3 UPPER 2 LOWER 1 INDICES 0 FLOATARRAY)) CBl @ABC @ !HAB ddBkCNZHAL ddKLkؼMkٽHAM ddKMLAL AM AL IAM i^AB AM AB JAM MBCLk@ABMk @ALC@ALC @ABMk h(315Q FLOAT.AINDEXQUICKSORT 303Q FLOAT.AINDEXQUICKSORT 266Q FLOAT.AINDEXQUICKSORT 242Q \ASET.1 233Q \ASET.1 226Q \AREF.1 220Q \AREF.1 204Q \ASET.1 175Q \ASET.1 170Q \AREF.1 162Q \AREF.1 130Q \AREF.1 71Q \AREF.1 37Q \AREF.1 26Q ARRAYBASE 22Q FLOAT.AINDEXQSFENCE) NIL () FLOAT.AINSERTIONSORT D1 (L (2 UPPER 1 LOWER 0 FLOATARRAY)) \@ !BAkغJIIHJddJhLA$HLkdd]KHLdMLk\HLdKJkZ@(3 ARRAYBASE) NIL () FLOAT.AQSFENCE D1 (L (2 UPPER 1 LOWER 0 FLOATARRAY)) @ ABlAkhHIddѻHIdHJddHJdKHJddHBdd,HJddѻHJdHBddHBdKHAddHBdd,HAddѻHAdHBddHBdKHJddHAdd,HJddѻHJdHAddHAdKh(3 ARRAYBASE) NIL () FLOAT.AQUICKSORT D1 (L (2 UPPER 1 LOWER 0 FLOATARRAY)) BAl @AB @ AkBHAddhdOOHJdd]LJkغKkٻHKdd^LKJHJdNHKdMi_HAddѹHAdHKddHKdIKABJk@AKk @JB@JB @AKk h(316Q FLOAT.AQUICKSORT 305Q FLOAT.AQUICKSORT 272Q FLOAT.AQUICKSORT 25Q ARRAYBASE 21Q FLOAT.AQSFENCE) NIL () FLOAT-ARRAY-KTH-ELT D1 (L (1 K 0 FLOATVECTOR)) " @ k@ go@ AjbjAd@ koA j@ k@ HkIIH@HI hdKHdd O^ILKLdd^OLkؼMkٽMdHKMdd_OMLKMdNKLdOi_KHddѺKHdKMddKMdJAMMkٹHkؼMAFMkXkؼI];KAdd(125Q FLOAT.AQSFENCE 101Q ARRAYBASE 70Q ARRAY-TOTAL-SIZE 62Q ERROR 46Q ARRAY-TOTAL-SIZE 27Q ERROR 12Q ARRAY-ELEMENT-TYPE 3 ARRAY-RANK) (15Q SINGLE-FLOAT) ( 56Q "K out of bounds" 23Q "Array not 1-Dimensional float vector:") FLOAT-ARRAY-KTH-INDEX D1 (L (2 INDICES 1 K 0 FLOATVECTOR)) h @ k@ go@ AjbjAd@ koA B @ b kB @ oB B kjIdH#j@ kB@ HkIIHBA BI IkY@BHI NHddh[LtIO'NBO ddKOk_Ok_OdHNBO ddKOOBO BO BO JBO i\BH BO BH MBO AOOkٹHk_OA-OkXk_I_(475Q \ASET.1 465Q \ASET.1 460Q \AREF.1 451Q \AREF.1 436Q \ASET.1 426Q \ASET.1 420Q \AREF.1 411Q \AREF.1 354Q \AREF.1 277Q \AREF.1 236Q FLOAT.AINDEXQSFENCE 220Q \ASET.1 212Q \AREF.1 171Q ARRAYBASE 160Q ARRAY-TOTAL-SIZE 136Q ARRAY-TOTAL-SIZE 131Q HELP 117Q ARRAY-TOTAL-SIZE 113Q ARRAY-TOTAL-SIZE 104Q ARRAY-RANK 75Q MAKE-ARRAY 72Q ARRAY-TOTAL-SIZE 62Q ERROR 46Q ARRAY-TOTAL-SIZE 27Q ERROR 12Q ARRAY-ELEMENT-TYPE 3 ARRAY-RANK) (15Q SINGLE-FLOAT) ( 125Q "Illegal Index array" 56Q "K out of bounds" 23Q "Array not 1-Dimensional float vector:") FLOAT-ARRAY-SORT D1 (L (1 DESCENDINGFLG 0 FLOATARRAY)) H@ @ k@ go@ j@ kA@HI @HI @HI @HI @(104Q FLOAT.AINSERTIONSORT 75Q FLOAT.AQUICKSORT 66Q FLOAT.DINSERTIONSORT 57Q FLOAT.DQUICKSORT 42Q ARRAY-TOTAL-SIZE 34Q HELP 17Q ARRAY-ELEMENT-TYPE 10Q ARRAY-RANK 3 CL:ARRAYP) (22Q SINGLE-FLOAT) ( 30Q "Not 1-Dimensional float array") INDEX-FLOAT-ARRAY-SORT D1 (P 3 UPPER P 2 LOWER I 2 DESCENDINGFLG I 1 INDICES I 0 FLOATARRAY) @ @ k@ go@ A @ b" A kA @ oA A kjIdH!j@ kB@AJK @AJK AI IkY@AJK @AJK A(224Q FLOAT.AINDEXINSERTIONSORT 214Q FLOAT.AINDEXQUICKSORT 176Q \ASET.1 167Q FLOAT.DINDEXINSERTIONSORT 157Q FLOAT.DINDEXQUICKSORT 140Q ARRAY-TOTAL-SIZE 116Q ARRAY-TOTAL-SIZE 111Q HELP 77Q ARRAY-TOTAL-SIZE 73Q ARRAY-TOTAL-SIZE 64Q ARRAY-RANK 56Q CL:ARRAYP 47Q MAKE-ARRAY 44Q ARRAY-TOTAL-SIZE 34Q HELP 17Q ARRAY-ELEMENT-TYPE 10Q ARRAY-RANK 3 CL:ARRAYP) (22Q SINGLE-FLOAT) ( 105Q "Illegal Index array" 30Q "Not 1-Dimensional float array") (PRETTYCOMPRINT FLOATARRAYSORTERCOMS) (RPAQQ FLOATARRAYSORTERCOMS ((FNS FLOAT.DINDEXINSERTIONSORT FLOAT.DINDEXQSFENCE FLOAT.DINDEXQUICKSORT FLOAT.DINSERTIONSORT FLOAT.DQSFENCE FLOAT.DQUICKSORT FLOAT.AINDEXINSERTIONSORT FLOAT.AINDEXQSFENCE FLOAT.AINDEXQUICKSORT FLOAT.AINSERTIONSORT FLOAT.AQSFENCE FLOAT.AQUICKSORT FLOAT-ARRAY-KTH-ELT FLOAT-ARRAY-KTH-INDEX FLOAT-ARRAY-SORT INDEX-FLOAT-ARRAY-SORT) (MACROS FLOAT.INDEXSWAPELTS FLOAT.SWAPELTS FLOATINDEXAREF) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)))) (DEFMACRO FLOAT.INDEXSWAPELTS (INDICES I J &OPTIONAL TEMP) (* *) (if TEMP then (BQUOTE (PROGN (SETQ , TEMP (AREF , INDICES , I)) (ASET (AREF , INDICES , J) , INDICES , I) (ASET , TEMP , INDICES , J))) else (BQUOTE (LET ((TEMP (AREF , INDICES , I))) (ASET (AREF , INDICES , J) , INDICES , I) (ASET TEMP , INDICES , J))))) (DEFMACRO FLOAT.SWAPELTS (FLOATARRAYBASE I J &OPTIONAL TEMPI) (* *) (if TEMPI then (BQUOTE (PROGN ( SETQ , TEMPI (\GETBASEFLOATP , FLOATARRAYBASE (MUL2 , I))) (\PUTBASEFLOATP , FLOATARRAYBASE (MUL2 , I) (\GETBASEFLOATP , FLOATARRAYBASE (MUL2 , J))) (\PUTBASEFLOATP , FLOATARRAYBASE (MUL2 , J) , TEMPI))) else (BQUOTE (LET ((TEMPI (\GETBASEFLOATP , FLOATARRAYBASE (MUL2 , I)))) (DECLARE (TYPE FLOATP TEMPI)) (\PUTBASEFLOATP , FLOATARRAYBASE (MUL2 , I) (\GETBASEFLOATP , FLOATARRAYBASE (MUL2 , J))) ( \PUTBASEFLOATP , FLOATARRAYBASE (MUL2 , J) TEMPI))))) (DEFMACRO FLOATINDEXAREF (FLOATARRAYBASE INDICES INDEX) (BQUOTE (\GETBASEFLOATP , FLOATARRAYBASE (MUL2 (AREF , INDICES , INDEX))))) (PUTPROPS FLOATARRAYSORTER COPYRIGHT ("Xerox Corporation" 1986)) NIL