$ od -c -N 50000 [eris]<Lisp>JCAI>library>CMLSEQ.DCOM!1
0000000 ( F I L E C R E A T E D " 1
0000020 - A u g - 8 5 2 1 : 4 8 : 5 0
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 > L I B R A R Y > C M L S E Q
0000120 . ; 7 ) \r " 2 8 - J u l - 8 5
0000140 0 1 : 3 9 : 5 0 " r e c o m
0000160 p i l e d c h a n g e s : C
0000200 L : P O S I T I O N C L : R E
0000220 P L A C E C L : L E N G T H
0000240 M A P 1 M A P C A N N R E V
0000260 E R S E \r L I S T - N R E V E
0000300 R S E * V E C T O R - P O S I
0000320 T I O N * \ E Q L - I S - E Q
0000340 i n " I N T E R L I S P - D
0000360 2 8 - J u l - 8 5 . . . "
0000400 d a t e d " 2 8 - J u l - 8 5
0000420 0 1 : 5 3 : 5 3 " ) \r ( F I L
0000440 E C R E A T E D " 1 - A u g
0000460 - 8 5 1 6 : 3 6 : 0 9 " { E
0000500 R I S } < L I S P C O R E > L I
0000520 B R A R Y > C M L S E Q . ; 7
0000540 4 5 5 5 c h a n g e s t o :
0000560 ( F N S C L : P O S I T I O
0000600 N \r C L : L E N G T H M A P
0000620 1 M A P C A N C L : R E P L
0000640 A C E \ E Q L - I S - E Q L
0000660 I S T - N R E V E R S E * N R
0000700 E V E R S E V E C T O R - P O
0000720 S I T I O N * ) ( V A R S C
0000740 M L S E Q C O M S \r ) ( M A C
0000760 R O S S E Q - D I S P A T C H
0001000 L I S T - N R E V E R S E - M
0001020 A C R O V E C T O R - P O S I
0001040 T I O N ) p r e v i o u s d
0001060 a t e : " 3 1 - J u l - 8 5
0001100 0 4 : 4 8 : 5 0 " \r { E R I S
0001120 } < L I S P C O R E > L I B R A
0001140 R Y > C M L S E Q . ; 1 ) \r C L
0001160 : P O S I T I O N D 1 \r ( L
0001200 ( 0 \ C L : L A M B D A . A R
0001220 G C N T ) P 2 4 Q K E Y
0001240 P 2 3 Q E N D P 1 6 Q
0001260 S T A R T P 1 3 Q T E S T
0001300 - N O T P 1 0 Q T E S T
0001320 P 5 F R O M - E N D P 2
0001340 S E Q U E N C E P 1 I T
0001360 E M ) 001 P 025 \0 002 \0 e 021 001 \0 @ A
0001400 021 362 021 021 020 022 H l 003 274 273 L d K 363 226
0001420 277 h d 263 026 260 025 a g \0 \0 360 224 L k 330
0001440 260 362 L l 002 324 \ 260 345 a 275 H l 003 _ 016
0001460 277 276 O 016 d N 363 230 277 h 265 034 g \0 \0 260
0001500 030 a g \0 \0 360 225 O 016 k 330 260 357 O 016 l
0001520 002 324 _ 016 260 340 a _ 020 277 H l 003 _ 024 277
0001540 _ 022 277 O 024 d O 022 363 226 277 h d 263 031 260
0001560 030 a g \0 \0 360 225 O 024 k 330 260 361 O 024 l
0001600 002 324 _ 024 260 341 a _ 026 277 H l 003 _ 032 277
0001620 _ 030 277 O 032 d O 030 363 226 277 h 265 032 j 260
0001640 030 a g \0 \0 360 225 O 032 k 330 260 361 O 032 l
0001660 002 324 _ 032 260 341 a _ 034 277 H l 003 _ 277
0001700 _ 036 277 O d O 036 363 231 277 h 265 035 J \t
0001720 \0 \0 260 030 a g \0 \0 360 225 O k 330 260 356
0001740 O l 002 324 _ 260 336 a 021 021 024 H l 003
0001760 _ $ 277 _ " 277 O $ d O " 363 230 277 h 265
0002000 034 g \0 \0 260 030 a g \0 \0 360 225 O $ k 330
0002020 260 357 O $ l 002 324 _ $ 260 337 a _ ( 277 J
0002040 223 J 003 262 024 I J M O 020 O 026 O 034 O &
0002060 O ( \r \b \0 \0 020 I J M O 020 O 026 O 034
0002100 O & O ( \r \b \0 \0 020 \0 ( 5 1 5 Q
0002120 V E C T O R - P O S I T I O N *
0002140 4 7 3 Q L I S T - P O S I T
0002160 I O N * 3 2 7 Q C L : L E N
0002200 G T H ) \r ( 4 1 7 Q : K E Y
0002220 4 1 1 Q I D E N T I T Y 3 3
0002240 5 Q : E N D 2 5 2 Q : S T
0002260 A R T 1 7 2 Q : T E S T - N
0002300 O T 1 1 2 Q : T E S T 1 0
0002320 4 Q E Q L 4 0 Q : F R O M
0002340 - E N D ) \r ( ) \r C L : R E P L
0002360 A C E D 1 \r ( L ( 0 \ C L
0002400 : L A M B D A . A R G C N T )
0002420 P 1 6 Q S O U R C E - E N D
0002440 P 1 3 Q S O U R C E - S T
0002460 A R T P 1 0 Q T A R G E T
0002500 - E N D P 5 T A R G E T -
0002520 S T A R T P 2 S O U R C E
0002540 - S E Q U E N C E P 1 T A
0002560 R G E T - S E Q U E N C E ) \0
0002600 357 017 \0 002 \0 e 021 001 \0 @ A 021 302 016 H l
0002620 003 274 273 L d K 363 226 277 h 265 027 j 260 025 a
0002640 g \0 \0 360 224 L k 330 260 362 L l 002 324 \ 260
0002660 345 a 275 H l 003 _ 016 277 276 O 016 d N 363 226
0002700 277 h d 263 031 260 030 a g \0 \0 360 225 O 016 k
0002720 330 260 361 O 016 l 002 324 _ 016 260 342 a _ 020 277
0002740 H l 003 _ 024 277 _ 022 277 O 024 d O 022 363 226
0002760 277 h 265 032 j 260 030 a g \0 \0 360 225 O 024 k
0003000 330 260 361 O 024 l 002 324 _ 024 260 341 a _ 026 277
0003020 H l 003 _ 032 277 _ 030 277 O 032 d O 030 363 226
0003040 277 h d 263 031 260 030 a g \0 \0 360 225 O 032 k
0003060 330 260 361 O 032 l 002 324 _ 032 260 341 a _ 034 277
0003100 O 020 246 I \t \0 \0 _ 020 277 O 034 246 J \t \0
0003120 \0 _ 034 277 I 222 I 003 234 J 222 J 003 223 \b \0
0003140 \0 020 \b \0 \0 020 J 222 J 003 223 \b \0 \0 020 \b
0003160 \0 \0 020 \0 ( 3 5 4 Q M U M B L E
0003200 - R E P L A C E - F R O M - M U
0003220 M B L E 3 5 0 Q M U M B L E
0003240 - R E P L A C E - F R O M - L I
0003260 S T 3 3 7 Q L I S T - R E P
0003300 L A C E - F R O M - M U M B L E
0003320 3 3 3 Q L I S T - R E P L A
0003340 C E - F R O M - L I S T 3 1 3
0003360 Q C L : L E N G T H 3 0 1 Q
0003400 C L : L E N G T H ) \r ( 2 4 5
0003420 Q : E N D 2 1 6 5 Q : S T
0003440 A R T 2 1 0 5 Q : E N D 1
0003460 3 5 Q : S T A R T 1 ) \r ( ) \r
0003500 C L : L E N G T H D 1 \r ( I
0003520 0 X ) \0 026 \0 \0 \0 001 @ 005 \a 224 @
0003540 \t \0 \0 020 @ 003 265 006 \b \0 \0 020 \t \0 \0 020
0003560 \0 ( 2 3 Q L E N G T H 1 7 Q
0003600 H E L P 7 N C H A R S ) \r
0003620 N I L \r ( ) \r M A P 1 D 1 \r (
0003640 L ( 3 T A K E - C A R 2
0003660 A C C U M U L A T E 1 O R I
0003700 G I N A L - A R G L I S T S 0
0003720 F U N C T I O N ) F 1 0 Q
0003740 N ) \0 t \b 001 \0 004 A W 020 \n \0 \0
0003760 021 q \a h h 032 Y 272 H ] 003 265 \n h 262 023
0004000 B 233 I 002 020 001 242 i 260 366 M 002 260 355 A 001
0004020 020 H ^ 262 026 C 222 N 001 200 N 001 L 032 274 N
0004040 d 001 002 030 277 N 002 260 353 @ L \t \0 \0 \n \0
0004060 \0 273 B _ 016 277 g \0 \0 O 016 \n \0 \0 230 J
0004100 K \n \0 \0 \t \0 \0 217 g \0 \0 O 016 \n \0 \0
0004120 264 \n J K & 277 J 002 272 h 274 260 235 \0 ( 1
0004140 4 5 Q E Q L 1 3 4 Q L A S
0004160 T 1 3 1 Q \ N C O N C 2 1
0004200 2 3 Q E Q L 1 0 6 Q A P P
0004220 L Y 1 0 3 Q N R E V E R S E
0004240 5 \ A P P E N D 2 ) \r ( 1 4
0004260 0 Q : L I S T 1 1 6 Q : N
0004300 C O N C ) \r ( ) \r M A P C A N
0004320 D 1 \r ( L ( 0 \ C L : L A M
0004340 B D A . A R G C N T ) P 3
0004360 M O R E - L I S T S P 2 L
0004400 I S T P 1 F U N C T I O N
0004420 ) \0 B \t \0 002 \0 e 021 001 \0 @ A 021 022
0004440 003 H l 003 021 2 \b M d L 363 237 277 N 022 273
0004460 I J K 032 g \0 \0 i \f \0 \0 020 a _ 020 277
0004500 O 016 265 017 O 020 h 032 _ 016 276 M k 324 ] 260
0004520 331 O 020 & _ 016 277 260 364 \0 ( 4 2 Q M
0004540 A P 1 ) \r ( 3 6 Q : N C O N C
0004560 ) \r ( ) \r N R E V E R S E D 1
0004600 \r ( L ( 0 S E Q U E N C E )
0004620 ) \0 017 \0 \0 \0 001 @ d 222 d 003 223 \t \0
0004640 \0 020 \t \0 \0 020 \0 ( 1 4 Q V E C T
0004660 O R - N R E V E R S E * 1 0 Q
0004700 L I S T - N R E V E R S E * )
0004720 \r N I L \r ( ) \r L I S T - N R E
0004740 V E R S E * D 1 \r ( L ( 0
0004760 S E Q U E N C E ) ) \0 # 003 \0 \0
0005000 001 @ 002 @ 021 022 002 I d \t \0 \0 221 J 020 J
0005020 031 277 H d \t \0 \0 222 277 H 200 002 H I 272 271
0005040 270 260 346 \0 ( 2 5 Q C L : A T O M
0005060 1 2 Q C L : A T O M ) \r N I
0005100 L \r ( ) \r V E C T O R - P O S I
0005120 T I O N * D 1 \r ( L ( 7 K
0005140 E Y 6 E N D 5 S T A R T
0005160 4 T E S T - N O T 3 T E
0005200 S T 2 F R O M - E N D 1
0005220 S E Q U E N C E 0 I T E M )
0005240 ) \0 O 004 \0 \0 \b B 222 m 377 200 k B 223
0005260 F k 325 200 E B 223 E k 325 200 F 021 023 003 I
0005300 [ J \n \0 \0 221 h 020 D 262 026 @ A K \n \0
0005320 \0 k G 016 017 016 l 002 D 017 016 262 026 K 020 @
0005340 A K \n \0 \0 k G 016 017 016 l 002 C 017 016 263
0005360 356 K H 324 260 314 \0 ( 7 4 Q \ A R E
0005400 F . 1 5 0 Q \ A R E F . 1
0005420 3 4 Q % % = ) \r N I L \r ( ) \r
0005440 \ E Q L - I S - E Q D 1 \r ( L
0005460 ( 0 X ) ) \0 023 \0 \0 \0 001 @ d
0005500 005 001 253 004 l 004 360 265 \b @ 004 ` \0 \0 360 020
0005520 \0 N I L \r ( 1 7 Q 004 003 C H A R
0005540 A C T E R T Y P E # ) \r ( ) \r S
0005560 C H A R D 1 \r ( L ( 1 I N
0005600 D E X 0 S T R I N G ) ) \0
0005620 \n \0 \0 \0 002 @ A k 330 ) \t \0 \0 020 \0 (
0005640 7 I N T - C H A R ) \r N I L \r
0005660 ( ) \r ( P R E T T Y C O M P R I
0005700 N T C M L S E Q C O M S ) \r (
0005720 R P A Q Q C M L S E Q C O M S
0005740 ( ( M A C R O S L I S T - N
0005760 R E V E R S E - M A C R O S E
0006000 Q - D I S P A T C H V E C T O
0006020 R - P O S I T I O N ) ( F N S
0006040 C L : P O S I T I O N \r C L
0006060 : R E P L A C E C L : L E N G
0006100 T H M A P 1 M A P C A N N
0006120 R E V E R S E L I S T - N R E
0006140 V E R S E * V E C T O R - P O
0006160 S I T I O N * \ E Q L - I S -
0006200 E Q S C H A R ) ( D E C L A
0006220 R E : \r D O N T E V A L @ L O
0006240 A D D O E V A L @ C O M P I L
0006260 E D O N T C O P Y C O M P I
0006300 L E R V A R S ( A D D V A R S
0006320 ( N L A M A ) ( N L A M L )
0006340 ( L A M A C L : P O S I T I
0006360 O N ) ) ) ) ) \r ( D E F M A C R
0006400 O L I S T - N R E V E R S E -
0006420 M A C R O ( L I S T ) ( B Q
0006440 U O T E ( C L : D O ( ( 1 S
0006460 T ( C D R ( \ , L I S T )
0006500 ) ( C L : I F ( C L : A T O
0006520 M 1 S T ) 1 S T ( \r C D R
0006540 1 S T ) ) ) ( 2 N D ( \ ,
0006560 L I S T ) 1 S T ) ( 3 R D
0006600 ( Q U O T E N I L ) 2 N D
0006620 ) ) ( ( C L : A T O M 2 N D
0006640 ) 3 R D ) ( R P L A C D 2
0006660 N D 3 R D ) ) ) ) \r ( D E F M
0006700 A C R O S E Q - D I S P A T C
0006720 H ( S E Q U E N C E L I S T
0006740 - F O R M A R R A Y - F O R M
0006760 ) ( B Q U O T E ( C L : I F
0007000 ( C L : L I S T P ( \ , S
0007020 E Q U E N C E ) ) ( \ , \r L
0007040 I S T - F O R M ) ( \ , A R
0007060 R A Y - F O R M ) ) ) ) \r ( D E
0007100 F M A C R O V E C T O R - P O
0007120 S I T I O N ( I T E M S E Q
0007140 U E N C E ) ( B Q U O T E (
0007160 L E T ( ( I N C R E M E N T E
0007200 R ( C L : I F F R O M - E N
0007220 D - 1 1 ) ) ( S T A R T
0007240 ( \r C L : I F F R O M - E N D
0007260 ( 1 - E N D ) S T A R T )
0007300 ) ( E N D ( C L : I F F R
0007320 O M - E N D ( 1 - S T A R T
0007340 ) E N D ) ) ) ( C L : D O
0007360 ( ( I N D E X S T A R T ( +
0007400 I N D E X \r I N C R E M E N
0007420 T E R ) ) ) ( ( = I N D E X
0007440 E N D ) N I L ) ( C L : I
0007460 F T E S T - N O T ( C L : I
0007500 F ( F U N C A L L T E S T -
0007520 N O T ( \ , I T E M ) ( F
0007540 U N C A L L K E Y ( \r A R E
0007560 F ( \ , S E Q U E N C E )
0007600 I N D E X ) ) ) ( R E T U R N
0007620 I N D E X ) ) ( C L : I F
0007640 ( F U N C A L L T E S T ( \
0007660 , I T E M ) ( F U N C A L L
0007700 K E Y ( A R E F ( \ , \r
0007720 S E Q U E N C E ) I N D E X )
0007740 ) ) ( R E T U R N I N D E X
0007760 ) ) ) ) ) ) ) \r ( P U T P R O P
0010000 S C M L S E Q C O P Y R I G
0010020 H T ( " X e r o x C o r p o
0010040 r a t i o n " 1 9 8 5 ) ) \r N
0010060 I L \r
0010063