$ od -c -N 50000 [qv]<IDL>koto>EARRAY-ITERATORS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J u n - 8 6 0 0 : 0 6 : 2 7
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > E A R R A Y - I T E R
0000120 A T O R S . ; 4 ) \r " 1 2 - N
0000140 o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 r e c o m p i l e d c h a n g
0000200 e s : G E N E R A T O R - S E
0000220 T U P I T E R A T O R - S E T
0000240 U P M E T A - I T E R A T O R
0000260 - S E T U P i n \r " I N T E
0000300 R L I S P - D 1 1 - M a y - 8
0000320 6 . . . " d a t e d " 1 1
0000340 - M a y - 8 6 1 5 : 1 9 : 0 8
0000360 " ) \r ( F I L E C R E A T E D
0000400 " 2 4 - J u n - 8 6 0 0 : 0 5
0000420 : 5 1 " { Q V } < P E D E R S
0000440 E N > L I S P > E A R R A Y - I
0000460 T E R A T O R S . ; 4 1 0 3 6
0000500 3 c h a n g e s t o : ( F
0000520 N S \r G E N E R A T O R - S E
0000540 T U P I T E R A T O R - S E T
0000560 U P M E T A - I T E R A T O R
0000600 - S E T U P ) p r e v i o u s
0000620 d a t e : " 1 6 - J u n - 8
0000640 6 1 8 : 3 3 : 3 7 " \r { Q V
0000660 } < P E D E R S E N > L I S P >
0000700 E A R R A Y - I T E R A T O R S
0000720 . ; 3 ) \r G E N E R A T O R - N
0000740 E X T E L T D 1 \r ( P 1 I
0000760 N D E X P 0 I T E R A T O
0001000 R I 0 G E N E R A T O R )
0001020 \0 0 002 \0 \0 001 @ d 004 ` \0 \0 360 262 '
0001040 006 \0 \0 311 002 021 001 \0 H \t \0 \0 021 001 001 I
0001060 251 H \t \0 \0 277 H \t \0 \0 271 @ 006 \0 \0 311
0001100 \0 I \n \0 \0 020 \0 ( 5 5 Q \ A R E
0001120 F . 1 4 2 Q I T E R A T O R
0001140 - N E X T I N D E X 3 5 Q I
0001160 T E R A T O R - R E S E T 2 4
0001200 Q I T E R A T O R - N E X T I
0001220 N D E X ) \r ( 4 7 Q G E N E R
0001240 A T O R 1 3 Q G E N E R A T
0001260 O R 5 004 003 G E N E R A T O R
0001300 T Y P E # ) \r ( ) \r G E N E R A
0001320 T O R - S E T N E X T E L T D
0001340 1 \r ( P 1 I N D E X P 0
0001360 I T E R A T O R I 1 G E
0001400 N E R A T O R I 0 N E W V
0001420 A L U E ) \0 : 002 \0 \0 002 A 004 ` \0
0001440 \0 360 262 * A 006 \0 \0 311 002 021 001 \0 H \t \0
0001460 \0 021 001 001 I 251 H \t \0 \0 277 H \t \0 \0 271
0001500 @ A 006 \0 \0 311 \0 I \v \0 \0 020 o \0 \0 \0
0001520 A \n \0 \0 020 \0 ( 6 7 Q H E L P
0001540 5 6 Q \ A S E T . 1 4 2 Q
0001560 I T E R A T O R - N E X T I N D
0001600 E X 3 5 Q I T E R A T O R -
0001620 R E S E T 2 4 Q I T E R A T
0001640 O R - N E X T I N D E X ) \r ( 5
0001660 0 Q G E N E R A T O R 1 3 Q
0001700 G E N E R A T O R 4 004 003 G
0001720 E N E R A T O R T Y P E # ) \r (
0001740 6 3 Q " N o t a g e n e
0001760 r a t o r " ) \r G E N E R A T O
0002000 R - S E T U P D 1 \r ( L ( 2
0002020 O L D G E N E R A T O R 1
0002040 I T E R A T O R 0 A R R A Y
0002060 ) ) \0 4 002 \0 \0 003 B 246 ` \0 \0 037 b
0002100 004 277 @ \t \0 \0 241 @ 020 B @ \t \0 \0 021 002
0002120 001 H d 006 \0 \0 I 024 \0 277 022 A 265 006 @ \t
0002140 \0 \0 021 002 001 H d I 024 002 277 020 \0 ( 5 0
0002160 Q I T E R A T O R - S E T U P
0002200 2 4 Q E A R R A Y - L I N E
0002220 A R I Z E 1 4 Q C L : A R R
0002240 A Y P ) \r ( 3 4 Q G E N E R A
0002260 T O R 4 004 003 G E N E R A T O
0002300 R T Y P E # ) \r ( ) \r I T E R A
0002320 T O R - N E X T I N D E X D 1
0002340 \r ( P 1 4 Q I N D E X P
0002360 1 3 Q I P 5 R E S U L T
0002400 P 4 E N D I T E R A T I O
0002420 N P 3 O F F S E T P 2
0002440 M U L T I P L I E R S P 1
0002460 L I M I T S P 0 I N D I
0002500 C E S I 0 I T E R A T O R
0002520 ) \0 304 \r \0 \0 001 @ 006 \0 \0 311 004 @ 006
0002540 \0 \0 311 006 @ 006 \0 \0 311 002 @ 006 \0 \0 311 \0
0002560 @ 006 \0 \0 311 \b 021 025 005 L 222 261 \0 236 K J
0002600 H j 021 # \n O 016 003 265 003 207 001 _ 022 277 N
0002620 003 265 ' O 020 022 330 275 H \t \0 \0 021 021 \f O
0002640 026 j 361 262 Y H O 026 \n \0 \0 _ 030 d 001 003
0002660 262 & 001 002 h 360 260 + 001 _ 024 277 O 020 O 024
0002700 O 022 d 003 220 001 332 324 _ 020 277 O 016 002 _ 016
0002720 277 N 002 276 260 261 001 k 330 I O 026 \n \0 \0 001
0002740 360 262 033 O 030 d 001 003 227 I O 026 \n \0 \0 001
0002760 200 j 030 277 O 026 k 331 _ 026 260 247 O 026 j 360
0003000 227 @ 006 \0 \0 i 024 \b 217 O 030 d d 001 003 224
0003020 277 d 001 002 202 001 k 330 030 M 020 \0 ( 2 2 6
0003040 Q F N T H 2 0 6 Q F N T H
0003060 1 2 2 Q F N T H 1 0 3 Q
0003100 L E N G T H ) \r ( 2 5 4 Q I T
0003120 E R A T O R 3 3 Q I T E R A
0003140 T O R 2 5 Q I T E R A T O R
0003160 1 7 Q I T E R A T O R 1 1
0003200 Q I T E R A T O R 3 I T E
0003220 R A T O R ) \r ( ) \r I T E R A T
0003240 O R - R E S E T D 1 \r ( L (
0003260 0 I T E R A T O R ) ) \0 Z \b
0003300 \0 \0 001 @ 006 \0 \0 311 004 @ 006 \0 \0 311 006 021
0003320 " 003 I H 021 " \a M 276 L 003 265 003 207 001 _
0003340 016 277 N 003 265 021 023 @ 006 \0 \0 I Z 003 265 032
0003360 h 024 \b @ 020 001 003 223 N O 016 201 N j 030 277
0003400 N 002 276 L 002 \ 260 324 001 [ 3 265 006 J 002
0003420 260 334 j 360 262 372 K 265 332 i 260 327 \0 N I L
0003440 \r ( 4 7 Q I T E R A T O R 1
0003460 1 Q I T E R A T O R 3 I T
0003500 E R A T O R ) \r ( ) \r I T E R A
0003520 T O R - S E T U P D 1 \r ( L
0003540 ( 3 O L D I T E R A T O R 2
0003560 D I M M A P 1 L E V E L M
0003600 A P S 0 B A S E A R R A Y )
0003620 ) 001 032 017 \0 \0 004 @ \t \0 \0 250 o \0 \0
0003640 \0 @ \n \0 \0 277 A 263 + @ \t \0 \0 k 021 2
0003660 004 I H 363 263 031 g \0 \0 274 K 265 \r L h 032
0003700 [ 272 I k 324 Y 260 354 L & 273 260 367 J 022 b
0003720 002 277 C 246 ` \0 \0 037 b 006 277 @ \t \0 \0 @
0003740 \t \0 \0 j 021 c \b H I A 021 3 016 O 026 003
0003760 265 004 260 025 001 _ 030 277 O 024 003 265 003 210 001 _
0004000 032 277 O 022 003 265 M K \t \0 \0 273 L \t \0 \0
0004020 274 M \t \0 \0 ] 023 M _ 016 003 265 y h ^ B
0004040 262 024 K B \n \0 \0 273 L B \n \0 \0 274 M B
0004060 \n \0 \0 275 C d 006 \0 \0 J 024 \0 277 d K 024
0004100 002 277 d L 024 004 277 d M 024 006 277 d N 024 \b
0004120 277 020 001 _ 034 277 O 030 3 231 J O 032 O 030
0004140 332 330 272 260 025 O 032 K 032 273 O 030 003 265 j
0004160 L 032 274 O 034 M 032 275 O 026 002 _ 026 277 O 024
0004200 002 _ 024 277 O 022 002 _ 022 277 261 377 c L 032 274
0004220 O 030 260 343 001 _ 020 3 265 \b O 016 002 261 377
0004240 z j 360 262 370 O 020 265 003 202 261 377 t i 261 377
0004260 p \0 ( 2 3 2 Q P E R M U T E L
0004300 I S T 2 2 4 Q P E R M U T E
0004320 L I S T 2 1 6 Q P E R M U T
0004340 E L I S T 1 7 4 Q D R E V E
0004360 R S E 1 6 7 Q D R E V E R S
0004400 E 1 6 2 Q D R E V E R S E
0004420 1 1 2 Q E A R R A Y - S C A N
0004440 D I M S 1 0 6 Q A R R A Y -
0004460 D I M E N S I O N S 2 4 Q A
0004500 R R A Y - R A N K 1 4 Q E R
0004520 R O R 3 C L : A R R A Y P )
0004540 \r ( 2 4 0 Q I T E R A T O R
0004560 7 6 Q 004 003 I T E R A T O R T Y
0004600 P E # 4 0 Q A L L ) \r ( 1
0004620 0 Q " c a n n o t i t e r a
0004640 t e o v e r a s c a l a r
0004660 " ) \r M E T A - I T E R A T O R
0004700 - N E X T I T E R A T O R D 1
0004720 \r ( L ( 0 M E T A - I T E R
0004740 A T O R ) ) \0 z 006 \0 \0 001 @ 006 \0
0004760 \0 311 \0 @ 006 \0 \0 311 002 @ 006 \0 \0 311 004 @
0005000 006 \0 \0 311 006 021 $ 005 @ 006 \0 \0 311 \b 263 V
0005020 H I h K \f \0 \0 [ I \t \0 \0 h 275 \ d
0005040 j 361 262 035 277 I L \n \0 \0 ] d 001 g \0 \0
0005060 360 263 034 001 k 330 J L \n \0 \0 001 360 255 L j
0005100 360 262 033 @ 006 \0 \0 i 024 \b 260 030 M 001 g \0
0005120 \0 360 243 M j 030 277 L k 331 260 304 M d 001 k
0005140 330 030 K 020 h 020 \0 ( 1 1 5 Q F N T
0005160 H 7 4 Q F N T H 5 6 Q L
0005200 E N G T H 5 1 Q I T E R A T
0005220 O R - S E T U P ) \r ( 1 4 3 Q
0005240 A L L 1 3 1 Q M E T A - I T
0005260 E R A T O R 1 0 2 Q A L L
0005300 3 6 Q M E T A - I T E R A T O
0005320 R 2 5 Q M E T A - I T E R A
0005340 T O R 1 7 Q M E T A - I T E
0005360 R A T O R 1 1 Q M E T A - I
0005400 T E R A T O R 3 M E T A - I
0005420 T E R A T O R ) \r ( ) \r M E T A
0005440 - I T E R A T O R - R E S E T
0005460 D 1 \r ( L ( 0 M E T A - I T
0005500 E R A T O R ) ) \0 V 006 \0 \0 001 @
0005520 006 \0 \0 311 002 @ 006 \0 \0 311 004 021 022 002 H Z
0005540 003 265 021 @ 006 \0 \0 H I 021 022 005 L 003 265 022
0005560 260 026 001 g \0 \0 360 243 J j 030 277 J 002 260 341
0005600 001 275 K 003 265 \b h 022 024 \b @ 020 001 g \0 \0
0005620 360 251 M j 360 225 M 265 360 i 260 355 L 002 274 K
0005640 002 273 260 312 \0 N I L \r ( 1 0 0 Q A
0005660 L L 4 6 Q A L L 2 7 Q M
0005700 E T A - I T E R A T O R 1 1 Q
0005720 M E T A - I T E R A T O R 3
0005740 M E T A - I T E R A T O R ) \r
0005760 ( ) \r M E T A - I T E R A T O R
0006000 - S E T U P D 1 \r ( L ( 1
0006020 H E L D D I M E N S I O N S 0
0006040 B A S E A R R A Y ) ) \0 235 \a
0006060 \0 \0 002 @ \t \0 \0 250 o \0 \0 \0 @ \n \0 \0
0006100 277 A d 003 243 d 221 h 032 b 002 @ \t \0 \0 k
0006120 331 j 021 2 004 I d H 363 262 ; 277 J 022 @ \t
0006140 \0 \0 021 " 003 ` \0 \0 037 d @ 024 \0 277 d H
0006160 024 002 277 d I 024 004 277 ` \0 \0 037 272 d J 024
0006200 006 277 I j 021 022 006 L 003 265 ) h 022 273 d K
0006220 024 \b 277 020 A \n \0 \0 223 g \0 \0 200 j 274 K
0006240 265 \r L h 032 [ 272 I k 324 Y 260 253 L & 273
0006260 260 367 001 276 M d A \n \0 \0 253 277 N j 360 225
0006300 M 265 313 i 260 310 M k 324 275 L 002 \ 260 273 \0
0006320 ( 2 0 6 Q M E M B 1 4 4 Q
0006340 M E M B 5 6 Q A R R A Y - D
0006360 I M E N S I O N S 3 3 Q A R
0006400 R A Y - R A N K 1 4 Q E R R
0006420 O R 3 C L : A R R A Y P ) \r
0006440 ( 1 5 0 Q A L L 1 0 7 Q 004
0006460 003 I T E R A T O R T Y P E # 6
0006500 4 Q 004 003 M E T A - I T E R A T
0006520 O R T Y P E # ) \r ( 1 0 Q "
0006540 c a n n o t i t e r a t e o
0006560 v e r a s c a l a r " ) \r (
0006600 P R E T T Y C O M P R I N T E
0006620 A R R A Y - I T E R A T O R S C
0006640 O M S ) \r ( R P A Q Q E A R R
0006660 A Y - I T E R A T O R S C O M S
0006700 ( ( R E C O R D S G E N E R
0006720 A T O R I T E R A T O R M E
0006740 T A - I T E R A T O R ) ( F N
0006760 S G E N E R A T O R - N E X T
0007000 E L T \r G E N E R A T O R - S
0007020 E T N E X T E L T G E N E R A
0007040 T O R - S E T U P I T E R A T
0007060 O R - N E X T I N D E X I T E
0007100 R A T O R - R E S E T I T E R
0007120 A T O R - S E T U P \r M E T A
0007140 - I T E R A T O R - N E X T I T
0007160 E R A T O R M E T A - I T E R
0007200 A T O R - R E S E T M E T A -
0007220 I T E R A T O R - S E T U P )
0007240 ( D E C L A R E : D O N T E V
0007260 A L @ L O A D \r D O E V A L @
0007300 C O M P I L E D O N T C O P Y
0007320 ( L O C A L V A R S . T )
0007340 ) ) ) \r ( D A T A T Y P E G E
0007360 N E R A T O R ( V E C T O R
0007400 I T E R A T O R ) ) \r ( D A T A
0007420 T Y P E I T E R A T O R ( O
0007440 F F S E T M U L T I P L I E R
0007460 S I N D I C E S L I M I T S
0007500 E N D I T E R A T I O N ) ) \r
0007520 ( D A T A T Y P E M E T A - I
0007540 T E R A T O R ( B A S E A R R
0007560 A Y L E V E L S L E V E L L
0007600 I M I T S I T E R A T O R E
0007620 N D I T E R A T I O N ) ) \r ( /
0007640 D E C L A R E D A T A T Y P E
0007660 ( Q U O T E G E N E R A T O R
0007700 ) ( Q U O T E ( P O I N T E
0007720 R P O I N T E R ) ) ( Q U O
0007740 T E ( ( G E N E R A T O R 0
0007760 P O I N T E R ) ( G E N E R
0010000 A T O R \r 2 P O I N T E R )
0010020 ) ) ( Q U O T E 4 ) ) \r ( /
0010040 D E C L A R E D A T A T Y P E
0010060 ( Q U O T E I T E R A T O R )
0010100 ( Q U O T E ( P O I N T E R
0010120 P O I N T E R P O I N T E R
*
0010160 ) ) ( Q U O T E ( ( I T E R
0010200 A T O R \r 0 P O I N T E R )
0010220 ( I T E R A T O R 2 P O I
0010240 N T E R ) ( I T E R A T O R
0010260 4 P O I N T E R ) ( I T E R
0010300 A T O R 6 P O I N T E R )
0010320 ( I T E R A T O R 8 P O I N
0010340 T E R ) ) ) ( \r Q U O T E 1
0010360 0 ) ) \r ( / D E C L A R E D A T
0010400 A T Y P E ( Q U O T E M E T
0010420 A - I T E R A T O R ) ( Q U O
0010440 T E ( P O I N T E R P O I N
0010460 T E R P O I N T E R P O I N
0010500 T E R P O I N T E R ) ) ( Q
0010520 U O T E ( ( \r M E T A - I T E
0010540 R A T O R 0 P O I N T E R )
0010560 ( M E T A - I T E R A T O R
0010600 2 P O I N T E R ) ( M E T A
0010620 - I T E R A T O R 4 P O I N
0010640 T E R ) ( M E T A - I T E R A
0010660 T O R 6 P O I N T E R ) \r
0010700 ( M E T A - I T E R A T O R 8
0010720 P O I N T E R ) ) ) ( Q U O
0010740 T E 1 0 ) ) \r ( P U T P R O P
0010760 S E A R R A Y - I T E R A T O
0011000 R S C O P Y R I G H T ( " X
0011020 e r o x C o r p o r a t i o n
0011040 " 1 9 8 6 ) ) \r N I L \r
0011055