$ od -c -N 50000 [qv]<IDL>koto>VECTOR-SORTER.DCOM!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r ( F I L E C R E A T E D "
0000120 1 6 - N o v - 8 6 1 5 : 3 2 :
0000140 2 5 " ( " c o m p i l e d o
0000160 n " { Q V } < P E D E R S E
0000200 N > L I S P > V E C T O R - S O
0000220 R T E R . \ ; 7 ) \r " 1 2 - N
0000240 o v - 8 6 1 0 : 2 3 : 1 3 "
0000260 " C O M P I L E - F I L E d "
0000300 | i n | " X e r o x L i s p
0000320 1 2 - N o v - 8 6 . . . "
0000340 | d a t e d | " 1 2 - N o v -
0000360 8 6 1 0 : 5 8 : 2 4 " ) \r ( F
0000400 I L E C R E A T E D " 1 6 - N
0000420 o v - 8 6 1 5 : 3 1 : 3 6 "
0000440 { Q V } < P E D E R S E N > L I
0000460 S P > V E C T O R - S O R T E R
0000500 . \ ; 7 1 4 5 1 3 | c h a n
0000520 g e s | | t o : | ( \r F U N
0000540 C T I O N S I N D E X - V E C
0000560 T O R - S O R T V E C T O R -
0000600 K T H - I N D E X ) | p r e v
0000620 i o u s | | d a t e : | "
0000640 9 - N o v - 8 6 1 8 : 3 4 : 2
0000660 9 " \r { Q V } < P E D E R S E
0000700 N > L I S P > V E C T O R - S O
0000720 R T E R . \ ; 6 ) \r ( R P A Q Q
0000740 V E C T O R - S O R T E R C O
0000760 M S ( ( F U N C T I O N S G
0001000 E N E R I C - I N D E X - I N S
0001020 E R T I O N - S O R T G E N E
0001040 R I C - I N D E X - Q S F E N C
0001060 E \r G E N E R I C - I N D E X
0001100 - Q U I C K S O R T G E N E R
0001120 I C - I N S E R T I O N - S O R
0001140 T G E N E R I C - Q S F E N C
0001160 E G E N E R I C - Q U I C K S
0001200 O R T I N D E X - V E C T O R
0001220 - S O R T \r Q U I C K - S T E
0001240 P V E C T O R - K T H - E L E
0001260 M E N T V E C T O R - K T H -
0001300 I N D E X V E C T O R - S O R
0001320 T ) ( P R O P F I L E T Y P
0001340 E V E C T O R - S O R T E R )
0001360 ( D E C L A R E \ : \r D O N
0001400 T E V A L @ L O A D D O E V A
0001420 L @ C O M P I L E D O N T C O
0001440 P Y ( L O C A L V A R S .
0001460 T ) ) ) ) \r G E N E R I C - I N
0001500 D E X - I N S E R T I O N - S O
0001520 R T D 1 \r ( L ( 4 U P P E
0001540 R 3 L O W E R 2 C O M P
0001560 A R E F N 1 I N D I C E S
0001600 0 V E C T O R ) ) \0 L \t \0 \0
0001620 005 C k 324 021 201 \b H D : 221 A 020 A H 266
0001640 271 @ I 266 272 H _ 016 C : 257 J @ A O 016
0001660 k 325 266 _ 020 266 l 002 B 016 257 A 274 O 016 273
0001700 I L K 267 277 H k 324 X 260 317 A 276 O 016 275
0001720 O 020 N M 267 277 O 016 k 325 260 314 \0 N I L
0001740 \r N I L \r ( ) \r G E N E R I C -
0001760 I N D E X - Q S F E N C E D 1
0002000 \r ( L ( 4 U P P E R 3 L
0002020 O W E R 2 C O M P A R E F N
0002040 1 I N D I C E S 0 V E C
0002060 T O R ) ) \0 355 027 \0 \0 005 D C 325 k
0002100 363 264 003 202 261 \0 343 D k 325 C D 324 m 377 \n
0002120 \0 \0 C k 324 021 363 021 021 P 026 A _ 016 277 I
0002140 276 O 016 N 266 275 A 274 J 273 L K 266 O 016 N
0002160 267 277 M L K 267 277 @ A H 266 266 @ A J 266
0002200 266 l 002 B 016 262 - A _ 030 277 J _ 026 277 O
0002220 030 O 026 266 _ 024 277 A _ 022 277 H _ 020 277 O
0002240 022 O 020 266 O 030 O 026 267 277 O 024 O 022 O 020
0002260 267 277 @ A H 266 266 @ A C 266 266 l 002 B 016
0002300 262 - A _ " 277 C _ 277 O " O 266 _
0002320 036 277 A _ 034 277 H _ 032 277 O 034 O 032 266 O
0002340 " O 267 277 O 036 O 034 O 032 267 277 @ A C
0002360 266 266 @ A J 266 266 l 002 B 016 264 , A _ $
0002400 277 J _ & 277 O $ O & 266 _ ( 277 A _ *
0002420 277 C _ , 277 O * O , 266 O $ O & 267 O
0002440 ( O * O , 267 h 020 \0 ( 2 1 C L :
0002460 A S H ) \r N I L \r ( ) \r G E N E
0002500 R I C - I N D E X - Q U I C K S
0002520 O R T D 1 \r ( L ( 4 U P P
0002540 E R 3 L O W E R 2 C O M
0002560 P A R E F N 1 I N D I C E S
0002600 0 V E C T O R ) ) \0 276 \r \0
0002620 \0 005 D C 325 l \n 363 264 003 202 261 \0 263 @ A
0002640 B C D \r 005 \0 \0 C k 324 D k 325 @ A C
0002660 266 266 021 243 \f H k 324 270 @ A H 266 266 J l
0002700 002 B 016 263 362 I k 325 271 J @ A I 266 266 l
0002720 002 B 016 263 362 I H 363 262 @ _ 016 277 H 276
0002740 O 016 N 266 275 @ 274 I 273 L K 266 O 016 N 267
0002760 277 M L K 267 277 260 277 @ _ 030 277 C _ 026 277
0003000 O 030 O 026 266 _ 024 277 @ _ 022 277 I _ 020 277
0003020 O 022 O 020 266 O 030 O 026 267 277 O 024 O 022 O
0003040 020 267 277 I C 325 D H 325 363 262 023 @ A B C
0003060 I \r 005 \0 \0 H b 006 023 277 261 377 X @ A B
0003100 H D \r 005 \0 \0 I b \b 023 277 261 377 G 020 \0
0003120 ( 1 7 9 G E N E R I C - I N D
0003140 E X - Q U I C K S O R T 1 6 2
0003160 G E N E R I C - I N D E X - Q
0003200 U I C K S O R T 2 0 G E N E
0003220 R I C - I N D E X - Q S F E N C
0003240 E ) \r N I L \r ( ) \r G E N E R I
0003260 C - I N S E R T I O N - S O R T
0003300 D 1 \r ( L ( 3 U P P E R
0003320 2 L O W E R 1 C O M P A R
0003340 E F N 0 V E C T O R ) ) \0
0003360 A \b \0 \0 004 B k 324 021 q \a H C : 221 @
0003400 020 @ H 266 271 H ^ B : 254 I @ N k 325 266
0003420 _ 016 l 002 A 016 256 @ 273 N 272 I K J 267 277
0003440 H k 324 X 260 330 @ 275 N 274 O 016 M L 267 277
0003460 N k 325 260 323 \0 N I L \r N I L \r ( )
0003500 \r G E N E R I C - Q S F E N C E
0003520 D 1 \r ( L ( 3 U P P E R
0003540 2 L O W E R 1 C O M P A R
0003560 E F N 0 V E C T O R ) ) \0
0003600 340 027 \0 \0 004 C B 325 k 363 242 261 \0 327 C k
0003620 325 B C 324 m 377 \n \0 \0 B k 324 021 363 021 021
0003640 P 026 @ _ 016 277 I 276 O 016 N 266 275 @ 274 J
0003660 273 L K 266 O 016 N 267 277 M L K 267 277 @ H
0003700 266 @ J 266 l 002 A 016 262 - @ _ 030 277 J _
0003720 026 277 O 030 O 026 266 _ 024 277 @ _ 022 277 H _
0003740 020 277 O 022 O 020 266 O 030 O 026 267 277 O 024 O
0003760 022 O 020 267 277 @ H 266 @ B 266 l 002 A 016 262
0004000 - @ _ " 277 B _ 277 O " O 266 _ 036
0004020 277 @ _ 034 277 H _ 032 277 O 034 O 032 266 O "
0004040 O 267 277 O 036 O 034 O 032 267 277 @ B 266 @
0004060 J 266 l 002 A 016 262 , @ _ , 277 J _ * 277
0004100 O , O * 266 _ ( 277 @ _ & 277 B _ $ 277
0004120 O & O $ 266 O , O * 267 277 O ( O & O
0004140 $ 267 @ 020 \0 ( 1 9 C L : A S H )
0004160 \r N I L \r ( ) \r G E N E R I C -
0004200 Q U I C K S O R T D 1 \r ( L
0004220 ( 3 U P P E R 2 L O W E R
0004240 1 C O M P A R E F N 0 V
0004260 E C T O R ) ) \0 261 \r \0 \0 004 C B
0004300 325 l \n 363 264 003 202 261 \0 246 @ A B C \f \0
0004320 \0 B k 324 C k 325 @ B 266 021 243 \f H k 324
0004340 270 @ H 266 J l 002 A 016 263 364 I k 325 271 J
0004360 @ I 266 l 002 A 016 263 364 I H 363 262 @ _
0004400 016 277 H 276 O 016 N 266 275 @ 274 I 273 L K 266
0004420 O 016 N 267 277 M L K 267 277 260 303 @ _ 030 277
0004440 B _ 026 277 O 030 O 026 266 _ 024 277 @ _ 022 277
0004460 I _ 020 277 O 022 O 020 266 O 030 O 026 267 277 O
0004500 024 O 022 O 020 267 277 I B 325 C H 325 363 236 @
0004520 A B I \f \0 \0 H b 004 023 277 261 377 c @ A
0004540 H C \f \0 \0 I b 006 023 277 261 377 T 020 \0 (
0004560 1 6 6 G E N E R I C - Q U I C
0004600 K S O R T 1 5 1 G E N E R I
0004620 C - Q U I C K S O R T 1 8 G
0004640 E N E R I C - Q S F E N C E ) \r
0004660 N I L \r ( ) \r I N D E X - V E C
0004700 T O R - S O R T D 1 \r ( L (
0004720 0 | - a r g s - | ) ) \0 231 \v
0004740 \0 002 \0 e 021 001 \0 k a 021 221 \n l 002 H 361
0004760 226 g \0 \0 \t \0 \0 202 l 002 a 272 l 003 H 361
0005000 221 h 202 l 003 a 273 I d \t \0 \0 252 277 o \0
0005020 \0 \0 I \n \0 \0 277 I \t \0 \0 274 K 265 \t L
0005040 \t \0 \0 [ 260 025 \t \0 \0 226 K \t \0 \0 L 360
0005060 250 o \0 \0 \0 K \n \0 \0 277 L j _ 020 277 _
0005100 016 277 O 016 O 020 363 262 024 K 276 O 020 ] N M
0005120 267 277 O 020 k 324 _ 020 277 260 351 j L _ 024 277
0005140 _ 022 277 I K J O 022 O 024 \r 005 \0 \0 I K
0005160 J O 022 O 024 \r 005 \0 \0 K 020 \0 ( 1 4 9
0005200 G E N E R I C - I N D E X - I
0005220 N S E R T I O N - S O R T 1 3
0005240 8 G E N E R I C - I N D E X -
0005260 Q U I C K S O R T 8 5 C L :
0005300 E R R O R 7 4 C L : L E N G
0005320 T H 6 9 C L : V E C T O R P
0005340 6 3 C L : M A K E - A R R A
0005360 Y 5 5 C L : L E N G T H 5
0005400 0 C L : E R R O R 4 0 C L
0005420 : V E C T O R P 1 9 C L : S
0005440 Y M B O L - F U N C T I O N ) \r
0005460 ( 1 6 < ) \r ( 8 1 " I l l
0005500 e g a l I n d e x v e c t o
0005520 r : ~ s " 4 6 " N o t a
0005540 v e c t o r : ~ S " ) \r | e
0005560 x p a n d - Q U I C K - S T E P
0005600 | D 1 \r ( L ( 1 S I : : $
0005620 $ M A C R O - E N V I R O N M E
0005640 N T 0 S I : : $ $ M A C R O
0005660 - F O R M ) ) \0 345 005 \0 \0 002 @ 002
0005700 021 A 004 H 001 271 H 002 Z 001 273 J 002 274 g \0
0005720 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0005740 \0 \0 K \v \0 \0 h 032 032 h 032 032 032 g \0 \0
0005760 d o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0006000 \0 g \0 \0 g \0 \0 K \v \0 \0 o \0 \0 \0 032
0006020 032 032 h 032 032 o \0 \0 \0 032 032 h 032 032 032 g
0006040 \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0006060 \0 \0 g \0 \0 g \0 \0 g \0 \0 K \v \0 \0 h
0006100 032 032 032 032 h 032 032 o \0 \0 \0 032 032 h 032 032
0006120 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 I o
0006140 \0 \0 \0 032 032 g \0 \0 I o \0 \0 \0 032 032 h
0006160 032 032 032 h 032 032 o \0 \0 \0 032 032 h 032 032 032
0006200 032 g \0 \0 g \0 \0 I o \0 \0 \0 032 032 g \0
0006220 \0 I o \0 \0 \0 032 032 h 032 032 032 L 032 032 032
0006240 032 020 \0 ( 1 2 8 C L : S U B S T
0006260 7 6 C L : S U B S T 3 9
0006300 C L : S U B S T ) \r ( 2 1 0 C
0006320 L : A R E F 2 0 0 C L : A R
0006340 E F 1 9 7 C L : R O T A T E
0006360 F 1 6 9 C L : A R E F 1 5
0006400 9 C L : A R E F 1 5 6 C L
0006420 : R O T A T E F 1 4 9 C O N
0006440 D 1 2 4 I N D E X 1 2 1
0006460 J 1 1 8 X L 1 1 5 C O M
0006500 P A R E F N 1 1 2 C L : F U
0006520 N C A L L 1 0 9 N O T 1 0
0006540 6 C L : I F 9 9 C L : L O
0006560 O P 7 2 I N D E X 6 9 I
0006600 6 6 C O M P A R E F N 6 3
0006620 C L : F U N C A L L 6 0 N
0006640 O T 5 7 C L : I F 4 9 C
0006660 L : L O O P 3 5 I N D E X
0006700 3 2 L O W E R 2 9 X L 1
0006720 8 L E T ) \r ( 2 1 5 ( J )
0006740 2 0 5 ( L O W E R ) 1 8 7
0006760 ( ( T ( R E T U R N N I L
0007000 ) ) ) 1 7 4 ( J ) 1 6 4
0007020 ( I ) 1 5 3 ( > J I )
0007040 1 4 0 ( ( R E T U R N N I L
0007060 ) ) 1 0 3 ( C L : D E C F
0007100 J ) \r 9 0 ( ( R E T U R N
0007120 N I L ) ) 8 0 ( X L ) 5 4
0007140 ( C L : I N C F I ) 2 6
0007160 ( J ( C L : 1 - U P P E R )
0007200 ) 2 2 ( I ( C L : 1 + L
0007220 O W E R ) ) ) \r ( S E T F - M A
0007240 C R O - F U N C T I O N ( Q U
0007260 O T E Q U I C K - S T E P )
0007300 ( Q U O T E | e x p a n d - Q
0007320 U I C K - S T E P | ) ) \r V E C
0007340 T O R - K T H - E L E M E N T
0007360 D 1 \r ( L ( 0 | - a r g s -
0007400 | ) ) 001 020 024 \0 002 \0 e 021 001 \0 k a
0007420 021 361 020 l 002 a 272 l 003 H 361 226 g \0 \0 \t
0007440 \0 \0 202 l 003 a 273 I d \t \0 \0 252 277 o \0
0007460 \0 \0 I \n \0 \0 277 I \t \0 \0 274 J m 377 363
0007500 223 L J 363 250 o \0 \0 \0 J \n \0 \0 277 j L
0007520 276 275 l \n N M 325 363 233 I K M N \f \0 \0
0007540 277 I J 266 020 I K M N \f \0 \0 277 M k 324
0007560 N k 325 I M 266 021 003 023 O " k 324 _ " 277
0007600 I O " 266 O & l 002 K 016 263 357 O $ k 325
0007620 _ $ 277 O & I O $ 266 l 002 K 016 263 357 O
0007640 $ O " 363 262 1 I _ 026 277 O " _ 024 277 O
0007660 026 O 024 266 _ 022 277 I _ 020 277 O $ _ 016 277
0007700 O 020 O 016 266 O 026 O 024 267 277 O 022 O 020 O
0007720 016 267 277 260 246 I _ 277 M _ 036 277 O O
0007740 036 266 _ 034 277 I _ 032 277 O $ _ 030 277 O 032
0007760 O 030 266 O O 036 267 277 O 034 O 032 O 030 267
0010000 277 J O $ : 223 I J 266 020 O $ d J 363 221
0010020 276 202 k 324 275 023 261 377 < \0 ( 9 7 G E
0010040 N E R I C - Q S F E N C E 8 5
0010060 G E N E R I C - I N S E R T I
0010100 O N - S O R T 6 6 C L : E R
0010120 R O R 4 8 C L : L E N G T H
0010140 4 3 C L : E R R O R 3 3
0010160 C L : V E C T O R P 2 3 C L
0010200 : S Y M B O L - F U N C T I O N
0010220 ) \r ( 2 0 < ) \r ( 6 2 " K
0010240 o u t o f b o u n d s :
0010260 ~ S " 3 9 " N o t a v e
0010300 c t o r : ~ S " ) \r V E C T O
0010320 R - K T H - I N D E X D 1 \r (
0010340 L ( 0 | - a r g s - | ) )
0010360 001 | 031 \0 002 \0 e 021 001 \0 k a 021 361 020 021
0010400 P 025 l 002 a 272 l 003 H 361 226 g \0 \0 \t \0
0010420 \0 202 l 003 a 273 l 004 H 361 221 h 202 l 004 a
0010440 274 I d \t \0 \0 252 277 o \0 \0 \0 I \n \0 \0
0010460 277 I \t \0 \0 275 J m 377 363 223 M J 363 250 o
0010500 \0 \0 \0 J \n \0 \0 277 L 265 \t M \t \0 \0 \
0010520 260 025 \t \0 \0 226 L \t \0 \0 M 360 250 o \0 \0
0010540 \0 L \n \0 \0 277 M j _ 022 277 _ 020 277 O 020
0010560 O 022 363 262 027 L _ 016 277 O 022 ^ O 016 N 267
0010600 277 O 022 k 324 _ 022 277 260 346 j M _ 026 277 _
0010620 024 277 l \n O 026 O 024 325 363 237 I L K O 024
0010640 O 026 \r 005 \0 \0 277 L J 266 020 I L K O 024
0010660 O 026 \r 005 \0 \0 277 O 024 k 324 O 026 k 325 I
0010700 L O 024 266 266 021 003 030 O , k 324 _ , 277 I
0010720 L O , 266 266 O 0 l 002 K 016 263 355 O . k
0010740 325 _ . 277 O 0 I L O . 266 266 l 002 K 016
0010760 263 355 O . O , 363 262 1 I _ 277 O , _
0011000 036 277 O O 036 266 _ 034 277 I _ 032 277 O .
0011020 _ 030 277 O 032 O 030 266 O O 036 267 277 O 034
0011040 O 032 O 030 267 277 260 242 I _ * 277 O 024 _ (
0011060 277 O * O ( 266 _ & 277 I _ $ 277 O . _
0011100 " 277 O $ O " 266 O * O ( 267 277 O & O
0011120 $ O " 267 277 J O . : 223 I J 266 020 O .
0011140 d J 363 223 _ 026 277 204 k 324 _ 024 277 023 261 377
0011160 $ \0 ( 1 9 1 G E N E R I C - I
0011200 N D E X - Q S F E N C E 1 7 5
0011220 G E N E R I C - I N D E X - I
0011240 N S E R T I O N - S O R T 1 1
0011260 0 C L : E R R O R 9 9 C L
0011300 : L E N G T H 9 4 C L : V E
0011320 C T O R P 8 8 C L : M A K E
0011340 - A R R A Y 8 0 C L : E R R
0011360 O R 6 2 C L : L E N G T H
0011400 5 7 C L : E R R O R 4 7 C
0011420 L : V E C T O R P 2 6 C L :
0011440 S Y M B O L - F U N C T I O N )
0011460 \r ( 2 3 < ) \r ( 1 0 6 " I
0011500 l l e g a l I n d e x v e c
0011520 t o r : ~ s " 7 6 " K o
0011540 u t o f b o u n d s : ~ S
0011560 " 5 3 " N o t a v e c t
0011600 o r : ~ S " ) \r V E C T O R -
0011620 S O R T D 1 \r ( L ( 0 | -
0011640 a r g s - | ) ) \0 ? 005 \0 002 \0 e
0011660 021 001 \0 k a 021 1 004 l 002 H 361 226 g \0 \0
0011700 \t \0 \0 202 l 002 a 272 I \t \0 \0 250 o \0 \0
0011720 \0 I \n \0 \0 277 j I \t \0 \0 274 273 I J K
0011740 L \f \0 \0 I J K L \f \0 \0 I 020 \0 ( 5
0011760 9 G E N E R I C - I N S E R T
0012000 I O N - S O R T 5 2 G E N E
0012020 R I C - Q U I C K S O R T 4 3
0012040 C L : L E N G T H 3 7 C L
0012060 : E R R O R 2 8 C L : V E C
0012100 T O R P 1 9 C L : S Y M B O
0012120 L - F U N C T I O N ) \r ( 1 6
0012140 < ) \r ( 3 3 " N o t a v
0012160 e c t o r : ~ S " ) \r ( P U T
0012200 P R O P S V E C T O R - S O R
0012220 T E R F I L E T Y P E C L :
0012240 C O M P I L E - F I L E ) \r ( P
0012260 U T P R O P S V E C T O R - S
0012300 O R T E R C O P Y R I G H T
0012320 ( " X e r o x C o r p o r a t
0012340 i o n " 1 9 8 6 ) ) \r N I L \r
0012360