(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "XCL" §BASE 10) (FILECREATED "16-Nov-86 15:32:25" ("compiled on " {QV}LISP>VECTOR-SORTER.\;7) "12-Nov-86 10:23:13" "COMPILE-FILEd" |in| "Xerox Lisp 12-Nov-86 ..." |dated| "12-Nov-86 10:58:24") (FILECREATED "16-Nov-86 15:31:36" {QV}LISP>VECTOR-SORTER.\;7 14513 |changes| |to:| ( FUNCTIONS INDEX-VECTOR-SORT VECTOR-KTH-INDEX) |previous| |date:| " 9-Nov-86 18:34:29" {QV}LISP>VECTOR-SORTER.\;6) (RPAQQ VECTOR-SORTERCOMS ((FUNCTIONS GENERIC-INDEX-INSERTION-SORT GENERIC-INDEX-QSFENCE GENERIC-INDEX-QUICKSORT GENERIC-INSERTION-SORT GENERIC-QSFENCE GENERIC-QUICKSORT INDEX-VECTOR-SORT QUICK-STEP VECTOR-KTH-ELEMENT VECTOR-KTH-INDEX VECTOR-SORT) (PROP FILETYPE VECTOR-SORTER) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)))) GENERIC-INDEX-INSERTION-SORT D1 (L (4 UPPER 3 LOWER 2 COMPAREFN 1 INDICES 0 VECTOR)) L CkÔHD:‘AAH¶¹@I¶ºH_C:¯J@AOkÕ¶_¶lB¯A¼O»ILK·¿HkÔX°ÏA¾O½ONM·¿OkÕ°ÌNIL NIL () GENERIC-INDEX-QSFENCE D1 (L (4 UPPER 3 LOWER 2 COMPAREFN 1 INDICES 0 VECTOR)) íDCÕkó´‚±ãDkÕCDÔmÿ CkÔóPA_¿I¾ON¶½A¼J»LK¶ON·¿MLK·¿@AH¶¶@AJ¶¶lB²-A_¿J_¿OO¶_¿A_¿H_¿OO¶OO·¿OOO·¿@AH¶¶@AC¶¶lB²-A_"¿C_ ¿O"O ¶_¿A_¿H_¿OO¶O"O ·¿OOO·¿@AC¶¶@AJ¶¶lB´,A_$¿J_&¿O$O&¶_(¿A_*¿C_,¿O*O,¶O$O&·O(O*O,·h(21 CL:ASH) NIL () GENERIC-INDEX-QUICKSORT D1 (L (4 UPPER 3 LOWER 2 COMPAREFN 1 INDICES 0 VECTOR)) ¾ DCÕl ó´‚±³@ABCD CkÔDkÕ@AC¶¶£HkÔ¸@AH¶¶JlB³òIkÕ¹J@AI¶¶lB³òIHó² @_¿H¾ON¶½@¼I»LK¶ON·¿MLK·¿°¿@_¿C_¿OO¶_¿@_¿I_¿OO¶OO·¿OOO·¿ICÕDHÕó²@ABCI Hb¿±ÿX@ABHD Ib¿±ÿG(179 GENERIC-INDEX-QUICKSORT 162 GENERIC-INDEX-QUICKSORT 20 GENERIC-INDEX-QSFENCE) NIL () GENERIC-INSERTION-SORT D1 (L (3 UPPER 2 LOWER 1 COMPAREFN 0 VECTOR)) ABkÔqHC:‘@@H¶¹H^B:¬I@NkÕ¶_lA®@»NºIKJ·¿HkÔX°Ø@½N¼OML·¿NkÕ°ÓNIL NIL () GENERIC-QSFENCE D1 (L (3 UPPER 2 LOWER 1 COMPAREFN 0 VECTOR)) àCBÕkó¢±×CkÕBCÔmÿ BkÔóP@_¿I¾ON¶½@¼J»LK¶ON·¿MLK·¿@H¶@J¶lA²-@_¿J_¿OO¶_¿@_¿H_¿OO¶OO·¿OOO·¿@H¶@B¶lA²-@_"¿B_ ¿O"O ¶_¿@_¿H_¿OO¶O"O ·¿OOO·¿@B¶@J¶lA²,@_,¿J_*¿O,O*¶_(¿@_&¿B_$¿O&O$¶O,O*·¿O(O&O$·@(19 CL:ASH) NIL () GENERIC-QUICKSORT D1 (L (3 UPPER 2 LOWER 1 COMPAREFN 0 VECTOR)) ± CBÕl ó´‚±¦@ABCBkÔCkÕ@B¶£HkÔ¸@H¶JlA³ôIkÕ¹J@I¶lA³ôIHó² @_¿H¾ON¶½@¼I»LK¶ON·¿MLK·¿°Ã@_¿B_¿OO¶_¿@_¿I_¿OO¶OO·¿OOO·¿IBÕCHÕóž@ABIHb¿±ÿc@AHCIb¿±ÿT(166 GENERIC-QUICKSORT 151 GENERIC-QUICKSORT 18 GENERIC-QSFENCE) NIL () INDEX-VECTOR-SORT D1 (L (0 |-args-|)) ™eka‘ lHñ–g ‚laºlHñ‘h‚la»Id ª¿oI ¿I ¼Kµ L [° –K Lð¨oK ¿Lj_¿_¿OOó²K¾O]NM·¿OkÔ_¿°éjL_¿_¿IKJOO IKJOO K(149 GENERIC-INDEX-INSERTION-SORT 138 GENERIC-INDEX-QUICKSORT 85 CL:ERROR 74 CL:LENGTH 69 CL:VECTORP 63 CL:MAKE-ARRAY 55 CL:LENGTH 50 CL:ERROR 40 CL:VECTORP 19 CL:SYMBOL-FUNCTION) (16 <) ( 81 "Illegal Index vector: ~s" 46 "Not a vector: ~S") |expand-QUICK-STEP| D1 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) å@AH¹HZ»J¼googggKhhgdoggggggKohohgogggggggKhhohgoggIogIohhohggIogIohL(128 CL:SUBST 76 CL:SUBST 39 CL:SUBST) (210 CL:AREF 200 CL:AREF 197 CL:ROTATEF 169 CL:AREF 159 CL:AREF 156 CL:ROTATEF 149 COND 124 INDEX 121 J 118 XL 115 COMPAREFN 112 CL:FUNCALL 109 NOT 106 CL:IF 99 CL:LOOP 72 INDEX 69 I 66 COMPAREFN 63 CL:FUNCALL 60 NOT 57 CL:IF 49 CL:LOOP 35 INDEX 32 LOWER 29 XL 18 LET) ( 215 (J) 205 (LOWER) 187 ((T (RETURN NIL))) 174 (J) 164 (I) 153 (> J I) 140 ((RETURN NIL)) 103 (CL:DECF J) 90 ((RETURN NIL)) 80 (XL) 54 (CL:INCF I) 26 (J (CL:1- UPPER)) 22 (I (CL:1+ LOWER))) (SETF-MACRO-FUNCTION (QUOTE QUICK-STEP) (QUOTE |expand-QUICK-STEP|)) VECTOR-KTH-ELEMENT D1 (L (0 |-args-|)) ekañlaºlHñ–g ‚la»Id ª¿oI ¿I ¼Jmÿó“LJó¨oJ ¿jL¾½l NMÕó›IKMN¿IJ¶IKMN¿MkÔNkÕIM¶O"kÔ_"¿IO"¶O&lK³ïO$kÕ_$¿O&IO$¶lK³ïO$O"ó²1I_¿O"_¿OO¶_¿I_¿O$_¿OO¶OO·¿OOO·¿°¦I_ ¿M_¿O O¶_¿I_¿O$_¿OO¶O O·¿OOO·¿JO$:“IJ¶O$dJó‘¾‚kÔ½±ÿ<(97 GENERIC-QSFENCE 85 GENERIC-INSERTION-SORT 66 CL:ERROR 48 CL:LENGTH 43 CL:ERROR 33 CL:VECTORP 23 CL:SYMBOL-FUNCTION) (20 <) ( 62 "K out of bounds: ~S" 39 "Not a vector: ~S") VECTOR-KTH-INDEX D1 (L (0 |-args-|)) |ekañPlaºlHñ–g ‚la»lHñ‘h‚la¼Id ª¿oI ¿I ½Jmÿó“MJó¨oJ ¿Lµ M \° –L Mð¨oL ¿Mj_¿_¿OOó²L_¿O^ON·¿OkÔ_¿°æjM_¿_¿l OOÕóŸILKOO ¿LJ¶ILKOO ¿OkÔOkÕILO¶¶O,kÔ_,¿ILO,¶¶O0lK³íO.kÕ_.¿O0ILO.¶¶lK³íO.O,ó²1I_ ¿O,_¿O O¶_¿I_¿O._¿OO¶O O·¿OOO·¿°¢I_*¿O_(¿O*O(¶_&¿I_$¿O._"¿O$O"¶O*O(·¿O&O$O"·¿JO.:“IJ¶O.dJó“_¿„kÔ_¿±ÿ$(191 GENERIC-INDEX-QSFENCE 175 GENERIC-INDEX-INSERTION-SORT 110 CL:ERROR 99 CL:LENGTH 94 CL:VECTORP 88 CL:MAKE-ARRAY 80 CL:ERROR 62 CL:LENGTH 57 CL:ERROR 47 CL:VECTORP 26 CL:SYMBOL-FUNCTION) (23 <) ( 106 "Illegal Index vector: ~s" 76 "K out of bounds: ~S" 53 "Not a vector: ~S") VECTOR-SORT D1 (L (0 |-args-|)) ?eka1lHñ–g ‚laºI ¨oI ¿jI ¼»IJKLIJKLI(59 GENERIC-INSERTION-SORT 52 GENERIC-QUICKSORT 43 CL:LENGTH 37 CL:ERROR 28 CL:VECTORP 19 CL:SYMBOL-FUNCTION) (16 <) ( 33 "Not a vector: ~S") (PUTPROPS VECTOR-SORTER FILETYPE CL:COMPILE-FILE) (PUTPROPS VECTOR-SORTER COPYRIGHT ("Xerox Corporation" 1986)) NIL