$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSEQBASICS.DCOM!5
0000000 ( F I L E C R E A T E D " 1
0000020 - O c t - 8 6 1 9 : 3 3 : 3 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 E Q
0000120 B A S I C S . ; 4 ) \r " 2 9 -
0000140 S e p - 8 6 1 5 : 1 3 : 0 9 "
0000160 i n " X e r o x L i s p
0000200 2 9 - S e p - 8 6 . . . " d
0000220 a t e d " 2 9 - S e p - 8 6
0000240 1 5 : 4 1 : 0 4 " ) \r ( F I L E
0000260 C R E A T E D " 1 - O c t -
0000300 8 6 1 9 : 3 2 : 5 7 " { E R
0000320 I S } < L I S P C O R E > S O U
0000340 R C E S > C M L S E Q B A S I C
0000360 S . ; 4 1 9 4 4 8 c h a n g
0000400 e s t o : ( F U N C T I O N
0000420 S \r C H E C K - S U B S E Q )
0000440 p r e v i o u s d a t e :
0000460 " 2 9 - S e p - 8 6 1 3 : 4 7
0000500 : 3 7 " { E R I S } < L I S P
0000520 C O R E > S O U R C E S > C M L
0000540 S E Q B A S I C S . ; 3 ) \r ( R
0000560 P A Q Q C M L S E Q B A S I C
0000600 S C O M S ( ( D E C L A R E :
0000620 E V A L @ C O M P I L E D O
0000640 N T C O P Y ( F I L E S C M
0000660 L S E Q C O M M O N ) ) ( F U
0000700 N C T I O N S C H E C K - S U
0000720 B S E Q \r M A K E - S E Q U E
0000740 N C E - O F - T Y P E ) ( C O
0000760 M S ( F U N C T I O N S C L
0001000 : E L T % % S E T E L T ) (
0001020 S E T F S C L : E L T ) ) (
0001040 C O M S ( F U N C T I O N S
0001060 S U B S E Q \r L I S T - S U B
0001100 S E Q * V E C T O R - S U B S
0001120 E Q * ) ( S E T F S S U B S
0001140 E Q ) ) ( F U N C T I O N S
0001160 C O P Y - S E Q L I S T - C O
0001200 P Y - S E Q L I S T - C O P Y
0001220 - S E Q * \r V E C T O R - C O
0001240 P Y - S E Q V E C T O R - C O
0001260 P Y - S E Q * ) ( F U N C T I
0001300 O N S C L : L E N G T H ) (
0001320 F U N C T I O N S C L : R E V
0001340 E R S E L I S T - R E V E R S
0001360 E - M A C R O \r V E C T O R -
0001400 R E V E R S E V E C T O R - R
0001420 E V E R S E * ) ( F U N C T I
0001440 O N S N R E V E R S E L I S
0001460 T - N R E V E R S E - M A C R O
0001500 L I S T - N R E V E R S E *
0001520 V E C T O R - N R E V E R S E \r
0001540 V E C T O R - N R E V E R S E
0001560 * ) ( F U N C T I O N S M A
0001600 K E - S E Q U E N C E ) ( F U
0001620 N C T I O N S C O N C A T E N
0001640 A T E C O N C A T E N A T E -
0001660 T O - L I S T \r C O N C A T -
0001700 T O - L I S T * C O N C A T -
0001720 T O - S I M P L E * ) ( P R O
0001740 P S ( C M L S E Q B A S I C S
0001760 F I L E T Y P E ) ) ) ) \r C H
0002000 E C K - S U B S E Q D 1 \r ( L
0002020 ( 3 L E N G T H 2 E N D
0002040 1 S T A R T 0 S E Q ) )
0002060 \0 H \0 \0 \0 004 C \t \0 \0 265 B j A 363
0002100 263 025 A B \n \0 \0 221 h 200 i 262 023 C A 363
0002120 221 h 200 i 230 o \0 \0 \0 A \n \0 \0 020 j B
0002140 363 243 B C 363 230 o \0 \0 \0 B \n \0 \0 020 A
0002160 B 363 264 \v o \0 \0 \0 A B \v \0 \0 020 \0 (
0002200 1 0 5 Q C L : E R R O R 6 6
0002220 Q C L : E R R O R 4 5 Q C
0002240 L : E R R O R 1 7 Q % % =
0002260 3 C L : Z E R O P ) \r N I L \r
0002300 ( 1 0 0 Q " I l l e g a l
0002320 s u b s e q u e n c e : ~ & S T
0002340 A R T ( ~ D ) m a y n o t
0002360 b e g r e a t e r t h a n
0002400 E N D ( ~ D ) . " 6 2 Q
0002420 " I n d e x o u t o f r a
0002440 n g e : ~ D . " \r 4 1 Q "
0002460 I n d e x o u t o f r a n
0002500 g e : ~ D . " ) \r M A K E - S
0002520 E Q U E N C E - O F - T Y P E
0002540 D 1 \r ( L ( 1 L E N G T H
0002560 0 T Y P E ) ) \0 w 001 \0 \0 002 @
0002600 d 003 220 001 021 001 \0 H d g \0 \0 360 225 277 A
0002620 \t \0 \0 020 g \0 \0 360 247 H d g \0 \0 360 233
0002640 277 A g \0 \0 g \0 \0 \v \0 \0 020 g \0 \0 360
0002660 247 H d g \0 \0 360 225 277 A \t \0 \0 020 g \0
0002700 \0 360 224 A \t \0 \0 020 H g \0 \0 360 254 H g
0002720 \0 \0 360 246 H g \0 \0 360 262 023 @ 223 @ 003 262
0002740 344 A g \0 \0 @ 002 001 \v \0 \0 020 o \0 \0 \0
0002760 @ \n \0 \0 020 \0 ( 1 6 4 Q C L : E
0003000 R R O R 1 5 3 Q M A K E - A
0003020 R R A Y 1 0 7 Q M A K E - A
0003040 R R A Y 7 5 Q M A K E - S T
0003060 R I N G 5 3 Q M A K E - A R
0003100 R A Y 2 3 Q M A K E - L I S
0003120 T ) \r ( 1 4 5 Q : E L E M E N
0003140 T - T Y P E 1 3 0 Q V E C T
0003160 O R 1 2 2 Q S I M P L E - A
0003200 R R A Y 1 1 4 Q A R R A Y
0003220 1 0 1 Q S I M P L E - V E C T
0003240 O R 6 6 Q S I M P L E - S T
0003260 R I N G 5 7 Q S T R I N G
0003300 5 0 Q B I T 4 5 Q : E L E
0003320 M E N T - T Y P E 3 6 Q S I
0003340 M P L E - B I T - V E C T O R
0003360 2 7 Q B I T - V E C T O R 1
0003400 4 Q L I S T ) \r ( 1 6 0 Q
0003420 " ~ S i s a b a d t y p
0003440 e s p e c i f i e r f o r
0003460 s e q u e n c e f u n c t i o
0003500 n s . " ) \r C L : E L T D 1 \r
0003520 ( L ( 1 I N D E X 0 S E
0003540 Q U E N C E ) ) \0 211 003 \0 \0 002 j
0003560 A 363 237 g \0 \0 g \0 \0 @ g \0 \0 A \r 005
0003600 \0 \0 277 @ 021 ! 002 H Y 227 I d 303 \0 \0 262
0003620 F 277 A Z j \n \0 \0 262 034 @ d \t \0 \0 262
0003640 023 277 g \0 \0 g \0 \0 @ g \0 \0 A \r 005 \0
0003660 \0 020 001 020 @ d \t \0 \0 262 023 277 g \0 \0 g
0003700 \0 \0 @ g \0 \0 A \r 005 \0 \0 202 002 b \0 277
0003720 J k 325 260 300 \t \0 \0 264 023 A @ \t \0 \0 375
0003740 363 221 h 200 i 263 275 @ A 266 020 g \0 \0 H o
0003760 \0 \0 \0 \f \0 \0 020 \0 ( 2 0 6 Q C H
0004000 E C K - T Y P E - F A I L 1 5
0004020 7 Q V E C T O R - L E N G T H
0004040 1 5 0 Q V E C T O R P 1 3
0004060 3 Q C L : E R R O R 1 1 1 Q
0004100 E N D P 1 0 1 Q C L : E R
0004120 R O R 5 7 Q E N D P 5 0 Q
0004140 % % = 2 2 Q C L : E R R O
0004160 R ) \r ( 1 7 6 Q S E Q U E N C
0004200 E 1 2 6 Q : I N D E X 1 2
0004220 2 Q : N A M E 1 1 7 Q I N
0004240 D E X - B O U N D S - E R R O R
0004260 7 4 Q : I N D E X 7 0 Q
0004300 : N A M E 6 5 Q I N D E X -
0004320 B O U N D S - E R R O R 3 7 Q
0004340 L I S T P 1 5 Q : I N D E
0004360 X 1 1 Q : N A M E 6 I N
0004400 D E X - B O U N D S - E R R O R
0004420 ) \r ( 2 0 3 Q ( O R L I S
0004440 T V E C T O R ) ) \r % % S E T
0004460 E L T D 1 \r ( L ( 2 N E W
0004500 V A L 1 I N D E X 0 S E
0004520 Q U E N C E ) ) \0 241 006 \0 \0 003 j
0004540 A 363 237 g \0 \0 g \0 \0 @ g \0 \0 A \r 005
0004560 \0 \0 277 @ 021 Q 005 H Y 227 I d 303 \0 \0 262
0004600 J 277 A @ 273 Z j \n \0 \0 262 036 K d \t \0
0004620 \0 262 023 277 g \0 \0 g \0 \0 @ g \0 \0 A \r
0004640 005 \0 \0 201 B 030 B 020 K d 002 \t \0 \0 262 023
0004660 277 g \0 \0 g \0 \0 @ g \0 \0 A \r 005 \0 \0
0004700 201 002 [ 277 J k 325 260 276 \t \0 \0 264 ' A @
0004720 \t \0 \0 375 363 221 h 200 i 237 g \0 \0 g \0 \0
0004740 @ g \0 \0 A \r 005 \0 \0 020 @ 274 A 275 B L
0004760 M 267 020 g \0 \0 H o \0 \0 \0 \f \0 \0 020 \0
0005000 ( 2 3 6 Q C H E C K - T Y P E
0005020 - F A I L 2 1 1 Q C L : E R
0005040 R O R 1 6 3 Q V E C T O R -
0005060 L E N G T H 1 5 4 Q V E C T
0005100 O R P 1 4 0 Q C L : E R R O
0005120 R 1 1 6 Q E N D P 1 0 3 Q
0005140 C L : E R R O R 6 1 Q E N
0005160 D P 5 2 Q % % = 2 2 Q C
0005200 L : E R R O R ) \r ( 2 2 6 Q S
0005220 E Q U E N C E 2 0 4 Q : I N
0005240 D E X 2 0 0 Q : N A M E 1
0005260 7 5 Q I N D E X - B O U N D S
0005300 - E R R O R 1 3 3 Q : I N D
0005320 E X 1 2 7 Q : N A M E 1 2
0005340 4 Q I N D E X - B O U N D S -
0005360 E R R O R 7 6 Q : I N D E X
0005400 7 2 Q : N A M E 6 7 Q I
0005420 N D E X - B O U N D S - E R R O
0005440 R 3 7 Q L I S T P 1 5 Q
0005460 : I N D E X 1 1 Q : N A M E
0005500 6 I N D E X - B O U N D S -
0005520 E R R O R ) \r ( 2 3 3 Q ( O
0005540 R L I S T V E C T O R ) ) \r
0005560 ( R E M P R O P ( Q U O T E
0005600 C L : E L T ) ( Q U O T E S
0005620 E T F - M E T H O D - E X P A N
0005640 D E R ) ) \r ( P U T P R O P S
0005660 C L : E L T S E T F - I N V E
0005700 R S E % % S E T E L T ) \r S U
0005720 B S E Q D 1 \r ( L ( 2 E N
0005740 D 1 S T A R T 0 S E Q U
0005760 E N C E ) ) \0 ; 002 \0 \0 003 j A 363
0006000 230 o \0 \0 \0 A \n \0 \0 020 @ 021 021 001 H Y
0006020 226 I d 303 \0 \0 227 277 @ A B \v \0 \0 020 \t
0006040 \0 \0 264 \t @ A B \v \0 \0 020 g \0 \0 H o
0006060 \0 \0 \0 \f \0 \0 020 \0 ( 7 0 Q C H E
0006100 C K - T Y P E - F A I L 5 4 Q
0006120 V E C T O R - S U B S E Q *
0006140 4 4 Q V E C T O R P 4 0 Q
0006160 L I S T - S U B S E Q * 1 3 Q
0006200 C L : E R R O R ) \r ( 6 0 Q
0006220 S E Q U E N C E 3 0 Q L I S
0006240 T P ) \r ( 6 5 Q ( O R L I
0006260 S T V E C T O R ) 7 " I n
0006300 d e x o u t o f r a n g e
0006320 : ~ D . " ) \r L I S T - S U B
0006340 S E Q * D 1 \r ( L ( 2 E N
0006360 D 1 S T A R T 0 S E Q U
0006400 E N C E ) ) \0 215 005 \0 \0 003 B 235 A
0006420 B 363 231 o \0 \0 \0 A B \v \0 \0 020 @ 241 h
0006440 020 B 262 ! A d B \n \0 \0 262 032 277 A @ \t
0006460 \0 \0 375 363 221 h 200 i 264 # o \0 \0 \0 A \n
0006500 \0 \0 020 A @ \n \0 \0 021 021 001 H 001 h 032 271
0006520 H 265 \v o \0 \0 \0 A \n \0 \0 020 002 I A k
0006540 324 021 003 004 J \t \0 \0 263 036 B 265 023 J 002 K
0006560 d J 001 & 277 002 L k 324 274 273 Z 260 351 L 363
0006600 221 h 200 i 262 351 B 225 L B \n \0 \0 221 I 020
0006620 o \0 \0 \0 B \n \0 \0 020 \0 ( 2 1 2 Q
0006640 C L : E R R O R 1 7 7 Q % %
0006660 = 1 3 2 Q E N D P 1 1 5 Q
0006700 C L : E R R O R 7 2 Q N T
0006720 H C D R 6 4 Q C L : E R R O
0006740 R 4 4 Q C L : L E N G T H
0006760 3 4 Q % % = 1 6 Q C L : E
0007000 R R O R ) \r N I L \r ( 2 0 6 Q
0007020 " I n d e x o u t o f r
0007040 a n g e : ~ D . " 1 1 1 Q
0007060 " I n d e x o u t o f r a
0007100 n g e : ~ D . " 6 0 Q " I
0007120 n d e x o u t o f r a n g
0007140 e : ~ D . " 1 1 Q " I l l
0007160 e g a l s u b s e q u e n c e
0007200 : ~ & S T A R T ( ~ D ) m a
0007220 y n o t b e g r e a t e r
0007240 t h a n E N D ( ~ D ) . "
0007260 ) \r V E C T O R - S U B S E Q *
0007300 D 1 \r ( L ( 2 E N D 1
0007320 S T A R T 0 S E Q U E N C E
0007340 ) ) \0 245 \t \0 \0 003 @ \t \0 \0 021 Q 005
0007360 B 221 h 200 i 223 H b 004 277 A B 363 231 o \0
0007400 \0 \0 A B \v \0 \0 020 H d \t \0 \0 225 277 @
0007420 \t \0 \0 020 A 363 221 h 200 i 230 o \0 \0 \0 A
0007440 \n \0 \0 020 A j @ [ Z Y 226 I d 303 \0 \0
0007460 230 277 B A 325 \t \0 \0 260 - \t \0 \0 227 B A
0007500 325 \t \0 \0 260 ! I \t \0 \0 264 020 B A 325 g
0007520 \0 \0 K \t \0 \0 \v \0 \0 212 g \0 \0 J o \0
0007540 \0 \0 \f \0 \0 021 003 \b B N 363 221 h 200 i 222
0007560 O 020 020 O 020 275 O 016 274 @ N 266 M L 267 277
0007600 N k 324 O 016 k 324 _ 016 277 276 260 335 \0 ( 1
0007620 7 3 Q C H E C K - T Y P E - F
0007640 A I L 1 5 7 Q M A K E - A R
0007660 R A Y 1 5 4 Q A R R A Y - E
0007700 L E M E N T - T Y P E 1 4 0 Q
0007720 C L : A R R A Y P 1 3 2 Q
0007740 M A K E - S T R I N G 1 2 3 Q
0007760 C L : S T R I N G P 1 1 6 Q
0010000 M A K E - L I S T 7 1 Q C
0010020 L : E R R O R 5 1 Q C O P Y
0010040 - S E Q 4 3 Q C L : Z E R O
0010060 P 3 5 Q C L : E R R O R 3
0010100 V E C T O R - L E N G T H ) \r
0010120 ( 1 6 3 Q S E Q 1 5 0 Q :
0010140 E L E M E N T - T Y P E 1 0 6
0010160 Q L I S T P ) \r ( 1 7 0 Q
0010200 ( O R L I S T S T R I N G
0010220 A R R A Y ) 6 5 Q " I n d e
0010240 x o u t o f r a n g e :
0010260 ~ D . " 3 0 Q " I l l e g a
0010300 l s u b s e q u e n c e : ~ &
0010320 S T A R T ( ~ D ) m a y n
0010340 o t b e g r e a t e r t h
0010360 a n E N D ( ~ D ) . " ) \r (
0010400 R E M P R O P ( Q U O T E S
0010420 U B S E Q ) ( Q U O T E S E
0010440 T F - I N V E R S E ) ) \r S U B
0010460 S E Q - s e t f - e x p a n d e
0010500 r D 1 \r ( P 1 3 Q N E W -
0010520 S E Q U E N C E P 5 S U B
0010540 S E Q - s e t f - f o r m P
0010560 4 D U M M I E S P 3 X
0010600 I 0 A C C E S S - F O R M )
0010620 \0 w \f \0 \0 001 021 @ 003 @ 260 030 d 001 273
0010640 \b \0 \0 270 I 221 h 200 i 224 H h 032 Z 202 I
0010660 H & 271 002 003 265 350 J 022 021 a \n @ 001 L 032
0010700 275 \b \0 \0 021 001 \v L @ 002 O 026 h 032 M 002
0010720 _ 024 001 _ 022 277 O 024 002 _ 020 001 _ 016 277 O
0010740 020 002 d 220 001 276 g \0 \0 g \0 \0 O 022 O 026
0010760 g \0 \0 O 016 g \0 \0 N h 032 032 032 032 032 032
0011000 032 O 026 h 032 032 032 M \r 005 \0 \0 020 \0 ( 1
0011020 6 4 Q V A L U E S 5 4 Q G
0011040 E N S Y M 1 3 Q G E N S Y M
0011060 ) \r ( 1 4 0 Q : E N D 1 1 3
0011100 3 Q : S T A R T 1 1 2 4 Q
0011120 C L : R E P L A C E 1 2 1 Q
0011140 P R O G N ) \r ( ) \r ( P U T P R
0011160 O P S S U B S E Q S E T F -
0011200 M E T H O D - E X P A N D E R
0011220 S U B S E Q - s e t f - e x p a
0011240 n d e r ) \r C O P Y - S E Q D
0011260 1 \r ( L ( 0 S E Q U E N C E
0011300 ) ) \0 * 002 \0 \0 001 @ 021 021 001 H Y 226
0011320 I d 303 \0 \0 225 277 @ \t \0 \0 020 \t \0 \0 264
0011340 \a @ \t \0 \0 020 g \0 \0 H o \0 \0 \0 \f \0
0011360 \0 020 \0 ( 4 7 Q C H E C K - T Y
0011400 P E - F A I L 3 3 Q V E C T
0011420 O R - C O P Y - S E Q * 2 5 Q
0011440 V E C T O R P 2 1 Q L I S
0011460 T - C O P Y - S E Q * ) \r ( 3 7
0011500 Q S E Q U E N C E 1 3 Q L
0011520 I S T P ) \r ( 4 4 Q ( O R
0011540 L I S T V E C T O R ) ) \r e x
0011560 p a n d - L I S T - C O P Y - S
0011600 E Q D 1 \r ( L ( 1 $ $ M A
0011620 C R O - E N V I R O N M E N T
0011640 0 $ $ M A C R O - F O R M ) )
0011660 \0 017 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0
0011700 H h 032 032 020 \0 N I L \r ( 1 0 Q A
0011720 P P E N D ) \r ( ) \r ( S E T F -
0011740 M A C R O - F U N C T I O N (
0011760 Q U O T E L I S T - C O P Y -
0012000 S E Q ) ( Q U O T E e x p a
0012020 n d - L I S T - C O P Y - S E Q
0012040 ) ) \r L I S T - C O P Y - S E Q
0012060 * D 1 \r ( L ( 0 S E Q U E
0012100 N C E ) ) \0 006 \0 \0 \0 001 @ \t \0 \0
0012120 020 \0 ( 3 \ A P P E N D 2 ) \r N
0012140 I L \r ( ) \r e x p a n d - V E C
0012160 T O R - C O P Y - S E Q D 1 \r
0012200 ( L ( 1 $ $ M A C R O - E N
0012220 V I R O N M E N T 0 $ $ M A
0012240 C R O - F O R M ) ) \0 f 003 \0 \0
0012260 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0
0012300 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I h 032 032
0012320 032 h 032 032 h 032 032 h 032 g \0 \0 o \0 \0 \0
0012340 g \0 \0 g \0 \0 J o \0 \0 \0 032 032 h 032 032
0012360 h 032 032 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0
0012400 \0 I o \0 \0 \0 032 032 h 032 032 032 h 032 032 032
0012420 032 h 032 032 032 020 \0 N I L \r ( 1 1 7 Q
0012440 A R E F 1 1 0 Q S E T F
0012460 6 4 Q M A K E - S E Q U E N C
0012500 E - O F - T Y P E 6 1 Q C O
0012520 P Y 5 2 Q C L : D O 3 2 Q
0012540 V E C T O R 2 7 Q T H E
0012560 2 4 Q V E C T O R - L E N G T
0012600 H 2 1 Q L E N G T H 1 6 Q
0012620 L E T ) \r ( 1 2 4 Q ( I N
0012640 D E X ) 1 1 4 Q ( A R E F
0012660 C O P Y I N D E X ) 1 0 5 Q
0012700 ( ( = I N D E X L E N G T
0012720 H ) C O P Y ) 7 1 Q ( L E
0012740 N G T H ) 5 6 Q ( I N D E X
0012760 0 ( 1 + I N D E X ) ) ) \r
0013000 ( S E T F - M A C R O - F U N C
0013020 T I O N ( Q U O T E V E C T
0013040 O R - C O P Y - S E Q ) ( Q U
0013060 O T E e x p a n d - V E C T O
0013100 R - C O P Y - S E Q ) ) \r V E C
0013120 T O R - C O P Y - S E Q * D 1
0013140 \r ( L ( 0 S E Q U E N C E )
0013160 ) \0 * 005 \0 \0 001 @ \t \0 \0 021 A 004 j
0013200 @ \t \0 \0 H \n \0 \0 272 Y H \n \0 \0 221 J
0013220 020 J 274 I 273 @ I 266 L K 267 277 I k 324 260
0013240 352 \0 ( 2 5 Q % % = 1 7 Q M
0013260 A K E - S E Q U E N C E - O F -
0013300 T Y P E 1 3 Q T Y P E - O F
0013320 3 V E C T O R - L E N G T H
0013340 ) \r N I L \r ( ) \r C L : L E N G
0013360 T H D 1 \r ( L ( 0 S E Q U
0013400 E N C E ) ) \0 * 002 \0 \0 001 @ 021 021
0013420 001 H Y 226 I d 303 \0 \0 225 277 @ \t \0 \0 020
0013440 \t \0 \0 264 \a @ \t \0 \0 020 g \0 \0 H o \0
0013460 \0 \0 \f \0 \0 020 \0 ( 4 7 Q C H E C
0013500 K - T Y P E - F A I L 3 3 Q
0013520 V E C T O R - L E N G T H 2 5
0013540 Q V E C T O R P 2 1 Q L E
0013560 N G T H ) \r ( 3 7 Q S E Q U E
0013600 N C E 1 3 Q L I S T P ) \r (
0013620 4 4 Q ( O R L I S T V E
0013640 C T O R ) ) \r C L : R E V E R S
0013660 E D 1 \r ( L ( 0 S E Q U E
0013700 N C E ) ) \0 * 002 \0 \0 001 @ 021 021 001
0013720 H Y 226 I d 303 \0 \0 225 277 @ \t \0 \0 020 \t
0013740 \0 \0 264 \a @ \t \0 \0 020 g \0 \0 H o \0 \0
0013760 \0 \f \0 \0 020 \0 ( 4 7 Q C H E C K
0014000 - T Y P E - F A I L 3 3 Q V
0014020 E C T O R - R E V E R S E * 2
0014040 5 Q V E C T O R P 2 1 Q R
0014060 E V E R S E ) \r ( 3 7 Q S E Q
0014100 U E N C E 1 3 Q L I S T P )
0014120 \r ( 4 4 Q ( O R L I S T
0014140 V E C T O R ) ) \r e x p a n d -
0014160 L I S T - R E V E R S E - M A C
0014200 R O D 1 \r ( L ( 1 $ $ M A
0014220 C R O - E N V I R O N M E N T
0014240 0 $ $ M A C R O - F O R M ) )
0014260 \0 0 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0
0014300 o \0 \0 \0 g \0 \0 H h 032 032 o \0 \0 \0 032
0014320 g \0 \0 g \0 \0 H h 032 032 o \0 \0 \0 032 032
0014340 h 032 032 032 032 020 \0 N I L \r ( 3 6 Q
0014360 C L : P O P 3 3 Q C L : P U
0014400 S H 1 7 Q E N D P 1 0 Q
0014420 C L : D O ) \r ( 4 6 Q ( N E
0014440 W - L I S T ) 2 7 Q ( N E W
0014460 - L I S T ) 1 4 Q ( ( N E W
0014500 - L I S T N I L ) ) ) \r ( S E
0014520 T F - M A C R O - F U N C T I O
0014540 N ( Q U O T E L I S T - R E
0014560 V E R S E - M A C R O ) ( Q U
0014600 O T E e x p a n d - L I S T -
0014620 R E V E R S E - M A C R O ) ) \r
0014640 e x p a n d - V E C T O R - R E
0014660 V E R S E D 1 \r ( L ( 1 $
0014700 $ M A C R O - E N V I R O N M E
0014720 N T 0 $ $ M A C R O - F O R
0014740 M ) ) \0 a 003 \0 \0 002 @ 002 021 ! 002 H
0014760 001 271 H 002 001 272 g \0 \0 g \0 \0 g \0 \0 I
0015000 h 032 032 h 032 032 h 032 g \0 \0 o \0 \0 \0 o
0015020 \0 \0 \0 g \0 \0 g \0 \0 J o \0 \0 \0 032 032
0015040 h 032 032 h 032 032 032 o \0 \0 \0 g \0 \0 o \0
0015060 \0 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 032 032
0015100 h 032 032 032 032 h 032 032 032 020 \0 N I L \r (
0015120 1 1 2 Q A R E F 1 0 3 Q S
0015140 E T F 5 6 Q M A K E - S E Q
0015160 U E N C E - O F - T Y P E 5 3
0015200 Q N E W - S E Q U E N C E 4
0015220 0 Q C L : D O 2 4 Q V E C
0015240 T O R - L E N G T H 2 1 Q L
0015260 E N G T H 1 6 Q L E T ) \r (
0015300 1 1 7 Q ( B A C K W A R D -
0015320 I N D E X ) 1 0 7 Q ( A R E
0015340 F N E W - S E Q U E N C E F
0015360 O R W A R D - I N D E X ) 1 0
0015400 0 Q ( ( = F O R W A R D - I
0015420 N D E X L E N G T H ) N E W
0015440 - S E Q U E N C E ) \r 6 3 Q
0015460 ( L E N G T H ) 5 0 Q ( B A
0015500 C K W A R D - I N D E X ( 1 -
0015520 L E N G T H ) ( 1 - B A C
0015540 K W A R D - I N D E X ) ) 4 4
0015560 Q ( F O R W A R D - I N D E X
0015600 0 ( 1 + F O R W A R D - I
0015620 N D E X ) ) ) \r ( S E T F - M A
0015640 C R O - F U N C T I O N ( Q U
0015660 O T E V E C T O R - R E V E R
0015700 S E ) ( Q U O T E e x p a n
0015720 d - V E C T O R - R E V E R S E
0015740 ) ) \r V E C T O R - R E V E R S
0015760 E * D 1 \r ( L ( 0 S E Q U
0016000 E N C E ) ) \0 4 006 \0 \0 001 @ \t \0
0016020 \0 021 ! 002 j H k 325 @ \t \0 \0 H \n \0 \0
0016040 021 003 005 K H \n \0 \0 221 M 020 M 272 K 271 @
0016060 L 266 J I 267 277 K k 324 L k 325 274 [ 260 346
0016100 \0 ( 3 2 Q % % = 2 2 Q M A
0016120 K E - S E Q U E N C E - O F - T
0016140 Y P E 1 6 Q T Y P E - O F
0016160 3 V E C T O R - L E N G T H )
0016200 \r N I L \r ( ) \r N R E V E R S E
0016220 D 1 \r ( L ( 0 S E Q U E N
0016240 C E ) ) \0 * 002 \0 \0 001 @ 021 021 001 H
0016260 Y 226 I d 303 \0 \0 225 277 @ \t \0 \0 020 \t \0
0016300 \0 264 \a @ \t \0 \0 020 g \0 \0 H o \0 \0 \0
0016320 \f \0 \0 020 \0 ( 4 7 Q C H E C K -
0016340 T Y P E - F A I L 3 3 Q V E
0016360 C T O R - N R E V E R S E * 2
0016400 5 Q V E C T O R P 2 1 Q D
0016420 R E V E R S E ) \r ( 3 7 Q S E
0016440 Q U E N C E 1 3 Q L I S T P
0016460 ) \r ( 4 4 Q ( O R L I S T
0016500 V E C T O R ) ) \r e x p a n d
0016520 - L I S T - N R E V E R S E - M
0016540 A C R O D 1 \r ( L ( 1 $ $
0016560 M A C R O - E N V I R O N M E N
0016600 T 0 $ $ M A C R O - F O R M
0016620 ) ) \0 1 001 \0 \0 002 @ 002 001 021 001 \0 g
0016640 \0 \0 g \0 \0 g \0 \0 H h 032 032 o \0 \0 \0
0016660 032 032 g \0 \0 H o \0 \0 \0 032 032 o \0 \0 \0
0016700 032 032 o \0 \0 \0 032 032 020 \0 N I L \r ( 3
0016720 3 Q 2 N D 1 6 Q C D R 1
0016740 3 Q 1 S T 1 0 Q C L : D O
0016760 ) \r ( 5 4 Q ( ( ( E N D P
0017000 2 N D ) 3 R D ) ( R P L A C
0017020 D 2 N D 3 R D ) ) 4 6 Q
0017040 ( ( 3 R D ( Q U O T E N I L
0017060 ) 2 N D ) ) 4 0 Q ( 1 S T
0017100 ) 2 6 Q ( ( C O N D ( ( E
0017120 N D P 1 S T ) 1 S T ) ( T
0017140 ( C D R 1 S T ) ) ) ) ) \r (
0017160 S E T F - M A C R O - F U N C T
0017200 I O N ( Q U O T E L I S T -
0017220 N R E V E R S E - M A C R O )
0017240 ( Q U O T E e x p a n d - L I
0017260 S T - N R E V E R S E - M A C R
0017300 O ) ) \r L I S T - N R E V E R S
0017320 E * D 1 \r ( L ( 0 S E Q U
0017340 E N C E ) ) \0 # 003 \0 \0 001 @ 002 @
0017360 021 022 002 I d \t \0 \0 221 J 020 J 031 277 H d
0017400 \t \0 \0 222 277 H 200 002 H I 272 271 270 260 346 \0
0017420 ( 2 5 Q E N D P 1 2 Q E N
0017440 D P ) \r N I L \r ( ) \r e x p a n
0017460 d - V E C T O R - N R E V E R S
0017500 E D 1 \r ( L ( 1 $ $ M A C
0017520 R O - E N V I R O N M E N T 0
0017540 $ $ M A C R O - F O R M ) )
0017560 \0 W 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g
0017600 \0 \0 g \0 \0 g \0 \0 g \0 \0 H h 032 032 032
0017620 h 032 032 h 032 032 h 032 g \0 \0 o \0 \0 \0 o
0017640 \0 \0 \0 H h 032 032 g \0 \0 g \0 \0 H o \0
0017660 \0 \0 032 032 g \0 \0 H o \0 \0 \0 032 032 h 032
0017700 032 032 h 032 032 032 032 h 032 032 032 020 \0 N I L
0017720 \r ( 1 0 0 Q A R E F 6 6 Q
0017740 A R E F 6 3 Q R O T A T E F
0017760 4 4 Q C L : D O 2 4 Q V
0020000 E C T O R 2 1 Q T H E 1 6
0020020 Q V E C T O R - L E N G T H
0020040 1 3 Q L E N G T H 1 0 Q L
0020060 E T ) \r ( 1 0 5 Q ( R I G H
0020100 T - I N D E X ) 7 3 Q ( L E
0020120 F T - I N D E X ) 5 4 Q ( =
0020140 L E F T - I N D E X H A L F
0020160 - L E N G T H ) 5 0 Q ( ( L
0020200 E F T - I N D E X 0 ( 1 +
0020220 L E F T - I N D E X ) ) ( R I
0020240 G H T - I N D E X ( 1 - L E
0020260 N G T H ) ( 1 - R I G H T -
0020300 I N D E X ) ) ( H A L F - L E
0020320 N G T H ( I Q U O T I E N T
0020340 L E N G T H 2 ) ) ) ) \r ( S E
0020360 T F - M A C R O - F U N C T I O
0020400 N ( Q U O T E V E C T O R -
0020420 N R E V E R S E ) ( Q U O T E
0020440 e x p a n d - V E C T O R - N
0020460 R E V E R S E ) ) \r V E C T O R
0020500 - N R E V E R S E * D 1 \r ( L
0020520 ( 0 S E Q U E N C E ) ) \0
0020540 B \t \0 \0 001 @ \t \0 \0 021 Q 005 j H k 325
0020560 H l 002 333 021 003 \b N O 020 \n \0 \0 221 @ 020
0020600 @ 275 N 274 M L 266 273 @ 272 O 016 271 J I 266
0020620 M L 267 277 K J I 267 277 N k 324 O 016 k 325
0020640 _ 016 277 ^ 260 324 \0 ( 2 7 Q % % =
0020660 3 V E C T O R - L E N G T H )
0020700 \r N I L \r ( ) \r M A K E - S E Q
0020720 U E N C E D 1 \r ( L ( 0 -
0020740 a r g s - ) ) \0 341 \v \0 002 \0 e 021
0020760 001 \0 k a 021 221 \n l 002 a 272 H l 003 274 273
0021000 L d K 363 231 277 h 275 I d 003 263 027 260 026 a
0021020 g \0 \0 360 225 L k 330 a 260 356 L l 002 324 \
0021040 260 341 001 ^ d g \0 \0 360 231 277 J g \0 \0 M
0021060 \v \0 \0 020 g \0 \0 360 250 N d g \0 \0 360 262
0021100 0 277 J \t \0 \0 _ 016 277 M 262 " j _ 024 J
0021120 \n \0 \0 263 031 O 016 _ 022 277 O 024 _ 020 277 M
0021140 O 022 O 020 267 277 O 024 k 324 260 343 O 016 020 g
0021160 \0 \0 360 230 J g \0 \0 M \v \0 \0 020 N g \0
0021200 \0 360 256 N g \0 \0 360 250 N d g \0 \0 360 262
0021220 031 277 I 223 I 003 262 336 J g \0 \0 I 002 001 g
0021240 \0 \0 M \r 005 \0 \0 020 g \0 \0 360 246 N g \0
0021260 \0 360 262 023 J g \0 \0 o \0 \0 \0 g \0 \0 M
0021300 \r 005 \0 \0 020 o \0 \0 \0 I \n \0 \0 020 \0 (
0021320 3 3 6 Q C L : E R R O R 3 2
0021340 5 Q M A K E - A R R A Y 2 7
0021360 0 Q M A K E - A R R A Y 2 1
0021400 5 Q M A K E - A R R A Y 1 4
0021420 4 Q % % = 1 2 7 Q M A K E
0021440 - S T R I N G 1 0 4 Q M A K
0021460 E - L I S T ) \r ( 3 2 0 Q : I
0021500 N I T I A L - E L E M E N T 3
0021520 1 1 Q : E L E M E N T - T Y P
0021540 E 3 0 2 Q S I M P L E - B I
0021560 T - V E C T O R 2 7 4 Q B I
0021600 T - V E C T O R 2 6 3 Q : I
0021620 N I T I A L - E L E M E N T 2
0021640 5 5 Q : E L E M E N T - T Y P
0021660 E 2 3 7 Q S I M P L E - A R
0021700 R A Y 2 3 0 Q V E C T O R
0021720 2 2 2 Q A R R A Y 2 1 1 Q
0021740 : I N I T I A L - E L E M E N T
0021760 2 0 3 Q S I M P L E - V E C
0022000 T O R 1 1 7 Q S T R I N G
0022020 1 1 0 Q S I M P L E - S T R I
0022040 N G 1 0 0 Q : I N I T I A L
0022060 - E L E M E N T 7 1 Q L I S
0022100 T 4 4 Q : I N I T I A L - E
0022120 L E M E N T ) \r ( 3 3 2 Q "
0022140 ~ S i s a b a d t y p e
0022160 s p e c i f i e r f o r s
0022200 e q u e n c e s . " 3 1 5 Q
0022220 ( M O D 2 ) ) \r C O N C A T E
0022240 N A T E D 1 \r ( L ( 0 - a
0022260 r g s - ) ) \0 330 \r \0 002 \0 e 021 001
0022300 \0 k a 021 a \a H l 002 021 2 \f O 022 d O
0022320 020 363 233 277 O 024 022 272 I d 003 263 % 260 $ a
0022340 _ 030 277 O 026 265 023 O 030 h 032 _ 026 _ 024 277
0022360 O 022 k 324 _ 022 260 330 O 030 & _ 026 277 260 362
0022400 001 [ d g \0 \0 360 262 & 277 g \0 \0 j 275 274
0022420 J 260 026 d 001 375 002 M k 330 ] n 002 \0 361 226
0022440 h l 4 \n \0 \0 277 265 354 M L 016 020 g \0 \0
0022460 360 263 1 K g \0 \0 360 263 * K g \0 \0 360 263
0022500 # K g \0 \0 360 263 034 K g \0 \0 360 263 025 K
0022520 g \0 \0 360 254 K g \0 \0 360 246 K g \0 \0 360
0022540 262 + g \0 \0 k _ 016 277 276 I J 260 030 d 001
0022560 375 002 O 016 k 330 _ 016 n 002 \0 361 226 h l 4
0022600 \n \0 \0 277 265 352 O 016 N 016 020 o \0 \0 \0 I
0022620 \n \0 \0 020 \0 ( 3 2 5 Q C L : E R
0022640 R O R 3 0 5 Q \ L I S P E R
0022660 R O R 1 5 0 Q \ L I S P E R
0022700 R O R ) \r ( 2 4 7 Q C O N C A
0022720 T - T O - S I M P L E * 2 4 1
0022740 Q S I M P L E - B I T - V E C
0022760 T O R 2 3 3 Q B I T - V E C
0023000 T O R 2 2 5 Q S I M P L E -
0023020 A R R A Y 2 1 6 Q A R R A Y
0023040 2 0 7 Q S T R I N G 2 0 0
0023060 Q V E C T O R 1 7 1 Q S I
0023100 M P L E - S T R I N G 1 6 2 Q
0023120 S I M P L E - V E C T O R 1
0023140 1 7 Q C O N C A T - T O - L I
0023160 S T * 1 1 0 Q L I S T ) \r (
0023200 3 2 1 Q " ~ S : i n v a l
0023220 i d o u t p u t t y p e s
0023240 p e c i f i c a t i o n . " ) \r
0023260 e x p a n d - C O N C A T E N A
0023300 T E - T O - L I S T D 1 \r ( L
0023320 ( 1 $ $ M A C R O - E N V I
0023340 R O N M E N T 0 $ $ M A C R
0023360 O - F O R M ) ) \0 + 001 \0 \0 002 @
0023400 002 001 021 001 \0 g \0 \0 o \0 \0 \0 g \0 \0 g
0023420 \0 \0 H o \0 \0 \0 032 032 o \0 \0 \0 032 o \0
0023440 \0 \0 032 032 h 032 032 032 020 \0 N I L \r ( 2
0023460 2 Q S E Q U E N C E S 1 7 Q
0023500 C L : D O 1 0 Q L E T ) \r
0023520 ( 4 2 Q ( ( ( N U L L S E
0023540 Q U E N C E S ) ( C D R R E
0023560 S U L T ) ) ( L E T ( ( S E
0023600 Q U E N C E ( C A R S E Q U
0023620 E N C E S ) ) ) ( S E Q - D I
0023640 S P A T C H S E Q U E N C E
0023660 ( C L : D O ( ( S E Q U E N C
0023700 E S E Q U E N C E ( C D R
0023720 S E Q U E N C E ) ) ) ( ( E N
0023740 D P S E Q U E N C E ) ) ( S
0023760 E T Q S P L I C E ( C D R
0024000 ( R P L A C D S P L I C E (
0024020 C O N S ( C A R S E Q U E N
0024040 C E ) N I L ) ) ) ) ) ( C L
0024060 : D O ( ( I N D E X 0 ( 1
0024100 + I N D E X ) ) ( L E N G T
0024120 H ( V E C T O R - L E N G T H
0024140 S E Q U E N C E ) ) ) ( ( =
0024160 I N D E X L E N G T H ) )
0024200 ( S E T Q S P L I C E ( C D
0024220 R ( R P L A C D S P L I C E
0024240 ( C O N S ( A R E F S E Q
0024260 U E N C E I N D E X ) N I L
0024300 ) ) ) ) ) ) ) ) \r 3 5 Q ( (
0024320 S P L I C E R E S U L T ) )
0024340 2 7 Q ( ( C D R S E Q U E N
0024360 C E S ) ) 1 4 Q ( ( R E S U
0024400 L T ( L I S T N I L ) ) ) )
0024420 \r ( S E T F - M A C R O - F U N
0024440 C T I O N ( Q U O T E C O N
0024460 C A T E N A T E - T O - L I S T
0024500 ) ( Q U O T E e x p a n d -
0024520 C O N C A T E N A T E - T O - L
0024540 I S T ) ) \r C O N C A T - T O -
0024560 L I S T * D 1 \r ( L ( 0 -
0024600 a r g s - ) ) \0 220 \n \0 002 \0 e 021
0024620 001 \0 H k 021 2 005 J d I 363 262 025 277 K 022
0024640 021 201 \t h h 032 272 I J 274 [ 265 032 J 002 020
0024660 a 275 L 265 \r M h 032 \ 273 J k 324 Z 260 332
0024700 M & 274 260 367 001 _ 022 _ 020 d 230 d 303 \0 \0
0024720 262 027 277 O 022 ] \t \0 \0 263 @ L d M 001 &
0024740 277 002 274 M 002 260 360 \t \0 \0 264 " j O 022 \t
0024760 \0 \0 _ 016 277 ^ O 016 \n \0 \0 263 036 L d O
0025000 022 N 266 & 277 002 274 N k 324 260 353 g \0 \0 O
0025020 020 o \0 \0 \0 \f \0 \0 277 K 002 260 217 \0 ( 2
0025040 1 1 Q C H E C K - T Y P E - F
0025060 A I L 1 5 4 Q % % = 1 4 3
0025100 Q V E C T O R - L E N G T H
0025120 1 3 3 Q V E C T O R P 1 1 2
0025140 Q E N D P ) \r ( 2 0 0 Q S E
0025160 Q U E N C E 1 0 1 Q L I S T
0025200 P ) \r ( 2 0 6 Q ( O R L I
0025220 S T V E C T O R ) ) \r C O N C
0025240 A T - T O - S I M P L E * D 1
0025260 \r ( L ( 0 - a r g s - ) )
0025300 \0 374 030 \0 002 \0 e 021 001 \0 k a 021 241 \v H
0025320 l 002 021 2 020 O 032 d O 030 363 262 / 277 O 034
0025340 022 Z j 021 022 023 O " 265 003 202 261 \0 272 J O
0025360 & \t \0 \0 j I O $ \n \0 \0 021 004 027 O ,
0025400 O $ \n \0 \0 262 & O . 020 a _ 277 O 036
0025420 265 023 O h 032 _ 036 _ 034 277 O 032 k 324 _
0025440 032 260 266 O & _ 036 277 260 362 O ( 001 _ 024
0025460 _ 022 d 230 d 303 \0 \0 262 " 277 O 024 ] \t \0
0025500 \0 263 U O . 274 O , 273 M 001 L K 267 277 O
0025520 , k 324 _ , 277 M 002 260 345 \t \0 \0 264 , j
0025540 _ 020 O * 001 \n \0 \0 263 . O . _ 016 277 O
0025560 , 276 O 024 O 020 266 O 016 N 267 277 O , k 324
0025600 _ , 277 O 020 k 324 260 331 g \0 \0 O 022 o \0
0025620 \0 \0 \f \0 \0 277 O ( 002 O * 002 _ * 277 _
0025640 ( 277 261 377 \ 001 \t \0 \0 _ 026 O & 032 _ &
0025660 277 O $ O 026 324 _ $ 277 O " 002 _ " 261 377
0025700 * \0 ( 3 4 2 Q C L : L E N G T
0025720 H 3 1 6 Q C H E C K - T Y P
0025740 E - F A I L 2 4 1 Q % % =
0025760 2 2 6 Q V E C T O R P 1 7 2
0026000 Q E N D P 7 6 Q % % = 6
0026020 4 Q M A K E - S E Q U E N C E
0026040 - O F - T Y P E 5 5 Q R E V
0026060 E R S E ) \r ( 3 0 5 Q S E Q U
0026100 E N C E 1 6 1 Q L I S T P )
0026120 \r ( 3 1 3 Q ( O R L I S T
0026140 V E C T O R ) ) \r ( P U T P R
0026160 O P S C M L S E Q B A S I C S
0026200 F I L E T Y P E C O M P I L
0026220 E - F I L E ) \r ( P U T P R O P
0026240 S C M L S E Q B A S I C S C
0026260 O P Y R I G H T ( " X e r o x
0026300 C o r p o r a t i o n " 1 9
0026320 8 6 ) ) \r N I L \r
0026331