$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSORT.DCOM!3
0000000 ( F I L E C R E A T E D " 2
0000020 - O c t - 8 6 1 3 : 5 8 : 1 8
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > C M L S O R
0000120 T . ; 3 ) \r " 2 9 - S e p - 8
0000140 6 1 5 : 1 3 : 0 9 " i n "
0000160 X e r o x L i s p 2 9 - S e
0000200 p - 8 6 . . . " d a t e d
0000220 " 2 9 - S e p - 8 6 1 5 : 4 1
0000240 : 0 4 " ) \r ( F I L E C R E A T
0000260 E D " 2 - O c t - 8 6 1 3
0000300 : 5 7 : 2 4 " { E R I S } < L
0000320 I S P C O R E > S O U R C E S >
0000340 C M L S O R T . ; 3 1 3 2 4 1
0000360 c h a n g e s t o : ( V A
0000400 R S \r C M L S O R T C O M S )
0000420 ( F U N C T I O N S C L : M
0000440 E R G E ) p r e v i o u s d
0000460 a t e : " 2 - J u l - 8 6
0000500 1 7 : 1 7 : 0 4 " \r { E R I S
0000520 } < L I S P C O R E > S O U R C
0000540 E S > C M L S O R T . ; 2 ) \r (
0000560 R P A Q Q C M L S O R T C O M
0000600 S ( ( * ; ; " C L t L S
0000620 e c t i o n 1 4 . 5 M e r g
0000640 i n g a n d S o r t i n g "
0000660 ) ( D E C L A R E : D O N T
0000700 C O P Y D O E V A L @ C O M P
0000720 I L E ( \r F I L E S C M L S
0000740 E Q C O M M O N ) ( F U N C T
0000760 I O N S A P P L Y - K E Y A
0001000 P P L Y - P R E D S O R T - P
0001020 R E F I X ) ) ( F U N C T I O
0001040 N S C L : S O R T % % S O R
0001060 T - V E C T O R \r % % S O R T
0001100 - L I S T ) ( F U N C T I O N
0001120 S S T A B L E - S O R T % %
0001140 S T A B L E - S O R T - V E C T
0001160 O R ) ( F U N C T I O N S C
0001200 L : M E R G E % % M E R G E -
0001220 L I S T S * \r % % M E R G E -
0001240 V E C T O R S * % % M E R G E
0001260 - N O N - S I M P L E - V E C T
0001300 O R S ) ( P R O P F I L E T
0001320 Y P E C M L S O R T ) ) ) \r C
0001340 L : S O R T D 1 \r ( L ( 0
0001360 - a r g s - ) ) \0 Y \a \0 002 \0 e
0001400 021 001 \0 k a 021 Q 006 l 002 a 272 H l 003 274
0001420 273 L d K 363 262 027 277 h 275 I ^ d 227 d 303
0001440 \0 \0 262 035 277 I J M \v \0 \0 020 a g \0 \0
0001460 360 225 L k 330 a 260 343 L l 002 324 \ 260 325 \t
0001500 \0 \0 264 \t I J M \v \0 \0 020 g \0 \0 N o
0001520 \0 \0 \0 \f \0 \0 020 \0 ( 1 2 6 Q C H
0001540 E C K - T Y P E - F A I L 1 1
0001560 2 Q % % S O R T - V E C T O R
0001600 1 0 2 Q V E C T O R P 5 3
0001620 Q % % S O R T - L I S T ) \r (
0001640 1 1 6 Q S E Q U E N C E 6 0
0001660 Q : K E Y 4 2 Q L I S T P
0001700 ) \r ( 1 2 3 Q ( O R L I S
0001720 T V E C T O R ) ) \r % % S O R
0001740 T - V E C T O R D 1 \r ( L (
0001760 2 K E Y 1 P R E D 0 V
0002000 E C T O R ) ) \0 317 017 \0 \0 003 021 360
0002020 016 @ \t \0 \0 k 325 j h 032 032 270 H 001 H 002
0002040 270 [ 275 H 001 H 002 270 \ 276 B 227 @ L 266 Y
0002060 k B 016 203 @ L 266 Y 272 N M \n \0 \0 263 f
0002100 @ M 266 _ 022 277 B 225 O 022 k B 016 201 O 022
0002120 J l 002 A 016 262 + @ _ 020 277 N _ 016 277 O
0002140 022 O 020 O 016 267 277 N k 324 ^ M \n \0 \0 263
0002160 5 @ N 266 _ 030 277 J B 233 O 030 k B 016 207
0002200 M k 325 275 260 265 O 030 l 002 A 016 262 333 @ _
0002220 026 277 M _ 024 277 O 030 O 026 O 024 267 277 M k
0002240 325 275 260 227 @ _ 034 277 N _ 032 277 I O 034 O
0002260 032 267 277 L N k 325 375 363 231 L H 032 270 N k
0002300 325 H 032 270 K M k 324 363 232 M k 324 H 032 270
0002320 K H 032 X 200 H 222 261 377 E @ 020 \0 ( 1 4
0002340 0 Q % % = 5 7 Q % % = 6
0002360 C L : L E N G T H ) \r N I L \r
0002400 ( ) \r % % S O R T - L I S T D
0002420 1 \r ( L ( 2 K E Y 1 P R
0002440 E D 0 L I S T ) ) \0 t 004 \0
0002460 \0 003 j 021 1 003 @ 241 I 020 H k 324 I h 272
0002500 @ 243 h [ 260 9 k H 363 234 @ d 002 b \0 277
0002520 d h 031 277 [ 260 ( H J 032 272 H k 325 270 g
0002540 \0 \0 J 032 260 333 g \0 \0 360 262 1 J 001 J 002
0002560 272 K A B \f \0 \0 273 J 001 J 002 272 277 J 001
0002600 J 002 272 d g \0 \0 360 262 336 277 J 001 k 325 270
0002620 K J 032 272 g \0 \0 J 032 260 246 K A B \f \0
0002640 \0 271 270 260 223 \0 ( 1 5 6 Q % % M E
0002660 R G E - L I S T S * 1 0 4 Q
0002700 % % M E R G E - L I S T S * ) \r
0002720 ( 1 4 4 Q S 2 1 2 4 Q S 1
0002740 6 6 Q S 2 5 7 Q S 1 ) \r
0002760 ( ) \r S T A B L E - S O R T D
0003000 1 \r ( L ( 0 - a r g s - ) )
0003020 \0 Y \a \0 002 \0 e 021 001 \0 k a 021 Q 006
0003040 l 002 a 272 H l 003 274 273 L d K 363 262 027 277
0003060 h 275 I ^ d 227 d 303 \0 \0 262 035 277 I J M
0003100 \v \0 \0 020 a g \0 \0 360 225 L k 330 a 260 343
0003120 L l 002 324 \ 260 325 \t \0 \0 264 \t I J M \v
0003140 \0 \0 020 g \0 \0 N o \0 \0 \0 \f \0 \0 020 \0
0003160 ( 1 2 6 Q C H E C K - T Y P E
0003200 - F A I L 1 1 2 Q % % S T A
0003220 B L E - S O R T - V E C T O R
0003240 1 0 2 Q V E C T O R P 5 3 Q
0003260 % % S O R T - L I S T ) \r ( 1
0003300 1 6 Q S E Q U E N C E 6 0 Q
0003320 : K E Y 4 2 Q L I S T P )
0003340 \r ( 1 2 3 Q ( O R L I S T
0003360 V E C T O R ) ) \r % % S T A B
0003400 L E - S O R T - V E C T O R D
0003420 1 \r ( L ( 2 K E Y 1 P R
0003440 E D 0 V E C T O R ) ) \0 "
0003460 002 \0 \0 003 @ 021 021 001 @ g \0 \0 \n \0 \0 A
0003500 B \v \0 \0 271 H I g \0 \0 j g \0 \0 h \r
0003520 006 \0 \0 @ 020 \0 ( 3 6 Q C L : R E
0003540 P L A C E 1 7 Q % % S O R T
0003560 - L I S T 1 2 Q C L : C O E
0003600 R C E ) \r ( 3 1 Q : E N D 1
0003620 2 5 Q : S T A R T 1 7 L I
0003640 S T ) \r ( ) \r C L : M E R G E
0003660 D 1 \r ( L ( 0 - a r g s - )
0003700 ) 001 006 \r \0 002 \0 e 021 001 \0 k a 021 261
0003720 \f l 002 a 272 l 003 a 273 l 004 a 274 H l 005
0003740 276 275 N d M 363 235 277 g \0 \0 _ 016 277 I d
0003760 003 263 027 260 026 a g \0 \0 360 225 N k 330 a 260
0004000 354 N l 002 324 ^ 260 335 001 _ 020 d g \0 \0 360
0004020 262 T 277 J _ 022 d 262 ! d 303 \0 \0 223 277 J
0004040 260 030 \t \0 \0 264 \a J \t \0 \0 213 g \0 \0 O
0004060 022 o \0 \0 \0 \f \0 \0 K _ 024 d 262 ! d 303
0004100 \0 \0 223 277 K 260 030 \t \0 \0 264 \a K \t \0 \0
0004120 213 g \0 \0 O 024 o \0 \0 \0 \f \0 \0 L O 016
0004140 \f \0 \0 020 g \0 \0 360 256 O 020 g \0 \0 360 247
0004160 O 020 g \0 \0 360 264 V J _ 026 d 226 d 303 \0
0004200 \0 231 277 J g \0 \0 \n \0 \0 260 025 \t \0 \0 264
0004220 004 J 213 g \0 \0 O 026 o \0 \0 \0 \f \0 \0 K
0004240 _ 030 d 226 d 303 \0 \0 231 277 K g \0 \0 \n \0
0004260 \0 260 025 \t \0 \0 264 004 K 213 g \0 \0 O 030 o
0004300 \0 \0 \0 \f \0 \0 L O 016 \f \0 \0 020 \0 ( 4
0004320 0 3 Q % % M E R G E - V E C T
0004340 O R S * 3 7 5 Q C H E C K -
0004360 T Y P E - F A I L 3 5 5 Q V
0004400 E C T O R P 3 5 0 Q L I S T
0004420 - T O - V E C T O R * 3 2 6 Q
0004440 C H E C K - T Y P E - F A I L
0004460 3 0 6 Q V E C T O R P 3 0
0004500 1 Q L I S T - T O - V E C T O
0004520 R * 2 3 2 Q % % M E R G E -
0004540 L I S T S * 2 2 4 Q C H E C
0004560 K - T Y P E - F A I L 2 0 7 Q
0004600 V E C T O R - T O - L I S T *
0004620 2 0 1 Q V E C T O R P 1 5
0004640 7 Q C H E C K - T Y P E - F A
0004660 I L 1 4 2 Q V E C T O R - T
0004700 O - L I S T * 1 3 4 Q V E C
0004720 T O R P ) \r ( 3 6 4 Q S E Q U
0004740 E N C E 2 3 4 5 Q V E C T O
0004760 R 3 3 7 Q L I S T P 3 1 5
0005000 Q S E Q U E N C E 1 2 7 6 Q
0005020 V E C T O R 2 7 0 Q L I S
0005040 T P 2 5 4 Q S T R I N G 2
0005060 4 5 Q A R R A Y 2 3 6 Q V
0005100 E C T O R 2 1 3 Q S E Q U E
0005120 N C E 2 1 7 1 Q L I S T P
0005140 1 4 6 Q S E Q U E N C E 1 1
0005160 2 4 Q L I S T P 1 0 6 Q L
0005200 I S T 6 0 Q : K E Y 4 2 Q
0005220 I D E N T I T Y ) \r ( 3 7 2
0005240 Q ( O R L I S T V E C T O
0005260 R ) 3 2 3 Q ( O R L I S T
0005300 V E C T O R ) 2 2 1 Q ( O
0005320 R L I S T V E C T O R ) 1
0005340 5 4 Q ( O R L I S T V E C
0005360 T O R ) ) \r % % M E R G E - L I
0005400 S T S * D 1 \r ( L ( 3 K E
0005420 Y 2 P R E D 1 L I S T 2
0005440 0 L I S T 1 ) ) \0 L 002 \0 \0
0005460 004 g \0 \0 h 032 021 021 001 H 271 @ 223 A 253 @
0005500 242 I A 201 I @ 031 277 H 002 020 C 232 A 001 k
0005520 C 016 @ 001 k C 016 203 A 001 @ 001 l 002 B 016
0005540 235 I A 031 277 I 002 271 A 002 b 002 277 260 316 I
0005560 @ 031 277 I 002 271 @ 002 b \0 260 302 \0 N I L
0005600 \r ( 2 H E A D E R ) \r ( ) \r %
0005620 % M E R G E - V E C T O R S *
0005640 D 1 \r ( L ( 3 K E Y 2 P
0005660 R E D 1 V E C T O R 2 0
0005700 V E C T O R 1 ) ) \0 \t \0 \0 \0 004
0005720 @ A B C \f \0 \0 020 \0 ( 6 % % M E
0005740 R G E - N O N - S I M P L E - V
0005760 E C T O R S ) \r N I L \r ( ) \r %
0006000 % M E R G E - N O N - S I M P L
0006020 E - V E C T O R S D 1 \r ( L
0006040 ( 3 K E Y 2 P R E D 1
0006060 V E C T O R 2 0 V E C T O R
0006100 1 ) ) \0 320 017 \0 \0 004 @ \t \0 \0 021 341
0006120 016 A \t \0 \0 271 H I 324 Z g \0 \0 @ \t \0
0006140 \0 \v \0 \0 273 j \ ] 276 J L 363 221 h 200 i
0006160 221 K 020 M H \n \0 \0 262 ( L d J \n \0 \0
0006200 222 261 \0 222 277 K _ 020 277 L _ 016 277 A N 266
0006220 O 020 O 016 267 277 L k 324 274 N k 324 276 260 334
0006240 N I \n \0 \0 262 & L d J \n \0 \0 263 f 277
0006260 K _ 024 277 L _ 022 277 @ M 266 O 024 O 022 267
0006300 277 L k 324 274 M k 324 275 260 336 C 234 A N 266
0006320 k C 016 @ M 266 k C 016 205 A N 266 @ M 266
0006340 l 002 B 016 262 031 K _ 030 277 L _ 026 277 A N
0006360 266 O 030 O 026 267 277 N k 324 276 260 027 K _ 034
0006400 277 L _ 032 277 @ M 266 O 034 O 032 267 277 M k
0006420 324 275 L k 324 274 261 377 S \0 ( 1 4 2 Q
0006440 % % = 1 3 2 Q % % = 6 5 Q
0006460 % % = 5 5 Q % % = 3 1 Q
0006500 M A K E - A R R A Y 2 6 Q
0006520 A R R A Y - E L E M E N T - T Y
0006540 P E 1 2 Q C L : L E N G T H
0006560 3 C L : L E N G T H ) \r ( 2
0006600 2 Q : E L E M E N T - T Y P E
0006620 ) \r ( ) \r ( P U T P R O P S C
0006640 M L S O R T F I L E T Y P E
0006660 C O M P I L E - F I L E ) \r ( P
0006700 U T P R O P S C M L S O R T
0006720 C O P Y R I G H T ( " X e r o
0006740 x C o r p o r a t i o n " 1
0006760 9 8 6 ) ) \r N I L \r
0006772