(FILECREATED "20-Mar-86 14:27:25" ("compiled on " {QV}LISP>ARRAYSORTER.;2) "12-Nov-85 14:59:23" recompiled changes: ARRAYSORT GENERIC.INDEXINSERTIONSORT GENERIC.INDEXQSFENCE GENERIC.INDEXQUICKSORT GENERIC.INSERTIONSORT GENERIC.QSFENCE GENERIC.QUICKSORT INDEXARRAYSORT in "INTERLISP-D 7-Feb-86 ..." dated " 7-Feb-86 11:43:05") (FILECREATED "20-Mar-86 14:26:34" {QV}LISP>ARRAYSORTER.;2 11593 changes to: (MACROS FLOAT.INDEXSWAPELTS FLOATINDEXAREF GENERIC.SWAPELTS INDEXAREF GENERIC.INDEXSWAPELTS FLOAT.SWAPELTS) ( VARS ARRAYSORTERCOMS) (FNS FLOAT.INDEXQSFENCE FLOAT.INDEXINSERTIONSORT FLOAT.INDEXQUICKSORT INDEXFLOATQUICKSORT GENERIC.QSFENCE GENERIC.QUICKSORT GENERIC.INSERTIONSORT ARRAYSORT FLOATARRAYSORT INDEXARRAYSORT GENERIC.INDEXQSFENCE GENERIC.INDEXQUICKSORT GENERIC.INDEXINSERTIONSORT ARRAYQUICKSORT INDEXQUICKSORT FLOAT.QSFENCE FLOAT.INSERTIONSORT FLOAT.QUICKSORT FLOATARRAYQUICKSORT) previous date: "18-Mar-86 23:17:31" {QV}LISP>ARRAYSORTER.;1) ARRAYSORT D1 (P 1 UPPER P 0 LOWER I 1 COMPAREFN I 0 ARRAY) :@`@ k:o@ Agbj@ k@AHI @AHI @(66Q GENERIC.INSERTIONSORT 57Q GENERIC.QUICKSORT 43Q ARRAY-TOTAL-SIZE 25Q HELP 12Q ARRAY-RANK) (33Q LESSP 4 ARRAYTYPE#) ( 21Q "Not 1-Dimensional array") GENERIC.INDEXINSERTIONSORT D1 (P 10Q TEMP P 7 J P 6 OBJECT P 3 ITHELT P 2 ITHINDEX P 1 I I 4 UPPER I 3 LOWER I 2 COMPAREFN I 1 INDICES I 0 ARRAY) F DCkBIH8AN`NoN A A I@J IOC@AN`NoN A A Ok_ KlBgjA A O,A A OAN`NoN \LAg AA A A A OOOk_bjA A O,A A OAN`NoN ]MAg AA A A A OJIkY@(437Q ERROR 415Q ERROR 272Q ERROR 250Q ERROR 163Q AREF 133Q ERROR 70Q AREF 42Q ERROR) (434Q PASET 401Q ARRAYTYPE# 267Q PASET 234Q ARRAYTYPE# 117Q ARRAYTYPE# 26Q ARRAYTYPE#) ( 411Q "Not an array" 244Q "Not an array" 127Q "Not an array" 36Q "Not an array") GENERIC.INDEXQSFENCE D1 (P 17Q OBJECT P 2 TEMP P 1 LPLUS1 P 0 MIDLU I 4 UPPER I 3 LOWER I 2 COMPAREFN I 1 INDICES I 0 ARRAY) eCDlCkAO`OoO A A HAO`OoO A A IjA A H.A A HAO`OoO [KAg AA A A A HLjA A I.A A IAO`OoO ]MAg AA A A A IJ@AO`OoO A A I @AO`OoO A A D lBAO`OoO A A IAO`OoO A A D_jA A I.A A IAO`OoO ^NAg AA A A A IOjA A D0A A DAO`OoO _OAg AA A A A DJ@AO`OoO A A C @AO`OoO A A D lBAO`OoO A A CAO`OoO A A D_jA A C0A A CAO`OoO _OAg AA A A A COjA A D0A A DAO`OoO _OAg AA A A A DJ@AO`OoO A A I @AO`OoO A A C lBAO`OoO A A IZAO`OoO A A C_jA A I0A A IAO`OoO _OAg AA A A A IOjA A C0A A CAO`OoO _OAg AA A A A CJJh(2505Q ERROR 2461Q ERROR 2347Q ERROR 2323Q ERROR 2222Q ERROR 2151Q ERROR 2110Q AREF 2065Q ERROR 2034Q AREF 2011Q ERROR 1725Q ERROR 1701Q ERROR 1567Q ERROR 1543Q ERROR 1442Q ERROR 1371Q ERROR 1330Q AREF 1305Q ERROR 1254Q AREF 1231Q ERROR 1145Q ERROR 1121Q ERROR 1007Q ERROR 765Q ERROR 664Q ERROR 613Q ERROR 552Q AREF 527Q ERROR 476Q AREF 453Q ERROR 370Q ERROR 346Q ERROR 235Q ERROR 213Q ERROR 114Q ERROR 43Q ERROR) (2502Q PASET 2443Q ARRAYTYPE# 2344Q PASET 2305Q ARRAYTYPE# 2204Q ARRAYTYPE# 2133Q ARRAYTYPE# 2047Q ARRAYTYPE# 1773Q ARRAYTYPE# 1722Q PASET 1663Q ARRAYTYPE# 1564Q PASET 1525Q ARRAYTYPE# 1424Q ARRAYTYPE# 1353Q ARRAYTYPE# 1267Q ARRAYTYPE# 1213Q ARRAYTYPE# 1142Q PASET 1103Q ARRAYTYPE# 1004Q PASET 747Q ARRAYTYPE# 646Q ARRAYTYPE# 575Q ARRAYTYPE# 511Q ARRAYTYPE# 435Q ARRAYTYPE# 365Q PASET 330Q ARRAYTYPE# 232Q PASET 175Q ARRAYTYPE# 76Q ARRAYTYPE# 25Q ARRAYTYPE#) ( 2454Q "Not an array" 2316Q "Not an array" 2215Q "Not an array" 2144Q "Not an array" 2060Q "Not an array" 2004Q "Not an array" 1674Q "Not an array" 1536Q "Not an array" 1435Q "Not an array" 1364Q "Not an array" 1300Q "Not an array" 1224Q "Not an array" 1114Q "Not an array" 760Q "Not an array" 657Q "Not an array" 606Q "Not an array" 522Q "Not an array" 446Q "Not an array" 341Q "Not an array" 206Q "Not an array" 107Q "Not an array" 36Q "Not an array") GENERIC.INDEXQUICKSORT D1 (P 5 TEMP P 4 FINISHED P 3 XL P 2 J P 1 I P 0 OBJECT I 4 UPPER I 3 LOWER I 2 COMPAREFN I 1 INDICES I 0 ARRAY)  DCl @ABCD CkD@AH`HoH A A C  LyIkع@AH`HoH A A I KlBJkٺ@AH`HoH A A J KlBIJi\AH`HoH A A IAH`HoH A A J_jA A I+A A IAH`HoH ^NAg AA A A A IOjA A J-A A JAH`HoH _OAg AA A A A JMAH`HoH A A CAH`HoH A A J_jA A C-A A CAH`HoH _OAg AA A A A COjA A J-A A JAH`HoH _OAg AA A A A JMJCDIk@ABCJk @ABID@ABID @ABCJk h(1365Q GENERIC.INDEXQUICKSORT 1351Q GENERIC.INDEXQUICKSORT 1330Q GENERIC.INDEXQUICKSORT 1247Q ERROR 1223Q ERROR 1114Q ERROR 1070Q ERROR 772Q ERROR 724Q ERROR 641Q ERROR 615Q ERROR 506Q ERROR 464Q ERROR 366Q ERROR 320Q ERROR 253Q AREF 230Q ERROR 166Q AREF 143Q ERROR 101Q AREF 56Q ERROR 24Q GENERIC.INDEXQSFENCE) (1244Q PASET 1207Q ARRAYTYPE# 1111Q PASET 1054Q ARRAYTYPE# 756Q ARRAYTYPE# 710Q ARRAYTYPE# 636Q PASET 601Q ARRAYTYPE# 503Q PASET 450Q ARRAYTYPE# 352Q ARRAYTYPE# 304Q ARRAYTYPE# 214Q ARRAYTYPE# 127Q ARRAYTYPE# 42Q ARRAYTYPE#) ( 1217Q "Not an array" 1064Q "Not an array" 766Q "Not an array" 720Q "Not an array" 611Q "Not an array" 460Q "Not an array" 362Q "Not an array" 314Q "Not an array" 224Q "Not an array" 137Q "Not an array" 52Q "Not an array") GENERIC.INSERTIONSORT D1 (P 4 TEMP P 3 J P 2 ITH P 1 I I 3 UPPER I 2 LOWER I 1 COMPAREFN I 0 ARRAY) FCBkIH9@I IKB@Kk \JlAL@K Kk[J@K IkY@(73Q ASET 56Q ASET 40Q AREF 20Q AREF) NIL () GENERIC.QSFENCE D1 (P 2 TEMP P 1 LPLUS1 P 0 MIDLU I 3 UPPER I 2 LOWER I 1 COMPAREFN I 0 ARRAY) BClBk@H @I @H J@I @I @C lA@I @C @I J@C @B @C lA@B @C @B J@C @I @B lA@I Z@B @I J@B h(233Q ASET 225Q ASET 220Q AREF 212Q AREF 176Q AREF 171Q AREF 163Q ASET 154Q ASET 147Q AREF 141Q AREF 125Q AREF 120Q AREF 112Q ASET 103Q ASET 76Q AREF 70Q AREF 54Q AREF 47Q AREF 42Q ASET 33Q ASET 26Q AREF 20Q AREF) NIL () GENERIC.QUICKSORT D1 (P 4 TEMP P 3 FINISHED P 2 XL P 1 J P 0 I I 3 UPPER I 2 LOWER I 1 COMPAREFN I 0 ARRAY) CBl @ABC BkC@B #KFHkظ@H JlAIkٹ@I JlAHIi[@H @I @H L@I @B @I @B L@I IBCHk@ABIk @AHC@AHC @ABIk h(247Q GENERIC.QUICKSORT 235Q GENERIC.QUICKSORT 220Q GENERIC.QUICKSORT 174Q ASET 165Q ASET 160Q AREF 152Q AREF 142Q ASET 133Q ASET 126Q AREF 120Q AREF 73Q AREF 52Q AREF 33Q AREF 22Q GENERIC.QSFENCE) NIL () INDEXARRAYSORT D1 (P 5 UPPER P 4 LOWER P 3 OBJECT P 1 I I 2 COMPAREFN I 1 INDICES I 0 ARRAY) @`@ k:o@ A @ b,`A k:A @ :A ioA A kjIH`jA A I+A A IAK`KoK ZJAg AA A A A IIIkYBgbj@ k@ABLM @ABLM A(337Q GENERIC.INDEXINSERTIONSORT 326Q GENERIC.INDEXQUICKSORT 310Q ARRAY-TOTAL-SIZE 231Q ERROR 207Q ERROR 121Q ARRAY-TOTAL-SIZE 114Q HELP 101Q ARRAY-ELEMENT-TYPE 73Q ARRAY-TOTAL-SIZE 67Q ARRAY-TOTAL-SIZE 57Q ARRAY-RANK 40Q MAKE-ARRAY 35Q ARRAY-TOTAL-SIZE 25Q HELP 12Q ARRAY-RANK) (300Q LESSP 226Q PASET 173Q ARRAYTYPE# 50Q ARRAYTYPE# 4 ARRAYTYPE#) ( 203Q "Not an array" 110Q "Illegal Index array" 21Q "Not 1-Dimensional array") (PRETTYCOMPRINT ARRAYSORTERCOMS) (RPAQQ ARRAYSORTERCOMS ((FNS ARRAYSORT GENERIC.INDEXINSERTIONSORT GENERIC.INDEXQSFENCE GENERIC.INDEXQUICKSORT GENERIC.INSERTIONSORT GENERIC.QSFENCE GENERIC.QUICKSORT INDEXARRAYSORT) (MACROS GENERIC.INDEXSWAPELTS GENERIC.SWAPELTS INDEXAREF))) (DEFMACRO GENERIC.INDEXSWAPELTS (INDICES I J &OPTIONAL (TEMP NIL BTEMP)) (* *) (if BTEMP then (BQUOTE (PROGN (SETQ , TEMP (PAREF , INDICES , I)) (PASET (PAREF , INDICES , J) , INDICES , I) (PASET , TEMP , INDICES , J))) else (BQUOTE (LET ((TEMP (PAREF , INDICES , I))) (PASET (PAREF , INDICES , J) , INDICES , I) (PASET TEMP , INDICES , J))))) (DEFMACRO GENERIC.SWAPELTS (ARRAY I J &OPTIONAL (TEMP NIL BTEMP)) (* *) (if BTEMP then (BQUOTE (PROGN (SETQ , TEMP (AREF , ARRAY , I)) (ASET (AREF , ARRAY , J) , ARRAY , I) (ASET , TEMP , ARRAY , J))) else (BQUOTE (LET ((TEMP (AREF , ARRAY , I))) (ASET (AREF , ARRAY , J) , ARRAY , I) (ASET TEMP , ARRAY , J))))) (DEFMACRO INDEXAREF (ARRAY INDICES INDEX) (BQUOTE (AREF (\, ARRAY) (PAREF (\, INDICES) (\, INDEX))))) (PUTPROPS ARRAYSORTER COPYRIGHT ("Xerox Corporation" 1986)) NIL