$ 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