$ od -c -N 50000 [eris]<LispCore>SOURCES>FASL.DCOM!5
0000000 ( F I L E C R E A T E D " 6
0000020 - O c t - 8 6 2 3 : 4 6 : 4 4
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 > F A S L . ;
0000120 6 ) \r " 1 - O c t - 8 6 2
0000140 0 : 2 3 : 1 5 " " C O M P I L
0000160 E - F I L E d " i n " X e r
0000200 o x L i s p 1 - O c t - 8
0000220 6 . . . " d a t e d " 1
0000240 - O c t - 8 6 2 1 : 2 4 : 4 4
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 6 - O c t - 8 6 2 3 : 4 4
0000320 : 4 1 " { E R I S } < L I S P
0000340 C O R E > S O U R C E S > F A S
0000360 L . ; 6 7 6 1 6 3 c h a n g
0000400 e s t o : ( O P T I M I Z E
0000420 R S \r F A S L : : O P T A B L
0000440 E - V E C T O R ) ( S T R U C
0000460 T U R E S F A S L : F A S L -
0000500 E R R O R F A S L : U N I M P
0000520 L E M E N T E D - O P C O D E
0000540 F A S L : O B J E C T - N O T -
0000560 D U M P A B L E \r F A S L : U
0000600 N E X P E C T E D - E N D - O F
0000620 - B L O C K F A S L : I N C O
0000640 N S I S T E N T - T A B L E F
0000660 A S L : : H A N D L E F A S L
0000700 : : O P T A B L E ) ( V A R S
0000720 F A S L C O M S ) ( F N S
0000740 \r F A S L : : S O - T H A T - T
0000760 H E - F I L E - W I L L - G E T
0001000 - C O M P I L E D ) ( V A R I
0001020 A B L E S F A S L : S I G N A
0001040 T U R E F A S L : : C H E C K
0001060 - T A B L E - S I Z E \r F A S
0001100 L : : F A S L - E X T E N D E D
0001120 F A S L : : E N D - M A R K
0001140 F A S L : : V E R S I O N - R A
0001160 N G E F A S L : C U R R E N T
0001200 - V E R S I O N F A S L : : D
0001220 U M M Y - H A N D L E \r F A S
0001240 L : : + S M A L L E S T - F O U
0001260 R - B Y T E - I N T E G E R +
0001300 F A S L : : + L A R G E S T - F
0001320 O U R - B Y T E - I N T E G E R
0001340 + F A S L : : * G A T H E R -
0001360 D U M P E R - S T A T S * \r F
0001400 A S L : : * T A B L E - A T T E
0001420 M P T S * F A S L : : * T A B
0001440 L E - H I T S * F A S L : * D
0001460 E F A U L T - O P T A B L E *
0001500 F A S L : : * C U R R E N T - O
0001520 P T A B L E * \r F A S L : : I
0001540 N I T I A L - V A L U E - T A B
0001560 L E - S I Z E F A S L : : V A
0001600 L U E - T A B L E - I N C R E M
0001620 E N T F A S L : : * V A L U E
0001640 - T A B L E * F A S L : : * B
0001660 L O C K - L E V E L * \r F A S
0001700 L : : D E B U G - R E A D E R
0001720 F A S L : : D E B U G - S T R E
0001740 A M ) ( F U N C T I O N S F
0001760 A S L : : T A B L E - S T A T S
0002000 F A S L : : R E S E T - D U M
0002020 P E R - S T A T S \r D O T T E
0002040 D - L I S T - L E N G T H F A
0002060 S L : : S T A T E - C A S E F
0002100 A T - S T R I N G - P F A S L
0002120 : : R E M E M B E R F A S L :
0002140 : E L E M E N T S - I D E N T I
0002160 C A L - P \r F A S L : : E N D
0002200 - B L O C K F A S L : : E N D
0002220 - T E X T F A S L : : W R I T
0002240 E - O P F A S L : : L O O K U
0002260 P - V A L U E F A S L : : S A
0002300 V E - V A L U E \r F A S L : :
0002320 D U M P - V A L U E - F E T C H
0002340 F A S L : : D U M P - C H A R
0002360 A C T E R F A S L : : D U M P
0002400 - S Y M B O L F A S L : : D U
0002420 M P - L I S T F A S L : : D U
0002440 M P - S I M P L E - V E C T O R
0002460 \r F A S L : : D U M P - A R R
0002500 A Y - D E S C R I P T O R F A
0002520 S L : : D U M P - B I T - A R R
0002540 A Y F A S L : : D U M P - G E
0002560 N E R A L - A R R A Y F A S L
0002600 : : D U M P - A R R A Y \r F A
0002620 S L : : W R I T E - I N T E G E
0002640 R - B Y T E S F A S L : : I N
0002660 T E G E R - B Y T E - L I S T
0002700 F A S L : : D U M P - R A T I O
0002720 N A L F A S L : : D U M P - C
0002740 O M P L E X \r F A S L : : D U
0002760 M P - I N T E G E R F A S L :
0003000 : D U M P - P A C K A G E F A
0003020 S L : : D U M P - D C O D E F
0003040 A S L : : D U M P - S T R I N G
0003060 F A S L : : D U M P - F L O A
0003100 T 3 2 \r F A S L : O P E N - F
0003120 A S L - H A N D L E F A S L :
0003140 W I T H - O P E N - H A N D L E
0003160 F A S L : B E G I N - T E X T
0003200 F A S L : B E G I N - B L O C
0003220 K F A S L : V A L U E - D U M
0003240 P A B L E - P \r F A S L : D U
0003260 M P - V A L U E F A S L : D U
0003300 M P - F U N C T I O N - D E F
0003320 F A S L : D U M P - F U N C A L
0003340 L F A S L : D U M P - E V A L
0003360 F A S L : C L O S E - F A S L
0003400 - H A N D L E \r F A S L : M A
0003420 K E - O P T A B L E F A S L :
0003440 : F A S L - E N D - O F - B L O
0003460 C K F A S L : D E F O P F A
0003500 S L : D E F R A N G E F A S L
0003520 : : A D D - O P - T R A N S L A
0003540 T I O N \r F A S L : O P C O D
0003560 E - S E Q U E N C E F A S L :
0003600 : F A S L - E X T E N D E D F
0003620 A S L : : S E T E S C A P E F
0003640 A S L : : U N I M P L E M E N T
0003660 E D - O P C O D E F A S L : W
0003700 I T H - O P T A B L E \r F A S
0003720 L : P R O C E S S - F I L E F
0003740 A S L : C H E C K - V E R S I O
0003760 N F A S L : P R O C E S S - S
0004000 E G M E N T F A S L : R E A D
0004020 - T E X T F A S L : P R O C E
0004040 S S - B L O C K \r F A S L : S
0004060 K I P - T E X T ) ( D E F I N
0004100 E - T Y P E S F A S L - O P S
0004120 ) ( F A S L - O P S F A S L
0004140 : F A S L - D C O D E ) p r e
0004160 v i o u s d a t e : " 2 6 -
0004200 S e p - 8 6 1 7 : 4 5 : 5 2 "
0004220 \r { E R I S } < L I S P C O R
0004240 E > S O U R C E S > F A S L . ;
0004260 5 ) \r ( R P A Q Q F A S L C O
0004300 M S ( ( C O M S ( * ; ; ;
0004320 " C o m m o n d e f i n i t
0004340 i o n s . " ) ( D E C L A R E
0004360 : E V A L @ C O M P I L E E
0004400 V A L @ L O A D D O N T C O P
0004420 Y ( F I L E S \r ( L O A D C
0004440 O M P ) L L C H A R ) ) ( F
0004460 N S F A S L : : S O - T H A T
0004500 - T H E - F I L E - W I L L - G
0004520 E T - C O M P I L E D ) ( S T
0004540 R U C T U R E S F A S L : F A
0004560 S L - E R R O R \r F A S L : U
0004600 N I M P L E M E N T E D - O P C
0004620 O D E F A S L : O B J E C T -
0004640 N O T - D U M P A B L E F A S
0004660 L : U N E X P E C T E D - E N D
0004700 - O F - B L O C K \r F A S L :
0004720 I N C O N S I S T E N T - T A B
0004740 L E ) ( E X P O R T ( V A R
0004760 I A B L E S F A S L : S I G N
0005000 A T U R E ) ) ( V A R I A B L
0005020 E S F A S L : : C H E C K - T
0005040 A B L E - S I Z E \r F A S L :
0005060 : F A S L - E X T E N D E D F
0005100 A S L : : E N D - M A R K F A
0005120 S L : : V E R S I O N - R A N G
0005140 E F A S L : C U R R E N T - V
0005160 E R S I O N ) ( F U N C T I O
0005200 N S \r F A S L : : T A B L E -
0005220 S T A T S ) ) ( C O M S ( *
0005240 ; ; ; " D u m p e r . " )
0005260 ( S T R U C T U R E S F A S L
0005300 : : H A N D L E ) ( V A R I A
0005320 B L E S F A S L : : D U M M Y
0005340 - H A N D L E ) ( \r V A R I A
0005360 B L E S F A S L : : + S M A L
0005400 L E S T - F O U R - B Y T E - I
0005420 N T E G E R + F A S L : : + L
0005440 A R G E S T - F O U R - B Y T E
0005460 - I N T E G E R + ) ( V A R I
0005500 A B L E S \r F A S L : : * G A
0005520 T H E R - D U M P E R - S T A T
0005540 S * F A S L : : * T A B L E -
0005560 A T T E M P T S * F A S L : :
0005600 * T A B L E - H I T S * ) ( F
0005620 U N C T I O N S \r F A S L : :
0005640 R E S E T - D U M P E R - S T A
0005660 T S ) ( F U N C T I O N S D
0005700 O T T E D - L I S T - L E N G T
0005720 H F A S L : : S T A T E - C A
0005740 S E F A T - S T R I N G - P
0005760 F A S L : : R E M E M B E R \r
0006000 F A S L : : E L E M E N T S - I
0006020 D E N T I C A L - P F A S L :
0006040 : E N D - B L O C K F A S L :
0006060 : E N D - T E X T F A S L : :
0006100 W R I T E - O P F A S L : : L
0006120 O O K U P - V A L U E \r F A S
0006140 L : : S A V E - V A L U E ) (
0006160 F U N C T I O N S F A S L : :
0006200 D U M P - V A L U E - F E T C H
0006220 F A S L : : D U M P - C H A R
0006240 A C T E R F A S L : : D U M P
0006260 - S Y M B O L \r F A S L : : D
0006300 U M P - L I S T F A S L : : D
0006320 U M P - S I M P L E - V E C T O
0006340 R F A S L : : D U M P - A R R
0006360 A Y - D E S C R I P T O R F A
0006400 S L : : D U M P - B I T - A R R
0006420 A Y \r F A S L : : D U M P - G
0006440 E N E R A L - A R R A Y F A S
0006460 L : : D U M P - A R R A Y F A
0006500 S L : : W R I T E - I N T E G E
0006520 R - B Y T E S F A S L : : I N
0006540 T E G E R - B Y T E - L I S T
0006560 \r F A S L : : D U M P - R A T I
0006600 O N A L F A S L : : D U M P -
0006620 C O M P L E X F A S L : : D U
0006640 M P - I N T E G E R F A S L :
0006660 : D U M P - P A C K A G E F A
0006700 S L : : D U M P - D C O D E \r
0006720 F A S L : : D U M P - S T R I N
0006740 G F A S L : : D U M P - F L O
0006760 A T 3 2 ) ( F U N C T I O N S
0007000 F A S L : O P E N - F A S L -
0007020 H A N D L E F A S L : W I T H
0007040 - O P E N - H A N D L E \r F A
0007060 S L : B E G I N - T E X T F A
0007100 S L : B E G I N - B L O C K F
0007120 A S L : V A L U E - D U M P A B
0007140 L E - P F A S L : D U M P - V
0007160 A L U E F A S L : D U M P - F
0007200 U N C T I O N - D E F \r F A S
0007220 L : D U M P - F U N C A L L F
0007240 A S L : D U M P - E V A L F A
0007260 S L : C L O S E - F A S L - H A
0007300 N D L E ) ) ( C O M S ( *
0007320 ; ; ; " R e a d e r . " ) (
0007340 D E F I N E - T Y P E S \r F A
0007360 S L - O P S ) ( S T R U C T U
0007400 R E S F A S L : : O P T A B L
0007420 E ) ( * ; ; \r " T h i s
0007440 s h o u l d n ' t h a v e t
0007460 o b e i n h e r e , b u
0007500 t d e f s t r u c t i s n '
0007520 t c o m p l e t e y e t . "
0007540 ) ( O P T I M I Z E R S \r F
0007560 A S L : : O P T A B L E - V E C
0007600 T O R ) ( F U N C T I O N S
0007620 F A S L : M A K E - O P T A B L
0007640 E F A S L : : F A S L - E N D
0007660 - O F - B L O C K F A S L : D
0007700 E F O P F A S L : D E F R A N
0007720 G E \r F A S L : : A D D - O P
0007740 - T R A N S L A T I O N F A S
0007760 L : O P C O D E - S E Q U E N C
0010000 E F A S L : : F A S L - E X T
0010020 E N D E D F A S L : : S E T E
0010040 S C A P E \r F A S L : : U N I
0010060 M P L E M E N T E D - O P C O D
0010100 E ) ( V A R I A B L E S F A
0010120 S L : * D E F A U L T - O P T A
0010140 B L E * F A S L : : * C U R R
0010160 E N T - O P T A B L E * \r F A
0010200 S L : : I N I T I A L - V A L U
0010220 E - T A B L E - S I Z E F A S
0010240 L : : V A L U E - T A B L E - I
0010260 N C R E M E N T F A S L : : *
0010300 V A L U E - T A B L E * F A S
0010320 L : : * B L O C K - L E V E L *
0010340 \r F A S L : : D E B U G - R E
0010360 A D E R F A S L : : D E B U G
0010400 - S T R E A M ) ( F U N C T I
0010420 O N S F A S L : W I T H - O P
0010440 T A B L E F A S L : P R O C E
0010460 S S - F I L E \r F A S L : C H
0010500 E C K - V E R S I O N F A S L
0010520 : P R O C E S S - S E G M E N T
0010540 F A S L : R E A D - T E X T
0010560 F A S L : P R O C E S S - B L O
0010600 C K F A S L : S K I P - T E X
0010620 T \r F A S L : N E X T - V A L
0010640 U E F A S L : : D O - O P F
0010660 A S L : : N E W - V A L U E - T
0010700 A B L E F A S L : : C L E A R
0010720 - T A B L E F A S L : : S T O
0010740 R E - V A L U E \r F A S L : :
0010760 F E T C H - V A L U E F A S L
0011000 : : C O L L E C T - L I S T )
0011020 ( F A S L - O P S F A S L : F
0011040 A S L - S H O R T - I N T E G E
0011060 R F A S L : F A S L - N I L
0011100 F A S L : F A S L - T \r F A S
0011120 L : F A S L - I N T E G E R F
0011140 A S L : F A S L - L A R G E - I
0011160 N T E G E R F A S L : F A S L
0011200 - R A T I O F A S L : F A S L
0011220 - C O M P L E X F A S L : F A
0011240 S L - V E C T O R \r F A S L :
0011260 F A S L - C R E A T E - A R R A
0011300 Y F A S L : F A S L - I N I T
0011320 I A L I Z E - A R R A Y F A S
0011340 L : F A S L - I N I T I A L I Z
0011360 E - B I T - A R R A Y F A S L
0011400 : F A S L - T H I N - S T R I N
0011420 G \r F A S L : F A S L - F A T
0011440 - S T R I N G F A S L : F A S
0011460 L - C H A R A C T E R F A S L
0011500 : F A S L - L I S P - S Y M B O
0011520 L F A S L : F A S L - K E Y W
0011540 O R D - S Y M B O L \r F A S L
0011560 : F A S L - F I N D - P A C K A
0011600 G E F A S L : F A S L - S Y M
0011620 B O L - I N - P A C K A G E F
0011640 A S L : F A S L - L I S T F A
0011660 S L : F A S L - L I S T * F A
0011700 S L : F A S L - D C O D E \r F
0011720 A S L : F A S L - T A B L E - S
0011740 T O R E F A S L : F A S L - T
0011760 A B L E - F E T C H F A S L :
0012000 F A S L - V E R I F Y - T A B L
0012020 E - S I Z E F A S L : F A S L
0012040 - E V A L \r F A S L : F A S L
0012060 - F L O A T 3 2 F A S L : F A
0012100 S L - S E T F - S Y M B O L - F
0012120 U N C T I O N F A S L : F A S
0012140 L - F U N C A L L ) ) ( P R O
0012160 P F I L E T Y P E F A S L )
0012200 ( D E C L A R E : \r D O N T
0012220 E V A L @ L O A D D O E V A L
0012240 @ C O M P I L E D O N T C O P
0012260 Y C O M P I L E R V A R S (
0012300 A D D V A R S ( N L A M A )
0012320 ( N L A M L ) ( L A M A \r F
0012340 A S L : : S O - T H A T - T H E
0012360 - F I L E - W I L L - G E T - C
0012400 O M P I L E D ) ) ) ) ) \r F A S
0012420 L : : S O - T H A T - T H E - F
0012440 I L E - W I L L - G E T - C O M
0012460 P I L E D D 1 \r N I L \0 003 \0
0012500 \0 \0 \0 h 020 \0 N I L \r N I L \r ( )
0012520 \r ( D E F P R I N T ( Q U O T
0012540 E F A S L : F A S L - E R R O
0012560 R ) ( F U N C T I O N \ D E
0012600 F P R I N T . D E F S T R U C T
0012620 . D E F A U L T ) ) \r % % M A K
0012640 E - F A S L : F A S L - E R R O
0012660 R D 1 \r N I L \0 \a \0 \0 \0 \0 g
0012700 \0 \0 h 032 020 \0 N I L \r ( 2 F A S
0012720 L : F A S L - E R R O R ) \r ( )
0012740 \r ( L E T * ( ( A 1 5 3 8 (
0012760 Q U O T E F A S L : F A S L -
0013000 E R R O R ) ) ( A 1 5 3 9 (
0013020 Q U O T E ( C L : E R R O R )
0013040 ) ) ) ( P U T A 1 5 3 8 (
0013060 Q U O T E \r % % % % I N C L U
0013100 D E D - S T R U C T U R E ) A
0013120 1 5 3 9 ) ) \r ( P U T P R O P
0013140 ( Q U O T E F A S L : F A S L
0013160 - E R R O R ) ( Q U O T E S
0013200 T R U C T U R E - C O N S T R U
0013220 C T O R ) ( Q U O T E % % M
0013240 A K E - F A S L : F A S L - E R
0013260 R O R ) ) \r ( P U T P R O P (
0013300 Q U O T E F A S L : F A S L -
0013320 E R R O R ) ( Q U O T E % %
0013340 S T R U C T U R E - C L A S S )
0013360 ( Q U O T E L I S T - C L A
0013400 S S ) ) \r ( P U T P R O P ( Q
0013420 U O T E F A S L : F A S L - E
0013440 R R O R ) ( Q U O T E % % S
0013460 L O T - D E S C R I P T I O N S
0013500 ) ( Q U O T E N I L ) ) \r (
0013520 P U T P R O P ( Q U O T E F
0013540 A S L : F A S L - E R R O R )
0013560 ( Q U O T E % % L O C A L - S
0013600 L O T - N A M E S ) ( Q U O T
0013620 E N I L ) ) \r ( F I X - I N H
0013640 E R I T A N C E - L I N K S (
0013660 Q U O T E F A S L : F A S L -
0013700 E R R O R ) ( Q U O T E C L
0013720 : E R R O R ) ) \r ( L E T * (
0013740 ( A 1 5 4 2 ( Q U O T E F A
0013760 S L : F A S L - E R R O R ) )
0014000 ( A 1 5 4 1 ( Q U O T E % %
0014020 C O N D I T I O N - H A N D L E
0014040 R ) ) ( A 1 5 4 0 ( Q U O T
0014060 E N I L ) ) ) ( \r P U T P R
0014100 O P A 1 5 4 2 A 1 5 4 1 A
0014120 1 5 4 0 ) ) \r ( L E T * ( ( A
0014140 1 5 4 5 ( Q U O T E F A S L
0014160 : F A S L - E R R O R ) ) ( A
0014200 1 5 4 4 ( Q U O T E % % C O
0014220 N D I T I O N - R E P O R T E R
0014240 ) ) ( A 1 5 4 3 ( Q U O T E
0014260 N I L ) ) ) ( \r P U T P R O
0014300 P A 1 5 4 5 A 1 5 4 4 A 1
0014320 5 4 3 ) ) \r F A S L : U N I M P
0014340 L E M E N T E D - O P C O D E -
0014360 O P N A M E D 1 \r ( L ( 0
0014400 O B J E C T ) ) \0 005 \0 \0 \0 001 @
0014420 002 001 020 \0 N I L \r N I L \r ( ) \r (
0014440 D E F P R I N T ( Q U O T E
0014460 F A S L : U N I M P L E M E N T
0014500 E D - O P C O D E ) ( F U N C
0014520 T I O N \ D E F P R I N T . D
0014540 E F S T R U C T . D E F A U L T
0014560 ) ) \r % % M A K E - F A S L : U
0014600 N I M P L E M E N T E D - O P C
0014620 O D E D 1 \r ( L ( 0 - a r
0014640 g s - ) ) \0 0 003 \0 002 \0 e 021 001 \0
0014660 H k 021 002 002 J d I 363 235 277 h 022 021 001 001
0014700 g \0 \0 I h 032 032 020 a g \0 \0 360 225 J k
0014720 330 a 260 352 J l 002 324 Z 260 335 \0 N I L \r
0014740 ( 3 7 Q : O P N A M E 2 6 Q
0014760 F A S L : U N I M P L E M E N
0015000 T E D - O P C O D E ) \r ( ) \r (
0015020 L E T * ( ( A 1 5 4 6 ( Q U
0015040 O T E F A S L : U N I M P L E
0015060 M E N T E D - O P C O D E ) )
0015100 ( A 1 5 4 7 ( Q U O T E ( F
0015120 A S L : F A S L - E R R O R ) )
0015140 ) ) ( P U T A 1 5 4 6 ( Q
0015160 U O T E \r % % % % I N C L U D
0015200 E D - S T R U C T U R E ) A 1
0015220 5 4 7 ) ) \r ( P U T P R O P (
0015240 Q U O T E F A S L : U N I M P
0015260 L E M E N T E D - O P C O D E )
0015300 ( Q U O T E S T R U C T U R
0015320 E - C O N S T R U C T O R ) (
0015340 Q U O T E \r % % M A K E - F A
0015360 S L : U N I M P L E M E N T E D
0015400 - O P C O D E ) ) \r ( P U T P R
0015420 O P ( Q U O T E F A S L : U
0015440 N I M P L E M E N T E D - O P C
0015460 O D E ) ( Q U O T E % % S T
0015500 R U C T U R E - C L A S S ) (
0015520 Q U O T E L I S T - C L A S S
0015540 ) ) \r ( P U T P R O P ( Q U O
0015560 T E F A S L : U N I M P L E M
0015600 E N T E D - O P C O D E ) ( Q
0015620 U O T E % % S L O T - D E S C
0015640 R I P T I O N S ) ( Q U O T E
0015660 ( ( O P N A M E N I L : R
0015700 E A D - O N L Y \r T ) ) ) ) \r
0015720 ( P U T P R O P ( Q U O T E
0015740 F A S L : U N I M P L E M E N T
0015760 E D - O P C O D E ) ( Q U O T
0016000 E % % L O C A L - S L O T - N
0016020 A M E S ) ( Q U O T E ( O P
0016040 N A M E ) ) ) \r ( F I X - I N H
0016060 E R I T A N C E - L I N K S (
0016100 Q U O T E F A S L : U N I M P
0016120 L E M E N T E D - O P C O D E )
0016140 ( Q U O T E F A S L : F A S
0016160 L - E R R O R ) ) \r ( L E T *
0016200 ( ( A 1 5 5 0 ( Q U O T E F
0016220 A S L : U N I M P L E M E N T E
0016240 D - O P C O D E ) ) ( A 1 5 4
0016260 9 ( Q U O T E % % C O N D I
0016300 T I O N - H A N D L E R ) ) (
0016320 A 1 5 4 8 ( Q U O T E N I L
0016340 \r ) ) ) ( P U T P R O P A 1
0016360 5 5 0 A 1 5 4 9 A 1 5 4 8 )
0016400 ) \r F A S L : U N I M P L E M E
0016420 N T E D - O P C O D E - c o n d
0016440 i t i o n - r e p o r t e r D
0016460 1 \r ( L ( 0 C O N D I T I O
0016500 N ) I 1 * S T A N D A R D
0016520 - O U T P U T * ) \0 016 \0 \0 \0 002
0016540 i o \0 \0 \0 @ \t \0 \0 \v \0 \0 020 \0 ( 1
0016560 3 Q F O R M A T 1 0 Q F A
0016600 S L : U N I M P L E M E N T E D
0016620 - O P C O D E - O P N A M E ) \r
0016640 N I L \r ( 4 " U n i m p l e
0016660 m e n t e d F A S L o p :
0016700 ~ S " ) \r ( L E T * ( ( A 1 5
0016720 5 3 ( Q U O T E F A S L : U
0016740 N I M P L E M E N T E D - O P C
0016760 O D E ) ) ( A 1 5 5 2 ( Q U
0017000 O T E % % C O N D I T I O N -
0017020 R E P O R T E R ) ) ( A 1 5 5
0017040 1 ( Q U O T E \r F A S L : U
0017060 N I M P L E M E N T E D - O P C
0017100 O D E - c o n d i t i o n - r e
0017120 p o r t e r ) ) ) ( P U T P R
0017140 O P A 1 5 5 3 A 1 5 5 2 A
0017160 1 5 5 1 ) ) \r F A S L : O B J E
0017200 C T - N O T - D U M P A B L E -
0017220 O B J E C T D 1 \r ( L ( 0
0017240 O B J E C T ) ) \0 005 \0 \0 \0 001 @
0017260 002 001 020 \0 N I L \r N I L \r ( ) \r (
0017300 D E F P R I N T ( Q U O T E
0017320 F A S L : O B J E C T - N O T -
0017340 D U M P A B L E ) ( F U N C T
0017360 I O N \ D E F P R I N T . D E
0017400 F S T R U C T . D E F A U L T )
0017420 ) \r % % M A K E - F A S L : O B
0017440 J E C T - N O T - D U M P A B L
0017460 E D 1 \r ( L ( 0 - a r g s
0017500 - ) ) \0 0 003 \0 002 \0 e 021 001 \0 H k
0017520 021 002 002 J d I 363 235 277 h 022 021 001 001 g \0
0017540 \0 I h 032 032 020 a g \0 \0 360 225 J k 330 a
0017560 260 352 J l 002 324 Z 260 335 \0 N I L \r ( 3
0017600 7 Q : O B J E C T 2 6 Q F
0017620 A S L : O B J E C T - N O T - D
0017640 U M P A B L E ) \r ( ) \r ( L E T
0017660 * ( ( A 1 5 5 4 ( Q U O T E
0017700 F A S L : O B J E C T - N O T
0017720 - D U M P A B L E ) ) ( A 1 5
0017740 5 5 ( Q U O T E ( F A S L :
0017760 F A S L - E R R O R ) ) ) ) (
0020000 P U T A 1 5 5 4 ( Q U O T E
0020020 \r % % % % I N C L U D E D - S
0020040 T R U C T U R E ) A 1 5 5 5 )
0020060 ) \r ( P U T P R O P ( Q U O T
0020100 E F A S L : O B J E C T - N O
0020120 T - D U M P A B L E ) ( Q U O
0020140 T E S T R U C T U R E - C O N
0020160 S T R U C T O R ) ( Q U O T E
0020200 \r % % M A K E - F A S L : O B
0020220 J E C T - N O T - D U M P A B L
0020240 E ) ) \r ( P U T P R O P ( Q U
0020260 O T E F A S L : O B J E C T -
0020300 N O T - D U M P A B L E ) ( Q
0020320 U O T E % % S T R U C T U R E
0020340 - C L A S S ) ( Q U O T E L
0020360 I S T - C L A S S ) ) \r ( P U T
0020400 P R O P ( Q U O T E F A S L
0020420 : O B J E C T - N O T - D U M P
0020440 A B L E ) ( Q U O T E % % S
0020460 L O T - D E S C R I P T I O N S
0020500 ) ( Q U O T E ( ( O B J E C
0020520 T N I L : R E A D - O N L Y
0020540 T \r ) ) ) ) \r ( P U T P R O P
0020560 ( Q U O T E F A S L : O B J
0020600 E C T - N O T - D U M P A B L E
0020620 ) ( Q U O T E % % L O C A L
0020640 - S L O T - N A M E S ) ( Q U
0020660 O T E ( O B J E C T ) ) ) \r (
0020700 F I X - I N H E R I T A N C E -
0020720 L I N K S ( Q U O T E F A S
0020740 L : O B J E C T - N O T - D U M
0020760 P A B L E ) ( Q U O T E F A
0021000 S L : F A S L - E R R O R ) ) \r
0021020 ( L E T * ( ( A 1 5 5 8 ( Q
0021040 U O T E F A S L : O B J E C T
0021060 - N O T - D U M P A B L E ) )
0021100 ( A 1 5 5 7 ( Q U O T E % %
0021120 C O N D I T I O N - H A N D L E
0021140 R ) ) ( A 1 5 5 6 ( Q U O T
0021160 E N I L ) \r ) ) ( P U T P R
0021200 O P A 1 5 5 8 A 1 5 5 7 A
0021220 1 5 5 6 ) ) \r F A S L : O B J E
0021240 C T - N O T - D U M P A B L E -
0021260 c o n d i t i o n - r e p o r t
0021300 e r D 1 \r ( L ( 0 C O N D
0021320 I T I O N ) I 1 * S T A N
0021340 D A R D - O U T P U T * ) \0 016
0021360 \0 \0 \0 002 i o \0 \0 \0 @ \t \0 \0 \v \0 \0
0021400 020 \0 ( 1 3 Q F O R M A T 1 0
0021420 Q F A S L : O B J E C T - N O
0021440 T - D U M P A B L E - O B J E C
0021460 T ) \r N I L \r ( 4 " O b j e
0021500 c t n o t d u m p a b l e :
0021520 ~ & ~ S " ) \r ( L E T * ( ( A
0021540 1 5 6 1 ( Q U O T E F A S L
0021560 : O B J E C T - N O T - D U M P
0021600 A B L E ) ) ( A 1 5 6 0 ( Q
0021620 U O T E % % C O N D I T I O N
0021640 - R E P O R T E R ) ) ( A 1 5
0021660 5 9 ( Q U O T E \r F A S L :
0021700 O B J E C T - N O T - D U M P A
0021720 B L E - c o n d i t i o n - r e
0021740 p o r t e r ) ) ) ( P U T P R
0021760 O P A 1 5 6 1 A 1 5 6 0 A
0022000 1 5 5 9 ) ) \r F A S L : U N E X
0022020 P E C T E D - E N D - O F - B L
0022040 O C K - S T R E A M D 1 \r ( L
0022060 ( 0 O B J E C T ) ) \0 005 \0
0022100 \0 \0 001 @ 002 001 020 \0 N I L \r N I L \r
0022120 ( ) \r ( D E F P R I N T ( Q U
0022140 O T E F A S L : U N E X P E C
0022160 T E D - E N D - O F - B L O C K
0022200 ) ( F U N C T I O N \ D E F
0022220 P R I N T . D E F S T R U C T .
0022240 D E F A U L T ) ) \r % % M A K E
0022260 - F A S L : U N E X P E C T E D
0022300 - E N D - O F - B L O C K D 1
0022320 \r ( L ( 0 - a r g s - ) )
0022340 \0 0 003 \0 002 \0 e 021 001 \0 H k 021 002 002 J
0022360 d I 363 235 277 h 022 021 001 001 g \0 \0 I h 032
0022400 032 020 a g \0 \0 360 225 J k 330 a 260 352 J l
0022420 002 324 Z 260 335 \0 N I L \r ( 3 7 Q :
0022440 S T R E A M 2 6 Q F A S L :
0022460 U N E X P E C T E D - E N D - O
0022500 F - B L O C K ) \r ( ) \r ( L E T
0022520 * ( ( A 1 5 6 2 ( Q U O T E
0022540 F A S L : U N E X P E C T E D
0022560 - E N D - O F - B L O C K ) )
0022600 ( A 1 5 6 3 ( Q U O T E ( F
0022620 A S L : F A S L - E R R O R ) )
0022640 ) ) ( P U T A 1 5 6 2 ( \r
0022660 Q U O T E % % % % I N C L U D
0022700 E D - S T R U C T U R E ) A 1
0022720 5 6 3 ) ) \r ( P U T P R O P (
0022740 Q U O T E F A S L : U N E X P
0022760 E C T E D - E N D - O F - B L O
0023000 C K ) ( Q U O T E S T R U C
0023020 T U R E - C O N S T R U C T O R
0023040 ) ( Q U O T E \r % % M A K E
0023060 - F A S L : U N E X P E C T E D
0023100 - E N D - O F - B L O C K ) ) \r
0023120 ( P U T P R O P ( Q U O T E
0023140 F A S L : U N E X P E C T E D -
0023160 E N D - O F - B L O C K ) ( Q
0023200 U O T E % % S T R U C T U R E
0023220 - C L A S S ) ( Q U O T E L
0023240 I S T - C L A S S ) ) \r ( P U T
0023260 P R O P ( Q U O T E F A S L
0023300 : U N E X P E C T E D - E N D -
0023320 O F - B L O C K ) ( Q U O T E
0023340 % % S L O T - D E S C R I P T
0023360 I O N S ) ( Q U O T E ( ( S
0023400 T R E A M N I L \r : R E A D
0023420 - O N L Y T ) ) ) ) \r ( P U T
0023440 P R O P ( Q U O T E F A S L
0023460 : U N E X P E C T E D - E N D -
0023500 O F - B L O C K ) ( Q U O T E
0023520 % % L O C A L - S L O T - N A
0023540 M E S ) ( Q U O T E ( S T R
0023560 E A M ) ) ) \r ( F I X - I N H E
0023600 R I T A N C E - L I N K S ( Q
0023620 U O T E F A S L : U N E X P E
0023640 C T E D - E N D - O F - B L O C
0023660 K ) ( Q U O T E F A S L : F
0023700 A S L - E R R O R ) ) \r ( L E T
0023720 * ( ( A 1 5 6 6 ( Q U O T E
0023740 F A S L : U N E X P E C T E D
0023760 - E N D - O F - B L O C K ) )
0024000 ( A 1 5 6 5 ( Q U O T E % %
0024020 C O N D I T I O N - H A N D L E
0024040 R ) ) ( A 1 5 6 4 ( Q U O T
0024060 E \r N I L ) ) ) ( P U T P R
0024100 O P A 1 5 6 6 A 1 5 6 5 A
0024120 1 5 6 4 ) ) \r F A S L : U N E X
0024140 P E C T E D - E N D - O F - B L
0024160 O C K - c o n d i t i o n - r e
0024200 p o r t e r D 1 \r ( L ( 0
0024220 C O N D I T I O N ) I 1 *
0024240 S T A N D A R D - O U T P U T *
0024260 ) \0 021 \0 \0 \0 002 i o \0 \0 \0 @ \t \0
0024300 \0 \t \0 \0 \v \0 \0 020 \0 ( 1 6 Q F O
0024320 R M A T 1 3 Q G E T F I L E
0024340 P T R 1 0 Q F A S L : U N E
0024360 X P E C T E D - E N D - O F - B
0024400 L O C K - S T R E A M ) \r N I L
0024420 \r ( 4 " U n e x p e c t e d
0024440 F A S L - E N D - O F - B L O
0024460 C K a t ~ D . " ) \r ( L E T
0024500 * ( ( A 1 5 6 9 ( Q U O T E
0024520 F A S L : U N E X P E C T E D
0024540 - E N D - O F - B L O C K ) )
0024560 ( A 1 5 6 8 ( Q U O T E % %
0024600 C O N D I T I O N - R E P O R T
0024620 E R ) ) ( A 1 5 6 7 ( Q U O
0024640 T E \r F A S L : U N E X P E C
0024660 T E D - E N D - O F - B L O C K
0024700 - c o n d i t i o n - r e p o r
0024720 t e r ) ) ) ( P U T P R O P
0024740 A 1 5 6 9 A 1 5 6 8 A 1 5 6
0024760 7 ) ) \r F A S L : I N C O N S I
0025000 S T E N T - T A B L E - E X P E
0025020 C T E D D 1 \r ( L ( 0 O B
0025040 J E C T ) ) \0 006 \0 \0 \0 001 @ 002 002
0025060 001 020 \0 N I L \r N I L \r ( ) \r F A
0025100 S L : I N C O N S I S T E N T -
0025120 T A B L E - T A B L E D 1 \r (
0025140 L ( 0 O B J E C T ) ) \0 005
0025160 \0 \0 \0 001 @ 002 001 020 \0 N I L \r N I L
0025200 \r ( ) \r ( D E F P R I N T ( Q
0025220 U O T E F A S L : I N C O N S
0025240 I S T E N T - T A B L E ) ( F
0025260 U N C T I O N \ D E F P R I N
0025300 T . D E F S T R U C T . D E F A
0025320 U L T ) ) \r % % M A K E - F A S
0025340 L : I N C O N S I S T E N T - T
0025360 A B L E D 1 \r ( L ( 0 - a
0025400 r g s - ) ) \0 S 005 \0 002 \0 e 021 001
0025420 \0 H k 021 002 002 J d I 363 262 037 277 h 022 021
0025440 1 004 H k 273 272 K d J 363 262 " 277 h 274 g
0025460 \0 \0 I L h 032 032 032 020 a g \0 \0 360 225 J
0025500 k 330 a 260 333 J l 002 324 Z 260 315 a g \0 \0
0025520 360 225 K k 330 a 260 330 K l 002 324 [ 260 312 \0
0025540 N I L \r ( 1 0 2 Q : E X P E C
0025560 T E D 5 7 Q : T A B L E 4
0025600 4 Q F A S L : I N C O N S I S
0025620 T E N T - T A B L E ) \r ( ) \r (
0025640 L E T * ( ( A 1 5 7 0 ( Q U
0025660 O T E F A S L : I N C O N S I
0025700 S T E N T - T A B L E ) ) ( A
0025720 1 5 7 1 ( Q U O T E ( F A S
0025740 L : F A S L - E R R O R ) ) ) )
0025760 ( P U T A 1 5 7 0 ( Q U O
0026000 T E \r % % % % I N C L U D E D
0026020 - S T R U C T U R E ) A 1 5 7
0026040 1 ) ) \r ( P U T P R O P ( Q U
0026060 O T E F A S L : I N C O N S I
0026100 S T E N T - T A B L E ) ( Q U
0026120 O T E S T R U C T U R E - C O
0026140 N S T R U C T O R ) ( Q U O T
0026160 E \r % % M A K E - F A S L : I
0026200 N C O N S I S T E N T - T A B L
0026220 E ) ) \r ( P U T P R O P ( Q U
0026240 O T E F A S L : I N C O N S I
0026260 S T E N T - T A B L E ) ( Q U
0026300 O T E % % S T R U C T U R E -
0026320 C L A S S ) ( Q U O T E L I
0026340 S T - C L A S S ) ) \r ( P U T P
0026360 R O P ( Q U O T E F A S L :
0026400 I N C O N S I S T E N T - T A B
0026420 L E ) ( Q U O T E % % S L O
0026440 T - D E S C R I P T I O N S )
0026460 ( Q U O T E ( ( T A B L E N
0026500 I L : R E A D - O N L Y T )
0026520 \r ( E X P E C T E D N I L
0026540 : R E A D - O N L Y T ) ) ) )
0026560 \r ( P U T P R O P ( Q U O T E
0026600 F A S L : I N C O N S I S T E
0026620 N T - T A B L E ) ( Q U O T E
0026640 % % L O C A L - S L O T - N A
0026660 M E S ) ( Q U O T E ( E X P
0026700 E C T E D T A B L E ) ) ) \r (
0026720 F I X - I N H E R I T A N C E -
0026740 L I N K S ( Q U O T E F A S
0026760 L : I N C O N S I S T E N T - T
0027000 A B L E ) ( Q U O T E F A S
0027020 L : F A S L - E R R O R ) ) \r (
0027040 L E T * ( ( A 1 5 7 4 ( Q U
0027060 O T E F A S L : I N C O N S I
0027100 S T E N T - T A B L E ) ) ( A
0027120 1 5 7 3 ( Q U O T E % % C O
0027140 N D I T I O N - H A N D L E R )
0027160 ) ( A 1 5 7 2 ( Q U O T E
0027200 N I L ) ) \r ) ( P U T P R O P
0027220 A 1 5 7 4 A 1 5 7 3 A 1 5
0027240 7 2 ) ) \r F A S L : I N C O N S
0027260 I S T E N T - T A B L E - c o n
0027300 d i t i o n - r e p o r t e r
0027320 D 1 \r ( L ( 0 C O N D I T I
0027340 O N ) I 1 * S T A N D A R
0027360 D - O U T P U T * ) \0 032 \0 \0 \0
0027400 002 i o \0 \0 \0 @ \t \0 \0 @ \t \0 \0 006 \0
0027420 \0 311 \0 \t \0 \0 \f \0 \0 020 \0 ( 2 7 Q
0027440 F O R M A T 2 4 Q C L : L E
0027460 N G T H 1 4 Q F A S L : I N
0027500 C O N S I S T E N T - T A B L E
0027520 - T A B L E 1 0 Q F A S L :
0027540 I N C O N S I S T E N T - T A B
0027560 L E - E X P E C T E D ) \r ( 1 7
0027600 Q F A S L : : O P T A B L E )
0027620 \r ( 4 " I n c o n s i s t e
0027640 n t F A S L t a b l e s i
0027660 z e . ~ & E x p e c t e d ~ D
0027700 b u t f o u n d ~ D . " )
0027720 \r ( L E T * ( ( A 1 5 7 7 (
0027740 Q U O T E F A S L : I N C O N
0027760 S I S T E N T - T A B L E ) )
0030000 ( A 1 5 7 6 ( Q U O T E % %
0030020 C O N D I T I O N - R E P O R T
0030040 E R ) ) ( A 1 5 7 5 ( Q U O
0030060 T E \r F A S L : I N C O N S I
0030100 S T E N T - T A B L E - c o n d
0030120 i t i o n - r e p o r t e r ) )
0030140 ) ( P U T P R O P A 1 5 7 7
0030160 A 1 5 7 6 A 1 5 7 5 ) ) \r (
0030200 S E T Q F A S L : S I G N A T
0030220 U R E 1 4 5 ) \r ( P U T H A S
0030240 H ( Q U O T E F A S L : S I
0030260 G N A T U R E ) ( Q U O T E
0030300 ( C O N S T A N T F A S L : S
0030320 I G N A T U R E ) ) C O M P V
0030340 A R M A C R O H A S H ) \r ( L E
0030360 T * ( ( A 1 5 7 8 ( Q U O T
0030400 E F A S L : S I G N A T U R E
0030420 ) ) ( A 1 5 7 9 ( Q U O T E
0030440 V A R I A B L E ) ) ( A 1 5
0030460 8 0 " F i r s t b y t e o
0030500 f a F A S L f i l e . " )
0030520 ) ( \r P R O G N ( C O N D
0030540 ( ( F B O U N D P ( Q U O T E
0030560 S E T - D O C U M E N T A T I
0030600 O N ) ) ( S E T - D O C U M E
0030620 N T A T I O N A 1 5 7 8 A 1
0030640 5 7 9 A 1 5 8 0 ) ) ) A 1 5
0030660 8 0 ) ) \r ( P R O C L A I M (
0030700 Q U O T E ( S P E C I A L F
0030720 A S L : : C H E C K - T A B L E
0030740 - S I Z E ) ) ) \r ( O R ( B O
0030760 U N D P ( Q U O T E F A S L
0031000 : : C H E C K - T A B L E - S I
0031020 Z E ) ) ( S E T Q F A S L :
0031040 : C H E C K - T A B L E - S I Z
0031060 E T ) ) \r ( S E T Q F A S L
0031100 : : F A S L - E X T E N D E D
0031120 2 5 4 ) \r ( P U T H A S H ( Q
0031140 U O T E F A S L : : F A S L -
0031160 E X T E N D E D ) ( Q U O T E
0031200 ( C O N S T A N T F A S L :
0031220 : F A S L - E X T E N D E D ) )
0031240 C O M P V A R M A C R O H A S
0031260 H ) \r ( S E T Q F A S L : : E
0031300 N D - M A R K 2 5 5 ) \r ( P U
0031320 T H A S H ( Q U O T E F A S
0031340 L : : E N D - M A R K ) ( Q U
0031360 O T E ( C O N S T A N T F A
0031400 S L : : E N D - M A R K ) ) C
0031420 O M P V A R M A C R O H A S H )
0031440 \r ( S E T Q F A S L : : V E R
0031460 S I O N - R A N G E ( Q U O T
0031500 E ( 2 . 2 ) ) ) \r ( P U T
0031520 H A S H ( Q U O T E F A S L
0031540 : : V E R S I O N - R A N G E )
0031560 ( Q U O T E ( C O N S T A N
0031600 T F A S L : : V E R S I O N -
0031620 R A N G E ) ) C O M P V A R M
0031640 A C R O H A S H ) \r ( L E T *
0031660 ( ( A 1 5 8 1 ( Q U O T E F
0031700 A S L : : V E R S I O N - R A N
0031720 G E ) ) ( A 1 5 8 2 ( Q U O
0031740 T E V A R I A B L E ) ) ( A
0031760 1 5 8 3 \r " H a n d l e s (
0032000 c a r v e r s i o n - r a n g
0032020 e ) < = v e r s i o n < =
0032040 ( c d r v e r s i o n - r a
0032060 n g e ) " ) ) ( P R O G N (
0032100 C O N D ( ( F B O U N D P (
0032120 Q U O T E \r S E T - D O C U M
0032140 E N T A T I O N ) ) ( S E T -
0032160 D O C U M E N T A T I O N A 1
0032200 5 8 1 A 1 5 8 2 A 1 5 8 3 )
0032220 ) ) A 1 5 8 3 ) ) \r ( S E T Q
0032240 F A S L : C U R R E N T - V E
0032260 R S I O N 2 ) \r ( P U T H A S
0032300 H ( Q U O T E F A S L : C U
0032320 R R E N T - V E R S I O N ) (
0032340 Q U O T E ( C O N S T A N T
0032360 F A S L : C U R R E N T - V E R
0032400 S I O N ) ) C O M P V A R M A
0032420 C R O H A S H ) \r F A S L : : T
0032440 A B L E - S T A T S D 1 \r ( L
0032460 ( 0 T A B L E ) ) \0 O 006 \0
0032500 \0 001 g \0 \0 @ \t \0 \0 032 h 032 021 Q 005 @
0032520 \t \0 \0 j 272 271 I J 363 221 h 200 i 221 H 020
0032540 @ J 266 \t \0 \0 ] H g \0 \0 g \0 \0 g \0
0032560 \0 g \0 \0 \r 006 \0 \0 265 \t M j 032 H 032 X
0032600 001 \ 002 k 324 273 L K 031 277 J k 324 272 260 310
0032620 \0 ( 6 5 Q C L : F I N D 4 3
0032640 Q T Y P E - O F 2 0 Q C L
0032660 : L E N G T H 6 C L : L E N
0032700 G T H ) \r ( 6 1 Q C A R 5 6
0032720 Q : K E Y 5 3 Q C L : E Q
0032740 U A L 5 0 Q : T E S T 2
0032760 - - T O T A L - - ) \r ( ) \r F A
0033000 S L : : H A N D L E - H A S H
0033020 D 1 \r ( L ( 0 O B J E C T )
0033040 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 006 020 \0
0033060 N I L \r ( 3 F A S L : : H A N
0033100 D L E ) \r ( ) \r s e t f - F A S
0033120 L : : H A N D L E - H A S H D
0033140 1 \r ( L ( 1 V A L U E 0
0033160 O B J E C T ) ) \0 \n \0 \0 \0 002 @
0033200 006 \0 \0 A 024 006 A 020 \0 N I L \r ( 3
0033220 F A S L : : H A N D L E ) \r ( )
0033240 \r ( R E M P R O P ( Q U O T E
0033260 F A S L : : H A N D L E - H A
0033300 S H ) ( Q U O T E S E T F -
0033320 M E T H O D - E X P A N D E R )
0033340 ) \r ( P U T P R O P S F A S L
0033360 : : H A N D L E - H A S H S E
0033400 T F - I N V E R S E s e t f -
0033420 F A S L : : H A N D L E - H A S
0033440 H ) \r F A S L : : H A N D L E -
0033460 L A S T - I N D E X D 1 \r ( L
0033500 ( 0 O B J E C T ) ) \0 \b \0
0033520 \0 \0 001 @ 006 \0 \0 311 004 020 \0 N I L \r (
0033540 3 F A S L : : H A N D L E ) \r
0033560 ( ) \r s e t f - F A S L : : H A
0033600 N D L E - L A S T - I N D E X
0033620 D 1 \r ( L ( 1 V A L U E 0
0033640 O B J E C T ) ) \0 \n \0 \0 \0 002
0033660 @ 006 \0 \0 A 024 004 A 020 \0 N I L \r ( 3
0033700 F A S L : : H A N D L E ) \r (
0033720 ) \r ( R E M P R O P ( Q U O T
0033740 E F A S L : : H A N D L E - L
0033760 A S T - I N D E X ) ( Q U O T
0034000 E S E T F - M E T H O D - E X
0034020 P A N D E R ) ) \r ( P U T P R O
0034040 P S F A S L : : H A N D L E -
0034060 L A S T - I N D E X S E T F -
0034100 I N V E R S E s e t f - F A S
0034120 L : : H A N D L E - L A S T - I
0034140 N D E X ) \r F A S L : : H A N D
0034160 L E - S T A T E D 1 \r ( L (
0034200 0 O B J E C T ) ) \0 \b \0 \0 \0
0034220 001 @ 006 \0 \0 311 002 020 \0 N I L \r ( 3
0034240 F A S L : : H A N D L E ) \r ( )
0034260 \r s e t f - F A S L : : H A N D
0034300 L E - S T A T E D 1 \r ( L (
0034320 1 V A L U E 0 O B J E C T
0034340 ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A 024 002
0034360 A 020 \0 N I L \r ( 3 F A S L : :
0034400 H A N D L E ) \r ( ) \r ( R E M P
0034420 R O P ( Q U O T E F A S L :
0034440 : H A N D L E - S T A T E ) (
0034460 Q U O T E S E T F - M E T H O
0034500 D - E X P A N D E R ) ) \r ( P U
0034520 T P R O P S F A S L : : H A N
0034540 D L E - S T A T E S E T F - I
0034560 N V E R S E s e t f - F A S L
0034600 : : H A N D L E - S T A T E ) \r
0034620 F A S L : : H A N D L E - S T R
0034640 E A M D 1 \r ( L ( 0 O B J
0034660 E C T ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0
0034700 311 \0 020 \0 N I L \r ( 3 F A S L :
0034720 : H A N D L E ) \r ( ) \r s e t f
0034740 - F A S L : : H A N D L E - S T
0034760 R E A M D 1 \r ( L ( 1 V A
0035000 L U E 0 O B J E C T ) ) \0
0035020 \n \0 \0 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 N
0035040 I L \r ( 3 F A S L : : H A N D
0035060 L E ) \r ( ) \r ( R E M P R O P
0035100 ( Q U O T E F A S L : : H A N
0035120 D L E - S T R E A M ) ( Q U O
0035140 T E S E T F - M E T H O D - E
0035160 X P A N D E R ) ) \r ( P U T P R
0035200 O P S F A S L : : H A N D L E
0035220 - S T R E A M S E T F - I N V
0035240 E R S E s e t f - F A S L : :
0035260 H A N D L E - S T R E A M ) \r F
0035300 A S L : : H A N D L E - P D 1
0035320 \r ( L ( 0 O B J E C T ) )
0035340 \0 006 \0 \0 \0 001 @ 303 \0 \0 020 \0 N I L \r
0035360 ( 3 F A S L : : H A N D L E )
0035400 \r ( ) \r C O P Y - F A S L : : H
0035420 A N D L E D 1 \r ( L ( 0 O
0035440 B J E C T ) ) \0 \t \0 \0 \0 001 ` \0
0035460 \0 @ \n \0 \0 020 \0 ( 6 N C R E A T
0035500 E 2 ) \r ( 2 004 003 F A S L : : H
0035520 A N D L E T Y P E # ) \r ( ) \r (
0035540 D E F P R I N T ( Q U O T E
0035560 F A S L : : H A N D L E ) ( F
0035600 U N C T I O N \ D E F P R I N
0035620 T . D E F S T R U C T . D E F A
0035640 U L T ) ) \r F A S L : : M A K E
0035660 - H A N D L E D 1 \r ( L ( 0
0035700 - a r g s - ) ) \0 276 \v \0 002 \0
0035720 e 021 001 \0 H k 021 002 002 J d I 363 262 a 277
0035740 h 022 021 221 \n H k 273 272 K d J 363 262 d 277
0035760 g \0 \0 274 H k 276 275 N d M 363 262 h 277 j
0036000 _ 016 277 H k _ 022 277 _ 020 277 O 022 d O 020
0036020 363 262 f 277 g \0 \0 g \0 \0 \t \0 \0 \n \0 \0
0036040 _ 024 277 ` \0 \0 037 d I 024 \0 277 d L 024 002
0036060 277 d O 016 024 004 277 d O 024 024 006 277 020 a g
0036100 \0 \0 360 225 J k 330 a 260 231 J l 002 324 Z 260
0036120 213 a g \0 \0 360 225 K k 330 a 260 230 K l 002
0036140 324 [ 260 210 a g \0 \0 360 225 N k 330 a 260 222
0036160 N l 002 324 ^ 260 204 a g \0 \0 360 226 O 022 k
0036200 330 a 260 236 O 022 l 002 324 _ 022 260 202 \0 ( 1
0036220 1 7 Q M A K E - H A S H - T A
0036240 B L E 1 1 4 Q S Y M B O L -
0036260 F U N C T I O N ) \r ( 2 5 2 Q
0036300 : H A S H 2 2 7 Q : L A S T
0036320 - I N D E X 2 0 4 Q : S T A
0036340 T E 1 6 1 Q : S T R E A M
0036360 1 2 5 Q 004 003 F A S L : : H A N
0036400 D L E T Y P E # 1 1 1 Q E Q
0036420 1 0 6 Q : T E S T 4 2 Q
0036440 : B L O C K - E N D ) \r ( ) \r (
0036460 P U T P R O P ( Q U O T E F
0036500 A S L : : H A N D L E ) ( Q U
0036520 O T E S T R U C T U R E - C O
0036540 N S T R U C T O R ) ( Q U O T
0036560 E F A S L : : M A K E - H A N
0036600 D L E ) ) \r ( P U T P R O P (
0036620 Q U O T E F A S L : : H A N D
0036640 L E ) ( Q U O T E % % S T R
0036660 U C T U R E - C L A S S ) ( Q
0036700 U O T E S T R U C T U R E - C
0036720 L A S S ) ) \r ( P U T P R O P
0036740 ( Q U O T E F A S L : : H A N
0036760 D L E ) ( Q U O T E % % S L
0037000 O T - D E S C R I P T I O N S )
0037020 ( Q U O T E ( S T R E A M
0037040 ( S T A T E : B L O C K - E N
0037060 D ) ( \r L A S T - I N D E X
0037100 0 ) ( H A S H ( M A K E - H
0037120 A S H - T A B L E : T E S T
0037140 ( C L : F U N C T I O N E Q )
0037160 ) ) ) ) ) \r ( P U T P R O P (
0037200 Q U O T E F A S L : : H A N D
0037220 L E ) ( Q U O T E % % L O C
0037240 A L - S L O T - N A M E S ) (
0037260 Q U O T E ( H A S H L A S T
0037300 - I N D E X S T A T E S T R
0037320 E A M ) ) ) \r ( / D E C L A R E
0037340 D A T A T Y P E ( Q U O T E
0037360 F A S L : : H A N D L E ) ( Q
0037400 U O T E ( P O I N T E R P O
0037420 I N T E R P O I N T E R P O
0037440 I N T E R ) ) ( Q U O T E (
0037460 ( F A S L : : H A N D L E \r 0
0037500 P O I N T E R ) ( F A S L :
0037520 : H A N D L E 2 P O I N T E
0037540 R ) ( F A S L : : H A N D L E
0037560 4 P O I N T E R ) ( F A S
0037600 L : : H A N D L E 6 P O I N
0037620 T E R ) ) ) ( Q U O T E 8 )
0037640 ) \r ( S E T Q F A S L : : D U
0037660 M M Y - H A N D L E ( F A S L
0037700 : : M A K E - H A N D L E : S
0037720 T R E A M ( O P E N " { n u
0037740 l l } " : D I R E C T I O N
0037760 : O U T P U T ) : S T A T E
0040000 : B L O C K \r : H A S H N I
0040020 L ) ) \r ( P U T H A S H ( Q U
0040040 O T E F A S L : : D U M M Y -
0040060 H A N D L E ) ( Q U O T E (
0040100 C O N S T A N T F A S L : : D
0040120 U M M Y - H A N D L E ) ) C O
0040140 M P V A R M A C R O H A S H ) \r
0040160 ( S E T Q F A S L : : + S M A
0040200 L L E S T - F O U R - B Y T E -
0040220 I N T E G E R + ( - ( C L :
0040240 E X P T 2 3 1 ) ) ) \r ( P U
0040260 T H A S H ( Q U O T E F A S
0040300 L : : + S M A L L E S T - F O U
0040320 R - B Y T E - I N T E G E R + )
0040340 ( Q U O T E ( C O N S T A N
0040360 T \r F A S L : : + S M A L L E
0040400 S T - F O U R - B Y T E - I N T
0040420 E G E R + ) ) C O M P V A R M
0040440 A C R O H A S H ) \r ( S E T Q
0040460 F A S L : : + L A R G E S T - F
0040500 O U R - B Y T E - I N T E G E R
0040520 + ( 1 - ( C L : E X P T 2
0040540 3 1 ) ) ) \r ( P U T H A S H
0040560 ( Q U O T E F A S L : : + L A
0040600 R G E S T - F O U R - B Y T E -
0040620 I N T E G E R + ) ( Q U O T E
0040640 ( C O N S T A N T F A S L :
0040660 : + L A R G E S T - F O U R - B
0040700 Y T E - I N T E G E R + ) \r )
0040720 C O M P V A R M A C R O H A S H
0040740 ) \r ( P R O C L A I M ( Q U O
0040760 T E ( S P E C I A L F A S L
0041000 : : * G A T H E R - D U M P E R
0041020 - S T A T S * ) ) ) \r ( O R (
0041040 B O U N D P ( Q U O T E F A
0041060 S L : : * G A T H E R - D U M P
0041100 E R - S T A T S * ) ) ( S E T
0041120 Q F A S L : : * G A T H E R -
0041140 D U M P E R - S T A T S * N I
0041160 L ) ) \r ( P R O C L A I M ( Q
0041200 U O T E ( S P E C I A L F A
0041220 S L : : * T A B L E - A T T E M
0041240 P T S * ) ) ) \r ( O R ( B O U
0041260 N D P ( Q U O T E F A S L :
0041300 : * T A B L E - A T T E M P T S
0041320 * ) ) ( S E T Q F A S L : :
0041340 * T A B L E - A T T E M P T S *
0041360 0 ) ) \r ( L E T * ( ( A 1 5
0041400 8 4 ( Q U O T E F A S L : :
0041420 * T A B L E - A T T E M P T S *
0041440 ) ) ( A 1 5 8 5 ( Q U O T E
0041460 V A R I A B L E ) ) ( A 1 5
0041500 8 6 \r " N u m b e r o f t
0041520 a b l e l o o k u p s b y
0041540 t h e F A S L d u m p e r .
0041560 " ) ) ( P R O G N ( C O N D
0041600 ( ( F B O U N D P ( Q U O T
0041620 E S E T - D O C U M E N T A T
0041640 I O N ) ) ( \r S E T - D O C U
0041660 M E N T A T I O N A 1 5 8 4
0041700 A 1 5 8 5 A 1 5 8 6 ) ) ) A
0041720 1 5 8 6 ) ) \r ( P R O C L A I M
0041740 ( Q U O T E ( S P E C I A L
0041760 F A S L : : * T A B L E - H I
0042000 T S * ) ) ) \r ( O R ( B O U N
0042020 D P ( Q U O T E F A S L : :
0042040 * T A B L E - H I T S * ) ) (
0042060 S E T Q F A S L : : * T A B L
0042100 E - H I T S * 0 ) ) \r ( L E T
0042120 * ( ( A 1 5 8 7 ( Q U O T E
0042140 F A S L : : * T A B L E - H I
0042160 T S * ) ) ( A 1 5 8 8 ( Q U
0042200 O T E V A R I A B L E ) ) (
0042220 A 1 5 8 9 \r " N u m b e r o
0042240 f s u c c e s s f u l t a b
0042260 l e l o o k u p s b y t h
0042300 e F A S L d u m p e r . " )
0042320 ) ( P R O G N ( C O N D (
0042340 ( F B O U N D P ( Q U O T E
0042360 \r S E T - D O C U M E N T A T I
0042400 O N ) ) ( S E T - D O C U M E
0042420 N T A T I O N A 1 5 8 7 A 1
0042440 5 8 8 A 1 5 8 9 ) ) ) A 1 5
0042460 8 9 ) ) \r F A S L : : R E S E T
0042500 - D U M P E R - S T A T S D 1
0042520 \r ( F 0 F A S L : : * T A B
0042540 L E - A T T E M P T S * F 1
0042560 F A S L : : * T A B L E - H I
0042600 T S * ) \0 \b \0 002 \0 \0 j c \0 d c
0042620 002 020 \0 N I L \r N I L \r ( ) \r D O
0042640 T T E D - L I S T - L E N G T H
0042660 D 1 \r ( L ( 0 X ) ) \0 A
0042700 003 \0 \0 001 j @ d 021 003 002 I 265 004 H 020 003
0042720 245 H i \n \0 \0 020 I d 002 244 277 H k 324 020
0042740 002 003 247 H k 324 i \n \0 \0 020 I J 360 226 H
0042760 d j 363 222 h 020 H l 002 324 I 002 002 J 002 272
0043000 271 270 260 310 \0 ( 4 5 Q V A L U E S
0043020 2 1 Q V A L U E S ) \r N I L
0043040 \r ( ) \r e x p a n d - F A S L :
0043060 : S T A T E - C A S E D 1 \r (
0043100 L ( 1 $ $ M A C R O - E N V
0043120 I R O N M E N T 0 $ $ M A C
0043140 R O - F O R M ) ) \0 021 001 \0 \0 002
0043160 @ 002 021 001 \0 g \0 \0 o \0 \0 \0 H 032 032 020
0043200 \0 N I L \r ( 7 E C A S E ) \r (
0043220 1 3 Q ( F A S L : : H A N D
0043240 L E - S T A T E H A N D L E )
0043260 ) \r ( S E T F - M A C R O - F U
0043300 N C T I O N ( Q U O T E F A
0043320 S L : : S T A T E - C A S E )
0043340 ( Q U O T E e x p a n d - F A
0043360 S L : : S T A T E - C A S E ) )
0043400 \r F A T - S T R I N G - P D 1
0043420 \r ( L ( 0 S T R I N G ) )
0043440 \0 025 \0 \0 \0 001 @ d 005 \a 232 277 @ 006 \0 \0
0043460 312 \0 C k 360 020 \t \0 \0 020 \0 ( 2 2 Q
0043500 % % F A T - S T R I N G - A R R
0043520 A Y - P ) \r ( 1 1 Q S T R I N
0043540 G P ) \r ( ) \r e x p a n d - F A
0043560 S L : : R E M E M B E R D 1 \r
0043600 ( L ( 1 $ $ M A C R O - E N
0043620 V I R O N M E N T 0 $ $ M A
0043640 C R O - F O R M ) ) \0 = 004 \0 \0
0043660 002 @ 002 021 1 003 H 001 271 H 002 272 \b \0 \0 273
0043700 g \0 \0 K I h 032 032 h 032 o \0 \0 \0 J g
0043720 \0 \0 g \0 \0 g \0 \0 g \0 \0 K h 032 032 032
0043740 h 032 032 032 h 032 \n \0 \0 032 032 032 020 \0 ( 6
0043760 7 Q \ A P P E N D 2 1 5 Q
0044000 G E N S Y M ) \r ( 5 1 Q H A N
0044020 D L E 4 6 Q F A S L : : S A
0044040 V E - V A L U E 4 3 Q R E M
0044060 E M B E R 4 0 Q C L : W H E
0044100 N 2 1 Q L E T ) \r ( 3 4 Q
0044120 ( C L : W H E N R E M E M B
0044140 E R ( F A S L : : W R I T E -
0044160 O P H A N D L E ( Q U O T E
0044200 F A S L : F A S L - T A B L E
0044220 - S T O R E ) ) ) ) \r ( S E T F
0044240 - M A C R O - F U N C T I O N
0044260 ( Q U O T E F A S L : : R E M
0044300 E M B E R ) ( Q U O T E e x
0044320 p a n d - F A S L : : R E M E M
0044340 B E R ) ) \r F A S L : : E L E M
0044360 E N T S - I D E N T I C A L - P
0044400 A 0 0 0 1 D 1 \r ( L ( 0 X
0044420 ) F 0 T E S T E L T ) \0
0044440 005 \0 001 \0 001 @ P : 020 \0 N I L \r N I
0044460 L \r ( ) \r F A S L : : E L E M E
0044500 N T S - I D E N T I C A L - P
0044520 D 1 \r ( L ( 0 A R R A Y )
0044540 P 1 T E S T E L T ) \0 026 002
0044560 \0 \0 001 @ \t \0 \0 021 001 \0 H j 266 021 001 001
0044600 g \0 \0 H \n \0 \0 020 \0 ( 2 3 Q % %
0044620 S I N G L E - E V E R Y 3 \
0044640 F L A T T E N - A R R A Y ) \r (
0044660 1 7 Q F A S L : : E L E M E N
0044700 T S - I D E N T I C A L - P A 0
0044720 0 0 1 ) \r ( ) \r F A S L : : E N
0044740 D - B L O C K D 1 \r ( L ( 0
0044760 H A N D L E ) F 1 F A S
0045000 L : : C H E C K - T A B L E - S
0045020 I Z E ) \0 W 001 001 \0 001 @ \t \0 \0 021
0045040 001 \0 H g \0 \0 360 264 = Q 262 024 @ g \0 \0
0045060 \n \0 \0 277 @ d \t \0 \0 h \v \0 \0 277 @ \t
0045100 \0 \0 l 377 \n \0 \0 @ j \n \0 \0 @ g \0 \0
0045120 g \0 \0 \t \0 \0 \n \0 \0 \n \0 \0 @ g \0 \0
0045140 \n \0 \0 020 o \0 \0 \0 H o \0 \0 \0 \f \0 \0
0045160 020 \0 ( 1 2 4 Q E C A S E - F A
0045200 I L 1 0 7 Q s e t f - F A S
0045220 L : : H A N D L E - S T A T E
0045240 1 0 0 Q s e t f - F A S L : :
0045260 H A N D L E - H A S H 7 5 Q
0045300 M A K E - H A S H - T A B L E
0045320 7 2 Q S Y M B O L - F U N C T
0045340 I O N 6 0 Q s e t f - F A S
0045360 L : : H A N D L E - L A S T - I
0045400 N D E X 5 3 Q B O U T 4 6
0045420 Q F A S L : : H A N D L E - S
0045440 T R E A M 4 1 Q F A S L : D
0045460 U M P - V A L U E 3 5 Q F A
0045500 S L : : H A N D L E - L A S T -
0045520 I N D E X 2 7 Q F A S L : :
0045540 W R I T E - O P 3 F A S L :
0045560 : H A N D L E - S T A T E ) \r (
0045600 1 0 4 Q : B L O C K - E N D
0045620 6 7 Q E Q 6 4 Q : T E S T
0045640 2 4 Q F A S L : F A S L - V
0045660 E R I F Y - T A B L E - S I Z E
0045700 1 2 Q : B L O C K ) \r ( 1
0045720 2 1 Q ( : B L O C K ) 1 1 4
0045740 Q ( F A S L : : H A N D L E -
0045760 S T A T E H A N D L E ) ) \r F
0046000 A S L : : E N D - T E X T D 1
0046020 \r ( L ( 0 H A N D L E ) )
0046040 \0 - 001 \0 \0 001 @ \t \0 \0 021 001 \0 H g \0
0046060 \0 360 264 023 @ \t \0 \0 l 377 \n \0 \0 @ g \0
0046100 \0 \n \0 \0 020 o \0 \0 \0 H o \0 \0 \0 \f \0
0046120 \0 020 \0 ( 5 2 Q E C A S E - F A
0046140 I L 3 5 Q s e t f - F A S L
0046160 : : H A N D L E - S T A T E 2
0046200 6 Q B O U T 2 1 Q F A S L
0046220 : : H A N D L E - S T R E A M
0046240 3 F A S L : : H A N D L E - S
0046260 T A T E ) \r ( 3 2 Q : B L O C
0046300 K 1 2 Q : T E X T ) \r ( 4
0046320 7 Q ( : T E X T ) 4 2 Q (
0046340 F A S L : : H A N D L E - S T A
0046360 T E H A N D L E ) ) \r F A S L
0046400 : : W R I T E - O P D 1 \r ( L
0046420 ( 1 O P N A M E 0 H A N
0046440 D L E ) ) \0 D 005 \0 \0 002 @ \t \0 \0
0046460 021 A 004 H g \0 \0 360 264 * @ \t \0 \0 A \t
0046500 \0 \0 272 271 J 265 \r g \0 \0 g \0 \0 A \v \0
0046520 \0 020 [ d 262 375 001 274 I L \n \0 \0 277 K 002
0046540 260 362 o \0 \0 \0 H o \0 \0 \0 \f \0 \0 020 \0
0046560 ( 1 0 1 Q E C A S E - F A I L
0046600 6 0 Q B O U T 4 4 Q C L
0046620 : E R R O R 2 5 Q F A S L :
0046640 O P C O D E - S E Q U E N C E
0046660 2 1 Q F A S L : : H A N D L E
0046700 - S T R E A M 3 F A S L : :
0046720 H A N D L E - S T A T E ) \r ( 4
0046740 0 Q : O P N A M E 3 5 Q F
0046760 A S L : U N I M P L E M E N T E
0047000 D - O P C O D E 1 2 Q : B L
0047020 O C K ) \r ( 7 6 Q ( : B L O
0047040 C K ) 7 1 Q ( F A S L : : H
0047060 A N D L E - S T A T E H A N D
0047100 L E ) ) \r F A S L : : L O O K U
0047120 P - V A L U E D 1 \r ( L ( 1
0047140 V A L U E 0 H A N D L E )
0047160 ) \0 \n \0 \0 \0 002 A @ \t \0 \0 \n \0 \0
0047200 020 \0 ( 7 G E T H A S H 4 F
0047220 A S L : : H A N D L E - H A S H
0047240 ) \r N I L \r ( ) \r F A S L : : S
0047260 A V E - V A L U E D 1 \r ( L
0047300 ( 1 V A L U E 0 H A N D L
0047320 E ) ) \0 ' 003 \0 \0 002 A 021 ! 002 @ \t
0047340 \0 \0 272 @ \t \0 \0 271 H J I \v \0 \0 023 @
0047360 021 021 001 H \t \0 \0 k 324 271 H I \n \0 \0 020
0047400 \0 ( 4 4 Q s e t f - F A S L :
0047420 : H A N D L E - L A S T - I N D
0047440 E X 3 4 Q F A S L : : H A N
0047460 D L E - L A S T - I N D E X 2
0047500 3 Q C L : P U T H A S H 1 4
0047520 Q F A S L : : H A N D L E - L
0047540 A S T - I N D E X 7 F A S L
0047560 : : H A N D L E - H A S H ) \r N
0047600 I L \r ( ) \r F A S L : : D U M P
0047620 - V A L U E - F E T C H D 1 \r
0047640 ( L ( 1 I N D E X 0 H A
0047660 N D L E ) ) \0 017 \0 \0 \0 002 @ g \0
0047700 \0 \n \0 \0 @ A h \v \0 \0 020 \0 ( 1 4 Q
0047720 F A S L : D U M P - V A L U E
0047740 6 F A S L : : W R I T E - O
0047760 P ) \r ( 3 F A S L : F A S L -
0050000 T A B L E - F E T C H ) \r ( ) \r
0050020 F A S L : : D U M P - C H A R A
0050040 C T E R D 1 \r ( L ( 2 R E
0050060 M E M B E R 1 C H A R 0
0050100 H A N D L E ) ) \0 , 002 \0 \0 003 A
0050120 006 \0 \0 323 @ \t \0 \0 021 002 001 @ g \0 \0 \n
0050140 \0 \0 n 001 \0 H 363 225 I H \n \0 \0 020 I l
0050160 377 \n \0 \0 I H \n \0 \0 020 \0 ( 5 1 Q
0050200 B O U T 1 6 4 4 Q B O U T
0050220 3 5 Q B O U T 2 2 Q F A S
0050240 L : : W R I T E - O P 1 0 Q
0050260 F A S L : : H A N D L E - S T R
0050300 E A M ) \r ( 1 7 Q F A S L : F
0050320 A S L - C H A R A C T E R 3
0050340 C H A R A C T E R ) \r ( ) \r F A
0050360 S L : : D U M P - S Y M B O L
0050400 D 1 \r ( L ( 2 R E M E M B E
0050420 R 1 S Y M B O L 0 H A N
0050440 D L E ) ) \0 b 003 \0 \0 003 A \t \0 \0
0050460 A \t \0 \0 021 022 002 A 272 B 227 @ g \0 \0 \n
0050500 \0 \0 277 A \t \0 \0 234 @ g \0 \0 \n \0 \0 277
0050520 @ H h 260 - I \t \0 \0 o \0 \0 \0 \n \0 \0
0050540 234 @ g \0 \0 \n \0 \0 277 @ H h 260 024 @ g
0050560 \0 \0 \n \0 \0 277 @ H h \v \0 \0 277 @ I B
0050600 \v \0 \0 277 B 264 \a @ J \n \0 \0 020 \0 ( 1
0050620 3 7 Q F A S L : : S A V E - V
0050640 A L U E 1 2 6 Q F A S L : D
0050660 U M P - V A L U E 1 1 7 Q F
0050700 A S L : D U M P - V A L U E 1
0050720 1 0 Q F A S L : : W R I T E -
0050740 O P 7 3 Q F A S L : : W R I
0050760 T E - O P 6 3 Q S T R I N G
0051000 - E Q U A L 5 4 Q P A C K A
0051020 G E - N A M E 4 2 Q F A S L
0051040 : : W R I T E - O P 3 2 Q K
0051060 E Y W O R D P 2 5 Q F A S L
0051100 : : W R I T E - O P 7 S Y M
0051120 B O L - P A C K A G E 3 S Y
0051140 M B O L - N A M E ) \r ( 1 0 5 Q
0051160 F A S L : F A S L - S Y M B O
0051200 L - I N - P A C K A G E 7 0 Q
0051220 F A S L : F A S L - L I S P -
0051240 S Y M B O L 3 7 Q F A S L :
0051260 F A S L - K E Y W O R D - S Y M
0051300 B O L 2 2 Q F A S L : F A S
0051320 L - T A B L E - S T O R E ) \r (
0051340 6 0 Q " l i s p " ) \r F A S
0051360 L : : D U M P - L I S T D 1 \r
0051400 ( L ( 2 R E M E M B E R 1
0051420 L I S T 0 H A N D L E ) )
0051440 \0 y 006 \0 \0 003 A \t \0 \0 \t \0 \0 021 Q
0051460 005 H 001 271 H 002 001 272 I 221 h 200 i 232 g \0
0051500 \0 g \0 \0 A \v \0 \0 277 A 273 B 227 @ g \0
0051520 \0 \n \0 \0 277 @ J 223 g \0 \0 202 g \0 \0 \n
0051540 \0 \0 @ J 223 I k 324 200 I h \v \0 \0 I j
0051560 275 274 L M 363 221 h 200 i 263 024 @ A 001 \n \0
0051600 \0 277 A 002 b 002 277 M k 324 275 260 347 J 226 @
0051620 A h \v \0 \0 277 B 264 \a @ K \n \0 \0 020 \0
0051640 ( 1 6 6 Q F A S L : : S A V E
0051660 - V A L U E 1 5 5 Q F A S L
0051700 : D U M P - V A L U E 1 3 1 Q
0051720 F A S L : D U M P - V A L U E
0051740 1 0 6 Q F A S L : D U M P -
0051760 V A L U E 7 2 Q F A S L : :
0052000 W R I T E - O P 5 4 Q F A S
0052020 L : : W R I T E - O P 4 0 Q
0052040 C L : E R R O R 6 \ M V L I
0052060 S T 3 D O T T E D - L I S T
0052100 - L E N G T H ) \r ( 6 7 Q F A
0052120 S L : F A S L - L I S T 6 3 Q
0052140 F A S L : F A S L - L I S T *
0052160 5 1 Q F A S L : F A S L - T
0052200 A B L E - S T O R E 3 4 Q :
0052220 O B J E C T 3 1 Q F A S L :
0052240 O B J E C T - N O T - D U M P A
0052260 B L E ) \r ( ) \r F A S L : : D U
0052300 M P - S I M P L E - V E C T O R
0052320 D 1 \r ( L ( 2 R E M E M B
0052340 E R 1 V E C T O R 0 H A
0052360 N D L E ) ) \0 E 004 \0 \0 003 A \t \0
0052400 \0 021 1 003 A 271 B 227 @ g \0 \0 \n \0 \0 277
0052420 @ g \0 \0 \n \0 \0 @ H B \v \0 \0 H j 273
0052440 272 J K 363 221 h 200 i 256 @ A K 266 B \v \0
0052460 \0 277 K k 324 273 260 353 B 264 \a @ I \n \0 \0
0052500 020 \0 ( 1 0 2 Q F A S L : : S A
0052520 V E - V A L U E 6 3 Q F A S
0052540 L : D U M P - V A L U E 3 7 Q
0052560 F A S L : D U M P - V A L U E
0052600 3 1 Q F A S L : : W R I T E
0052620 - O P 2 1 Q F A S L : : W R
0052640 I T E - O P 3 C L : L E N G
0052660 T H ) \r ( 2 6 Q F A S L : F A
0052700 S L - V E C T O R 1 6 Q F A
0052720 S L : F A S L - T A B L E - S T
0052740 O R E ) \r ( ) \r F A S L : : D U
0052760 M P - A R R A Y - D E S C R I P
0053000 T O R D 1 \r ( L ( 0 - a r
0053020 g s - ) ) \0 245 \t \0 002 \0 e 021 001 \0
0053040 k a 021 q \b l 002 a 272 l 003 a 273 i 274 H
0053060 l 004 276 275 N d M 363 262 / 277 h \ _ 016 277
0053100 J _ 020 277 K 227 I g \0 \0 \n \0 \0 277 I g
0053120 \0 \0 \n \0 \0 I J d \t \0 \0 k : 262 035 277
0053140 J \t \0 \0 001 260 030 a g \0 \0 360 225 N k 330
0053160 a 260 314 N l 002 324 ^ 260 275 \t \0 \0 K \v \0
0053200 \0 I g \0 \0 J \t \0 \0 g \0 \0 J \t \0 \0
0053220 J \t \0 \0 264 \f g \0 \0 J \t \0 \0 h 032 032
0053240 L 264 \n g \0 \0 O 016 h 032 032 \n \0 \0 032 032
0053260 032 032 K \v \0 \0 K 264 \b I O 020 \n \0 \0 020
0053300 \0 ( 2 4 2 Q F A S L : : S A V
0053320 E - V A L U E 2 3 1 Q F A S
0053340 L : D U M P - V A L U E 2 2 1
0053360 Q \ A P P E N D 2 2 0 0 Q
0053400 F I L L - P O I N T E R 1 6 7
0053420 Q A R R A Y - H A S - F I L L
0053440 - P O I N T E R - P 1 6 3 Q
0053460 A D J U S T A B L E - A R R A Y
0053500 - P 1 5 4 Q A R R A Y - E L
0053520 E M E N T - T Y P E 1 4 4 Q
0053540 F A S L : D U M P - V A L U E
0053560 1 4 0 Q A R R A Y - D I M E N
0053600 S I O N S 1 0 7 Q A R R A Y
0053620 - D I M E N S I O N S 7 6 Q
0053640 A R R A Y - R A N K 7 0 Q F
0053660 A S L : : W R I T E - O P 6 0
0053700 Q F A S L : : W R I T E - O P
0053720 ) \r ( 2 1 1 Q : I N I T I A L
0053740 - E L E M E N T 1 7 4 Q : F
0053760 I L L - P O I N T E R 1 5 7 Q
0054000 : A D J U S T A B L E 1 5 0
0054020 Q : E L E M E N T - T Y P E
0054040 1 1 6 Q : I N I T I A L - E L
0054060 E M E N T 6 5 Q F A S L : F
0054100 A S L - C R E A T E - A R R A Y
0054120 5 5 Q F A S L : F A S L - T
0054140 A B L E - S T O R E ) \r ( ) \r F
0054160 A S L : : D U M P - B I T - A R
0054200 R A Y D 1 \r ( L ( 2 R E M
0054220 E M B E R 1 A R R A Y 0
0054240 H A N D L E ) ) \0 m 006 \0 \0 003 A
0054260 \t \0 \0 021 ! 002 A \t \0 \0 \t \0 \0 221 h 200
0054300 i 232 g \0 \0 g \0 \0 A \v \0 \0 277 A 271 B
0054320 227 @ g \0 \0 \n \0 \0 277 @ g \0 \0 \n \0 \0
0054340 @ H B \v \0 \0 @ A B \v \0 \0 @ \t \0 \0
0054360 A \t \0 \0 H l \b \n \0 \0 021 003 005 K 006 \0
0054400 \0 311 006 006 \0 \0 311 8 272 K L j M l 004 J
0054420 016 023 B 264 \a @ I \n \0 \0 020 \0 ( 1 5 2
0054440 Q F A S L : : S A V E - V A L
0054460 U E 1 1 2 Q C E I L I N G
0054500 1 0 4 Q \ A R R A Y - B A S E
0054520 1 0 0 Q F A S L : : H A N D
0054540 L E - S T R E A M 7 4 Q F A
0054560 S L : : D U M P - A R R A Y - D
0054600 E S C R I P T O R 6 6 Q F A
0054620 S L : D U M P - V A L U E 6 0
0054640 Q F A S L : : W R I T E - O P
0054660 5 0 Q F A S L : : W R I T E
0054700 - O P 3 4 Q C L : E R R O R
0054720 1 5 Q C L : Z E R O P 1 2
0054740 Q \ A R R A Y - O F F S E T
0054760 3 A R R A Y - T O T A L - S I
0055000 Z E ) \r ( 1 2 6 Q F D E V 1
0055020 2 1 Q S T R E A M 5 5 Q F
0055040 A S L : F A S L - I N I T I A L
0055060 I Z E - B I T - A R R A Y 4 5
0055100 Q F A S L : F A S L - T A B L
0055120 E - S T O R E 3 0 Q : O B J
0055140 E C T 2 5 Q F A S L : O B J
0055160 E C T - N O T - D U M P A B L E
0055200 ) \r ( ) \r F A S L : : D U M P -
0055220 G E N E R A L - A R R A Y D 1
0055240 \r ( L ( 2 R E M E M B E R
0055260 1 A R R A Y 0 H A N D L E
0055300 ) ) \0 K 005 \0 \0 003 A \t \0 \0 021 A 004
0055320 A \t \0 \0 271 @ g \0 \0 \n \0 \0 @ A h \v
0055340 \0 \0 @ H h \v \0 \0 H g \0 \0 A g \0 \0
0055360 I \r 005 \0 \0 272 H j 274 273 K L 363 221 h 200
0055400 i 221 h 020 @ J L 266 h \v \0 \0 277 L k 324
0055420 274 260 351 \0 ( 1 0 2 Q F A S L : D
0055440 U M P - V A L U E 5 3 Q M A
0055460 K E - A R R A Y 3 6 Q F A S
0055500 L : D U M P - V A L U E 3 0 Q
0055520 F A S L : : D U M P - A R R A
0055540 Y - D E S C R I P T O R 2 2 Q
0055560 F A S L : : W R I T E - O P
0055600 1 2 Q A R R A Y - E L E M E N
0055620 T - T Y P E 3 A R R A Y - T
0055640 O T A L - S I Z E ) \r ( 4 6 Q
0055660 : E L E M E N T - T Y P E 4 2
0055700 Q : D I S P L A C E D - T O
0055720 1 7 Q F A S L : F A S L - I N
0055740 I T I A L I Z E - A R R A Y ) \r
0055760 ( ) \r F A S L : : D U M P - A R
0056000 R A Y D 1 \r ( L ( 2 R E M
0056020 E M B E R 1 A R R A Y 0
0056040 H A N D L E ) ) \0 G 001 \0 \0 003 A
0056060 d \t \0 \0 233 277 g \0 \0 g \0 \0 A \v \0 \0
0056100 020 \t \0 \0 226 @ A B \v \0 \0 020 A 021 001 \0
0056120 H \t \0 \0 264 \v H \t \0 \0 o \0 \0 \0 364 022
0056140 226 @ A B \v \0 \0 020 A \t \0 \0 262 331 @ A
0056160 B \v \0 \0 020 \0 ( 1 0 4 Q F A S L
0056200 : : D U M P - S I M P L E - V E
0056220 C T O R 7 4 Q V E C T O R P
0056240 6 7 Q F A S L : : D U M P -
0056260 B I T - A R R A Y 5 2 Q A R
0056300 R A Y - E L E M E N T - T Y P E
0056320 4 4 Q C L : A R R A Y P 3
0056340 3 Q F A S L : : D U M P - G E
0056360 N E R A L - A R R A Y 2 4 Q
0056400 A D J U S T A B L E - A R R A Y
0056420 - P 2 0 Q C L : E R R O R
0056440 4 D I S P L A C E D - A R R A
0056460 Y - P ) \r ( 1 4 Q : O B J E C
0056500 T 1 1 Q F A S L : O B J E C
0056520 T - N O T - D U M P A B L E ) \r
0056540 ( 5 6 Q ( U N S I G N E D -
0056560 B Y T E 1 ) ) \r F A S L : : W
0056600 R I T E - I N T E G E R - B Y T
0056620 E S D 1 \r ( L ( 2 V A L U
0056640 E 1 N B Y T E S 0 H A N
0056660 D L E ) ) \0 035 003 \0 \0 003 @ \t \0 \0
0056700 021 ! 002 B A \n \0 \0 Y d 240 020 001 272 H J
0056720 \n \0 \0 277 I 002 260 362 \0 ( 2 6 Q B O
0056740 U T 1 3 Q F A S L : : I N T
0056760 E G E R - B Y T E - L I S T 3
0057000 F A S L : : H A N D L E - S T
0057020 R E A M ) \r N I L \r ( ) \r F A S
0057040 L : : I N T E G E R - B Y T E -
0057060 L I S T D 1 \r ( L ( 1 N B
0057100 Y T E S 0 V A L U E ) ) \0
0057120 ) 004 \0 \0 002 j @ 021 " 003 A H 363 221 h 200
0057140 i 221 J 020 I n 001 \0 \n \0 \0 \t \0 \0 [ 001
0057160 271 K 002 001 J 032 272 H k 324 270 260 337 \0 ( 3
0057200 0 Q \ M V L I S T 2 5 Q C
0057220 L : F L O O R ) \r N I L \r ( ) \r
0057240 F A S L : : D U M P - R A T I O
0057260 N A L D 1 \r ( L ( 2 R E M
0057300 E M B E R 1 V A L U E 0
0057320 H A N D L E ) ) \0 033 \0 \0 \0 003 @
0057340 g \0 \0 \n \0 \0 @ A \t \0 \0 h \v \0 \0 @
0057360 A \t \0 \0 h \v \0 \0 020 \0 ( 3 0 Q F
0057400 A S L : D U M P - V A L U E 2
0057420 4 Q D E N O M I N A T O R 1
0057440 7 Q F A S L : D U M P - V A L
0057460 U E 1 3 Q N U M E R A T O R
0057500 6 F A S L : : W R I T E - O
0057520 P ) \r ( 3 F A S L : F A S L -
0057540 R A T I O ) \r ( ) \r F A S L : :
0057560 D U M P - C O M P L E X D 1 \r
0057600 ( L ( 2 R E M E M B E R 1
0057620 V A L U E 0 H A N D L E )
0057640 ) \0 033 \0 \0 \0 003 @ g \0 \0 \n \0 \0 @
0057660 A \t \0 \0 h \v \0 \0 @ A \t \0 \0 h \v \0
0057700 \0 020 \0 ( 3 0 Q F A S L : D U M
0057720 P - V A L U E 2 4 Q I M A G
0057740 P A R T 1 7 Q F A S L : D U
0057760 M P - V A L U E 1 3 Q R E A
0060000 L P A R T 6 F A S L : : W R
0060020 I T E - O P ) \r ( 3 F A S L :
0060040 F A S L - C O M P L E X ) \r ( )
0060060 \r F A S L : : D U M P - I N T E
0060100 G E R D 1 \r ( L ( 2 R E M
0060120 E M B E R 1 V A L U E 0
0060140 H A N D L E ) ) \0 d 001 \0 \0 003 j
0060160 A 363 221 h 200 i 235 l 200 A 363 230 @ \t \0 \0
0060200 A \n \0 \0 020 o \0 \0 \0 A 363 221 h 200 i 262
0060220 034 A o \0 \0 \0 363 221 h 200 i 236 @ g \0 \0
0060240 \n \0 \0 @ l 004 A \v \0 \0 020 @ g \0 \0 \n
0060260 \0 \0 A \t \0 \0 k 324 277 A \t \0 \0 l \b \n
0060300 \0 \0 021 001 \0 @ H h \v \0 \0 @ H A \v \0
0060320 \0 020 \0 ( 1 4 1 Q F A S L : : W
0060340 R I T E - I N T E G E R - B Y T
0060360 E S 1 3 3 Q F A S L : D U M
0060400 P - V A L U E 1 2 2 Q C E I
0060420 L I N G 1 1 5 Q I N T E G E
0060440 R - L E N G T H 1 0 6 Q I N
0060460 T E G E R - L E N G T H 1 0 2
0060500 Q F A S L : : W R I T E - O P
0060520 7 2 Q F A S L : : W R I T E
0060540 - I N T E G E R - B Y T E S 6
0060560 3 Q F A S L : : W R I T E - O
0060600 P 2 4 Q B O U T 2 0 Q F
0060620 A S L : : H A N D L E - S T R E
0060640 A M ) \r ( 7 7 Q F A S L : F A
0060660 S L - L A R G E - I N T E G E R
0060700 6 0 Q F A S L : F A S L - I
0060720 N T E G E R ) \r ( 4 6 Q 1 7
0060740 7 7 7 7 7 7 7 7 7 Q 3 1 Q -
0060760 2 0 0 0 0 0 0 0 0 0 0 Q ) \r F A
0061000 S L : : D U M P - P A C K A G E
0061020 D 1 \r ( L ( 2 R E M E M B
0061040 E R 1 P A C K A G E 0 H
0061060 A N D L E ) ) \0 ( 001 \0 \0 003 A 021
0061100 001 \0 B 227 @ g \0 \0 \n \0 \0 277 @ g \0 \0
0061120 \n \0 \0 @ A \t \0 \0 B \v \0 \0 B 264 \a @
0061140 H \n \0 \0 020 \0 ( 4 5 Q F A S L :
0061160 : S A V E - V A L U E 3 5 Q
0061200 F A S L : D U M P - V A L U E
0061220 3 1 Q P A C K A G E - N A M E
0061240 2 4 Q F A S L : : W R I T E
0061260 - O P 1 4 Q F A S L : : W R
0061300 I T E - O P ) \r ( 2 1 Q F A S
0061320 L : F A S L - F I N D - P A C K
0061340 A G E 1 1 Q F A S L : F A S
0061360 L - T A B L E - S T O R E ) \r (
0061400 ) \r F A S L : : D U M P - D C O
0061420 D E D 1 \r ( L ( 2 R E M E
0061440 M B E R 1 D C O D E 0 H
0061460 A N D L E ) ) 002 377 # \0 \0 003 @ \t
0061500 \0 \0 021 361 017 021 360 036 021 @ " @ g \0 \0 \n
0061520 \0 \0 277 @ A \t \0 \0 \t \0 \0 B \v \0 \0 277
0061540 A \t \0 \0 \ \t \0 \0 273 @ K B \v \0 \0 277
0061560 K j 272 271 I J 363 221 h 200 i 255 H L J 266
0061600 \n \0 \0 277 J k 324 272 260 354 A \t \0 \0 _ 024
0061620 d 264 \t d 003 242 261 001 021 h 276 ] 265 003 202 261
0061640 \0 347 @ A \t \0 \0 B \v \0 \0 277 H A \t \0
0061660 \0 \n \0 \0 277 H A \t \0 \0 \n \0 \0 277 H A
0061700 \t \0 \0 \n \0 \0 277 @ A \t \0 \0 B \v \0 \0
0061720 277 @ A \t \0 \0 B \v \0 \0 277 @ A \t \0 \0
0061740 B \v \0 \0 277 A \t \0 \0 _ 277 @ O \t
0061760 \0 \0 B \v \0 \0 277 O d 264 \t d 003 242 261
0062000 001 \b h _ 030 277 _ 026 265 003 202 261 \0 341 A \t
0062020 \0 \0 _ , 277 @ O , \t \0 \0 B \v \0 \0 277
0062040 O , d 264 \t d 003 242 261 001 3 h _ $ 277 _
0062060 " 265 003 202 261 001 \f A \t \0 \0 _ 8 277 @ O
0062100 8 \t \0 \0 B \v \0 \0 277 O 8 d 264 \t d 003
0062120 242 261 001 ^ h _ 0 277 _ . 265 003 202 261 001 7
0062140 A \t \0 \0 _ D 277 @ O D \t \0 \0 B \v \0
0062160 \0 277 O D d 225 d 003 242 261 001 212 _ : 265 003
0062200 202 261 001 g h 020 001 276 H N 001 \n \0 \0 277 @
0062220 N 002 001 B \v \0 \0 277 @ N 002 002 001 B \v \0
0062240 \0 277 M 002 261 376 367 \t \0 \0 j _ 022 277 _ 020
0062260 277 O 020 O 022 363 221 h 200 i 222 261 376 347 O 024
0062300 O 022 266 _ 016 277 H O 016 001 \n \0 \0 277 @ O
0062320 016 002 001 B \v \0 \0 277 @ O 016 002 002 001 B \v
0062340 \0 \0 277 O 022 k 324 _ 022 277 260 307 001 _ 030 277
0062360 @ O 030 001 \n \0 \0 277 @ O 030 002 001 \n \0 \0
0062400 277 O 026 002 261 377 002 \t \0 \0 j _ 036 277 _ 034
0062420 277 O 034 O 036 363 221 h 200 i 222 261 376 363 O
0062440 O 036 266 _ 032 277 @ O 032 001 \n \0 \0 277 @ O
0062460 032 002 001 \n \0 \0 277 O 036 k 324 _ 036 277 260 323
0062500 001 _ $ 277 @ O $ 001 \n \0 \0 277 @ O $ 002
0062520 001 \n \0 \0 277 O " 002 261 376 327 \t \0 \0 j _
0062540 * 277 _ ( 277 O ( O * 363 221 h 200 i 222 261
0062560 376 310 O , O * 266 _ & 277 @ O & 001 \n \0
0062600 \0 277 @ O & 002 001 \n \0 \0 277 O * k 324 _
0062620 * 277 260 323 001 _ 0 277 @ O 0 001 \n \0 \0 277
0062640 @ O 0 002 001 \n \0 \0 277 O . 002 261 376 254 \t
0062660 \0 \0 j _ 6 277 _ 4 277 O 4 O 6 363 221 h
0062700 200 i 222 261 376 235 O 8 O 6 266 _ 2 277 @ O
0062720 2 001 \n \0 \0 277 @ O 2 002 001 \n \0 \0 277 O
0062740 6 k 324 _ 6 277 260 323 001 _ < 277 @ O < 001
0062760 \n \0 \0 277 @ O < 002 001 \n \0 \0 277 O : 002
0063000 261 376 | \t \0 \0 j _ B 277 _ @ 277 O @ O
0063020 B 363 221 h 200 i 222 261 376 m O D O B 266 _
0063040 > 277 @ O > 001 \n \0 \0 277 @ O > 002 001 \n
0063060 \0 \0 277 O B k 324 _ B 277 260 323 \0 ( 1 3
0063100 6 3 Q F A S L : D U M P - V A
0063120 L U E 1 3 5 2 Q F A S L : D
0063140 U M P - V A L U E 1 3 0 7 Q
0063160 C L : L E N G T H 1 2 7 5 Q
0063200 F A S L : D U M P - V A L U E
0063220 1 2 6 4 Q F A S L : D U M P -
0063240 V A L U E 1 2 3 7 Q F A S L
0063260 : D U M P - V A L U E 1 2 2 6
0063300 Q F A S L : D U M P - V A L U
0063320 E 1 1 6 3 Q C L : L E N G T
0063340 H 1 1 5 1 Q F A S L : D U M
0063360 P - V A L U E 1 1 4 0 Q F A
0063400 S L : D U M P - V A L U E 1 1
0063420 1 3 Q F A S L : D U M P - V A
0063440 L U E 1 1 0 2 Q F A S L : D
0063460 U M P - V A L U E 1 0 3 7 Q
0063500 C L : L E N G T H 1 0 2 5 Q
0063520 F A S L : D U M P - V A L U E
0063540 1 0 1 4 Q F A S L : D U M P -
0063560 V A L U E 7 6 7 Q F A S L :
0063600 D U M P - V A L U E 7 5 6 Q
0063620 F A S L : D U M P - V A L U E
0063640 7 1 3 Q C L : L E N G T H 7
0063660 0 1 Q F A S L : D U M P - V A
0063700 L U E 6 7 0 Q F A S L : D U
0063720 M P - V A L U E 6 4 3 Q F A
0063740 S L : D U M P - V A L U E 6 3
0063760 0 Q F A S L : D U M P - V A L
0064000 U E 6 1 6 Q B O U T 5 5 3
0064020 Q C L : L E N G T H 5 4 2 Q
0064040 F A S L : D U M P - V A L U E
0064060 5 3 0 Q F A S L : D U M P -
0064100 V A L U E 5 1 7 Q B O U T
0064120 4 6 2 Q F A S L : D U M P - V
0064140 A L U E 4 5 6 Q C L : L E N
0064160 G T H 4 4 5 Q D C O D E - T
0064200 Y P E - F I X U P S 4 1 1 Q
0064220 F A S L : D U M P - V A L U E
0064240 4 0 5 Q C L : L E N G T H 3
0064260 7 4 Q D C O D E - L I T - F I
0064300 X U P S 3 4 0 Q F A S L : D
0064320 U M P - V A L U E 3 3 4 Q C
0064340 L : L E N G T H 3 2 3 Q D C
0064360 O D E - S Y M - F I X U P S 2
0064400 6 7 Q F A S L : D U M P - V A
0064420 L U E 2 6 3 Q C L : L E N G
0064440 T H 2 5 2 Q D C O D E - F N
0064460 - F I X U P S 2 4 5 Q F A S
0064500 L : D U M P - V A L U E 2 4 1
0064520 Q D C O D E - D E B U G G I N
0064540 G - I N F O 2 3 3 Q F A S L
0064560 : D U M P - V A L U E 2 2 7 Q
0064600 D C O D E - C L O S U R E - P
0064620 2 2 1 Q F A S L : D U M P -
0064640 V A L U E 2 1 5 Q D C O D E
0064660 - N U M - A R G S 2 0 7 Q B
0064700 O U T 2 0 4 Q D C O D E - A
0064720 R G - T Y P E 1 7 6 Q B O U
0064740 T 1 7 3 Q D C O D E - N F R
0064760 E E V A R S 1 6 5 Q B O U T
0065000 1 6 2 Q D C O D E - N L O C
0065020 A L S 1 5 4 Q F A S L : D U
0065040 M P - V A L U E 1 5 0 Q D C
0065060 O D E - F R A M E - N A M E 1
0065100 1 7 Q D C O D E - N A M E - T
0065120 A B L E 1 0 4 Q B O U T 6
0065140 0 Q F A S L : D U M P - V A L
0065160 U E 5 1 Q C L : L E N G T H
0065200 4 5 Q D C O D E - C O D E -
0065220 A R R A Y 4 0 Q F A S L : D
0065240 U M P - V A L U E 3 4 Q C L
0065260 : L E N G T H 3 1 Q D C O D
0065300 E - N A M E - T A B L E 2 3 Q
0065320 F A S L : : W R I T E - O P
0065340 3 F A S L : : H A N D L E - S
0065360 T R E A M ) \r ( 2 0 Q F A S L
0065400 : F A S L - D C O D E ) \r ( ) \r
0065420 F A S L : : D U M P - S T R I N
0065440 G D 1 \r ( L ( 2 R E M E M
0065460 B E R 1 S T R I N G 0 H
0065500 A N D L E ) ) \0 254 \t \0 \0 003 A 021
0065520 201 \b B 227 @ g \0 \0 \n \0 \0 277 @ \t \0 \0
0065540 A \t \0 \0 _ 020 277 _ 016 277 A \t \0 \0 262 Q
0065560 @ g \0 \0 \n \0 \0 277 @ O 020 B \v \0 \0 277
0065600 j \ 273 O 020 K 363 221 h 200 i 263 e A K 266
0065620 006 \0 \0 323 Z 343 Y L : 221 h 200 i 262 023 I
0065640 274 O 016 l 377 \n \0 \0 277 O 016 L \n \0 \0 277
0065660 O 016 J l 377 345 \n \0 \0 277 K k 324 260 305 @
0065700 g \0 \0 \n \0 \0 277 @ O 020 B \v \0 \0 277 O
0065720 020 j 276 275 M N 363 221 h 200 i 263 025 O 016 A
0065740 N 266 006 \0 \0 323 \n \0 \0 277 N k 324 276 260 346
0065760 B 264 \a @ H \n \0 \0 020 \0 ( 2 5 1 Q
0066000 F A S L : : S A V E - V A L U E
0066020 2 3 2 Q B O U T 1 7 7 Q
0066040 F A S L : D U M P - V A L U E
0066060 1 6 7 Q F A S L : : W R I T E
0066100 - O P 1 5 2 Q B O U T 1 4
0066120 0 Q B O U T 1 3 1 Q B O U
0066140 T 6 0 Q F A S L : D U M P -
0066160 V A L U E 5 0 Q F A S L : :
0066200 W R I T E - O P 3 7 Q F A T
0066220 - S T R I N G - P 2 5 Q C L
0066240 : L E N G T H 2 1 Q F A S L
0066260 : : H A N D L E - S T R E A M
0066300 1 4 Q F A S L : : W R I T E -
0066320 O P ) \r ( 2 2 6 Q C H A R A C
0066340 T E R 1 6 4 Q F A S L : F A
0066360 S L - T H I N - S T R I N G 1
0066400 0 4 Q C H A R A C T E R 4 5
0066420 Q F A S L : F A S L - F A T -
0066440 S T R I N G 1 1 Q F A S L :
0066460 F A S L - T A B L E - S T O R E
0066500 ) \r ( ) \r F A S L : : D U M P -
0066520 F L O A T 3 2 D 1 \r ( L ( 2
0066540 R E M E M B E R 1 N U M B
0066560 E R 0 H A N D L E ) ) \0 $
0066600 002 \0 \0 003 @ g \0 \0 \n \0 \0 @ \t \0 \0 021
0066620 021 001 H 006 \0 \0 311 006 006 \0 \0 311 8 271 H A
0066640 j l 004 d I 016 020 \0 ( 1 2 Q F A S
0066660 L : : H A N D L E - S T R E A M
0066700 6 F A S L : : W R I T E - O
0066720 P ) \r ( 2 6 Q F D E V 2 1 Q
0066740 S T R E A M 3 F A S L : F
0066760 A S L - F L O A T 3 2 ) \r ( ) \r
0067000 F A S L : O P E N - F A S L - H
0067020 A N D L E D 1 \r ( L ( 0 -
0067040 a r g s - ) ) \0 203 \v \0 002 \0 e 021
0067060 001 \0 k a 021 A 005 H l 002 021 2 \n O 016 d
0067100 N 363 262 033 277 O 020 022 272 g \0 \0 \t \0 \0 l
0067120 003 274 273 I g \0 \0 g \0 \0 J 260 7 a _ 024
0067140 277 O 022 265 023 O 024 h 032 _ 022 _ 020 277 O 016
0067160 k 324 _ 016 260 313 O 024 & _ 022 277 260 362 d 001
0067200 375 002 L k 330 \ n 002 \0 361 226 h l 4 \n \0
0067220 \0 277 265 354 L K 016 ] j \n \0 \0 M l 221 \n
0067240 \0 \0 M l 002 \n \0 \0 g \0 \0 M \n \0 \0 020
0067260 \0 ( 2 0 0 Q F A S L : : M A K
0067300 E - H A N D L E 1 7 1 Q B O
0067320 U T 1 6 1 6 3 Q B O U T 1
0067340 5 5 Q S E T F I L E P T R 1
0067360 4 2 Q \ L I S P E R R O R 4
0067400 0 Q S Y M B O L - F U N C T I
0067420 O N ) \r ( 1 7 4 Q : S T R E A
0067440 M 5 3 Q : O U T P U T 5 0
0067460 Q : D I R E C T I O N 3 5 Q
0067500 O P E N ) \r ( ) \r e x p a n d
0067520 - F A S L : W I T H - O P E N -
0067540 H A N D L E D 1 \r ( L ( 1
0067560 $ $ M A C R O - E N V I R O N M
0067600 E N T 0 $ $ M A C R O - F O
0067620 R M ) ) \0 211 \n \0 \0 002 @ 002 021 221 \t
0067640 H 001 Y 001 272 I 002 [ 001 274 K 002 275 H 002 A
0067660 h \v \0 \0 \t \0 \0 ^ 001 _ 016 277 N 002 001 _
0067700 020 277 o \0 \0 \0 \t \0 \0 _ 022 277 g \0 \0 J
0067720 g \0 \0 L M 032 032 h 032 032 O 022 o \0 \0 \0
0067740 032 h 032 032 O 020 g \0 \0 g \0 \0 g \0 \0 O
0067760 016 032 g \0 \0 O 022 o \0 \0 \0 032 032 h 032 032
0070000 032 g \0 \0 J g \0 \0 J g \0 \0 O 022 h 032
0070020 032 032 032 h 032 032 032 h 032 032 032 h 032 \n \0 \0
0070040 032 032 020 \0 ( 2 0 4 Q \ A P P E N
0070060 D 2 5 5 Q G E N S Y M 3 3
0070100 Q \ M V L I S T 3 0 Q P A
0070120 R S E - B O D Y ) \r ( 1 6 0 Q
0070140 : A B O R T 1 5 4 Q F A S L
0070160 : C L O S E - F A S L - H A N D
0070200 L E 1 5 0 Q C L : W H E N
0070220 1 3 1 Q S E T Q 1 2 3 Q P
0070240 R O G N 1 2 0 Q M U L T I P
0070260 L E - V A L U E - P R O G 1 1
0070300 1 5 Q U N W I N D - P R O T E
0070320 C T 6 7 Q F A S L : O P E N
0070340 - F A S L - H A N D L E 6 3 Q
0070360 L E T ) \r ( 1 3 7 Q ( N I
0070400 L ) 1 0 4 Q ( T ) 5 2 Q
0070420 " F A S L : W I T H - O P E N -
0070440 F A S L - H A N D L E " ) \r ( S
0070460 E T F - M A C R O - F U N C T I
0070500 O N ( Q U O T E F A S L : W
0070520 I T H - O P E N - H A N D L E )
0070540 ( Q U O T E e x p a n d - F
0070560 A S L : W I T H - O P E N - H A
0070600 N D L E ) ) \r F A S L : B E G I
0070620 N - T E X T D 1 \r ( L ( 0
0070640 H A N D L E ) ) \0 < 001 \0 \0 001 @
0070660 \t \0 \0 021 001 \0 H g \0 \0 360 263 " H g \0
0070700 \0 360 263 033 H g \0 \0 360 264 \a @ \t \0 \0 213
0070720 o \0 \0 \0 H o \0 \0 \0 \f \0 \0 277 023 @ g
0070740 \0 \0 \n \0 \0 @ \t \0 \0 020 \0 ( 7 1 Q
0070760 F A S L : : H A N D L E - S T R
0071000 E A M 6 5 Q s e t f - F A S
0071020 L : : H A N D L E - S T A T E
0071040 5 4 Q E C A S E - F A I L 3
0071060 7 Q F A S L : : E N D - B L O
0071100 C K 3 F A S L : : H A N D L
0071120 E - S T A T E ) \r ( 6 2 Q : T
0071140 E X T 3 0 Q : B L O C K 2
0071160 1 Q : B L O C K - E N D 1 2
0071200 Q : T E X T ) \r ( 5 1 Q (
0071220 : T E X T : B L O C K - E N D
0071240 : B L O C K ) 4 4 Q ( F A
0071260 S L : : H A N D L E - S T A T E
0071300 H A N D L E ) ) \r F A S L : B
0071320 E G I N - B L O C K D 1 \r ( L
0071340 ( 0 H A N D L E ) ) \0 8 001
0071360 \0 \0 001 @ \t \0 \0 021 001 \0 H d g \0 \0 360
0071400 231 277 @ \t \0 \0 @ \t \0 \0 020 g \0 \0 360 224
0071420 @ \t \0 \0 020 H g \0 \0 360 265 017 h o \0 \0
0071440 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 6 5 Q
0071460 E C A S E - F A I L 4 0 Q F
0071500 A S L : : E N D - T E X T 2 6
0071520 Q F A S L : : E N D - T E X T
0071540 2 2 Q F A S L : B E G I N -
0071560 T E X T 3 F A S L : : H A N
0071600 D L E - S T A T E ) \r ( 4 5 Q
0071620 : B L O C K 3 2 Q : T E X T
0071640 1 3 Q : B L O C K - E N D )
0071660 \r ( 6 2 Q ( : B L O C K - E
0071700 N D : T E X T : B L O C K )
0071720 5 5 Q ( F A S L : : H A N D
0071740 L E - S T A T E H A N D L E )
0071760 ) \r F A S L : V A L U E - D U M
0072000 P A B L E - P A 0 0 0 1 A 0 0 0
0072020 2 D 1 \r ( L ( 0 C ) F
0072040 0 C O N D I T I O N - C A S E
0072060 1 8 3 5 ) \0 017 \0 001 \0 001 @ c \0 g
0072100 \0 \0 h \t \0 \0 \n \0 \0 020 \0 ( 1 4 Q
0072120 \ D O - T H R O W 1 1 Q \ M
0072140 V L I S T ) \r ( 5 C O N D I T
0072160 I O N - C A S E 1 8 3 7 ) \r ( )
0072200 \r F A S L : V A L U E - D U M P
0072220 A B L E - P A 0 0 0 1 D 1 \r (
0072240 P 0 * C O N D I T I O N - H
0072260 A N D L E R - B I N D I N G S *
0072300 F 1 * C O N D I T I O N -
0072320 H A N D L E R - B I N D I N G S
0072340 * F 2 O B J ) \0 034 001 002 \0
0072360 \0 g \0 \0 g \0 \0 032 Q 032 021 001 \0 o \0 \0
0072400 \0 R h \v \0 \0 277 i \t \0 \0 020 \0 ( 3 1
0072420 Q \ M V L I S T 2 4 Q F A
0072440 S L : D U M P - V A L U E ) \r (
0072460 5 F A S L : V A L U E - D U M
0072500 P A B L E - P A 0 0 0 1 A 0 0 0
0072520 2 2 F A S L : O B J E C T -
0072540 N O T - D U M P A B L E ) \r (
0072560 1 7 Q 031 F A S L : : D U M M Y
0072600 - H A N D L E ) \r F A S L : V A
0072620 L U E - D U M P A B L E - P D
0072640 1 \r ( P 0 C O N D I T I O N
0072660 - C A S E 1 8 3 5 I 0 O B
0072700 J ) \0 027 002 \0 \0 001 021 001 g \0 \0 g
0072720 \0 \0 \n \0 \0 271 H 221 h 020 I \t \0 \0 020 \0
0072740 ( 2 4 Q V A L U E S - L I S T
0072760 1 3 Q \ C A T C H - F U N C
0073000 A L L ) \r ( 1 0 Q F A S L : V
0073020 A L U E - D U M P A B L E - P A
0073040 0 0 0 1 5 C O N D I T I O N
0073060 - C A S E 1 8 3 7 ) \r ( ) \r F A
0073100 S L : D U M P - V A L U E D 1
0073120 \r ( L ( 0 - a r g s - ) F
0073140 7 F A S L : : * G A T H E R
0073160 - D U M P E R - S T A T S * F
0073200 1 0 Q F A S L : : * T A B L
0073220 E - A T T E M P T S * F 1 1
0073240 Q F A S L : : * T A B L E - H
0073260 I T S * ) 001 023 \a 003 002 \0 e 021 001 \0
0073300 k a 021 Q 006 l 002 a 272 l 003 H 361 221 i 202
0073320 l 003 a 273 I \t \0 \0 ] g \0 \0 360 264 003 202
0073340 261 \0 341 J 265 \n I g \0 \0 \n \0 \0 020 i 360
0073360 227 I g \0 \0 \n \0 \0 020 I J \n \0 \0 \ W
0073400 016 226 W 020 k 324 c 020 277 237 W 016 226 W 022 k
0073420 324 c 022 277 I L \n \0 \0 020 J ^ d 3 227
0073440 277 I J K \v \0 \0 020 303 \0 \0 245 N d 3
0073460 227 277 I J K \v \0 \0 020 303 \0 \0 226 I J K
0073500 \v \0 \0 020 N d 303 \0 \0 227 277 I J K \v \0
0073520 \0 020 303 \0 \0 226 I J K \v \0 \0 020 N d 303
0073540 \0 \0 227 277 I J K \v \0 \0 020 303 \0 \0 226 I
0073560 J K \v \0 \0 020 N d 303 \0 \0 227 277 I J K
0073600 \v \0 \0 020 303 \0 \0 226 I J K \v \0 \0 020 N
0073620 d \t \0 \0 227 277 I J K \v \0 \0 020 \t \0 \0
0073640 226 I J K \v \0 \0 020 N 303 \0 \0 230 I J \t
0073660 \0 \0 \n \0 \0 020 g \0 \0 g \0 \0 J \v \0 \0
0073700 020 o \0 \0 \0 M o \0 \0 \0 \f \0 \0 020 \0 (
0073720 4 2 0 Q E C A S E - F A I L
0073740 4 0 3 Q C L : E R R O R 3 7
0073760 0 Q F A S L : D U M P - E V A
0074000 L 3 6 5 Q E V A L - W H E N
0074020 - L O A D - F O R M 3 5 2 Q
0074040 F A S L : : D U M P - A R R A Y
0074060 3 4 3 Q C L : A R R A Y P
0074100 3 3 7 Q F A S L : : D U M P -
0074120 S T R I N G 3 2 7 Q C L : S
0074140 T R I N G P 3 2 1 Q F A S L
0074160 : : D U M P - D C O D E 3 0 6
0074200 Q F A S L : : D U M P - L I S
0074220 T 2 7 0 Q F A S L : : D U M
0074240 P - P A C K A G E 2 5 5 Q F
0074260 A S L : : D U M P - S Y M B O L
0074300 2 3 7 Q F A S L : : D U M P
0074320 - C H A R A C T E R 2 2 4 Q
0074340 F A S L : : D U M P - C O M P L
0074360 E X 2 0 6 Q F A S L : : D U
0074400 M P - F L O A T 3 2 1 7 3 Q
0074420 F A S L : : D U M P - R A T I O
0074440 N A L 1 5 2 Q F A S L : : D
0074460 U M P - I N T E G E R 1 3 4 Q
0074500 F A S L : : D U M P - V A L U
0074520 E - F E T C H 1 0 1 Q F A S
0074540 L : : L O O K U P - V A L U E
0074560 7 3 Q F A S L : : W R I T E -
0074600 O P 6 0 Q F A S L : : W R I
0074620 T E - O P 3 3 Q F A S L : :
0074640 H A N D L E - S T A T E ) \r ( 3
0074660 7 7 Q : O B J E C T 3 7 4 Q
0074700 F A S L : O B J E C T - N O T
0074720 - D U M P A B L E 3 5 7 Q E
0074740 V A L - W H E N - L O A D 3 1
0074760 2 Q D C O D E 2 7 6 Q L I
0075000 S T P 2 6 1 Q P A C K A G E
0075020 2 4 5 Q L I T A T O M 2 3
0075040 0 Q C H A R A C T E R 2 1 4
0075060 Q C O M P L E X 1 7 7 Q F
0075100 L O A T P 1 5 6 Q R A T I O
0075120 7 0 Q F A S L : F A S L - T
0075140 5 5 Q F A S L : F A S L - N
0075160 I L 3 7 Q : B L O C K ) \r (
0075200 4 1 5 Q ( : B L O C K ) 4
0075220 1 0 Q ( F A S L : : H A N D L
0075240 E - S T A T E H A N D L E ) )
0075260 \r F A S L : D U M P - F U N C T
0075300 I O N - D E F D 1 \r ( L ( 2
0075320 N A M E 1 D C O D E 0
0075340 H A N D L E ) ) \0 . 001 \0 \0 003 @
0075360 \t \0 \0 021 001 \0 H g \0 \0 360 264 024 @ g \0
0075400 \0 \n \0 \0 @ B \n \0 \0 @ A \n \0 \0 020 o
0075420 \0 \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 5 3
0075440 Q E C A S E - F A I L 3 6 Q
0075460 F A S L : D U M P - V A L U E
0075500 3 1 Q F A S L : D U M P - V
0075520 A L U E 2 4 Q F A S L : : W
0075540 R I T E - O P 3 F A S L : :
0075560 H A N D L E - S T A T E ) \r ( 2
0075600 1 Q F A S L : F A S L - S E T
0075620 F - S Y M B O L - F U N C T I O
0075640 N 1 2 Q : B L O C K ) \r (
0075660 5 0 Q ( : B L O C K ) 4 3 Q
0075700 ( F A S L : : H A N D L E - S
0075720 T A T E H A N D L E ) ) \r F A
0075740 S L : D U M P - F U N C A L L
0075760 D 1 \r ( L ( 1 F U N C T I O
0076000 N 0 H A N D L E ) ) \0 ) 001
0076020 \0 \0 002 @ \t \0 \0 021 001 \0 H g \0 \0 360 264
0076040 017 @ g \0 \0 \n \0 \0 @ A \n \0 \0 020 o \0
0076060 \0 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 4 6 Q
0076100 E C A S E - F A I L 3 1 Q
0076120 F A S L : D U M P - V A L U E
0076140 2 4 Q F A S L : : W R I T E -
0076160 O P 3 F A S L : : H A N D L
0076200 E - S T A T E ) \r ( 2 1 Q F A
0076220 S L : F A S L - F U N C A L L
0076240 1 2 Q : B L O C K ) \r ( 4 3
0076260 Q ( : B L O C K ) 3 6 Q (
0076300 F A S L : : H A N D L E - S T A
0076320 T E H A N D L E ) ) \r F A S L
0076340 : D U M P - E V A L D 1 \r ( L
0076360 ( 1 F O R M 0 H A N D L
0076400 E ) ) \0 ) 001 \0 \0 002 @ \t \0 \0 021 001
0076420 \0 H g \0 \0 360 264 017 @ g \0 \0 \n \0 \0 @
0076440 A \n \0 \0 020 o \0 \0 \0 H o \0 \0 \0 \f \0
0076460 \0 020 \0 ( 4 6 Q E C A S E - F A
0076500 I L 3 1 Q F A S L : D U M P
0076520 - V A L U E 2 4 Q F A S L :
0076540 : W R I T E - O P 3 F A S L
0076560 : : H A N D L E - S T A T E ) \r
0076600 ( 2 1 Q F A S L : F A S L - E
0076620 V A L 1 2 Q : B L O C K ) \r
0076640 ( 4 3 Q ( : B L O C K ) 3
0076660 6 Q ( F A S L : : H A N D L E
0076700 - S T A T E H A N D L E ) ) \r
0076720 F A S L : C L O S E - F A S L -
0076740 H A N D L E D 1 \r ( L ( 0
0076760 - a r g s - ) ) \0 305 \r \0 002 \0 e
0077000 021 001 \0 k a 021 a \a H l 002 273 272 K d J
0077020 363 262 . 277 H l 002 021 2 \f O 022 d O 020 363
0077040 262 - 277 O 024 022 274 I \t \0 \0 ] d g \0 \0
0077060 360 262 = 277 I \t \0 \0 277 I \t \0 \0 260 O a
0077100 g \0 \0 360 263 320 K l 002 324 [ 260 303 a _ 030
0077120 277 O 026 265 023 O 030 h 032 _ 026 _ 024 277 O 022
0077140 k 324 _ 022 260 270 O 030 & _ 026 277 260 362 g \0
0077160 \0 360 225 I \t \0 \0 260 025 M g \0 \0 360 255 h
0077200 o \0 \0 \0 M o \0 \0 \0 \f \0 \0 277 I g \0
0077220 \0 \n \0 \0 g \0 \0 \t \0 \0 k _ 016 277 276 I
0077240 \t \0 \0 L 260 030 d 001 375 002 O 016 k 330 _ 016
0077260 n 002 \0 361 226 h l 4 \n \0 \0 277 265 352 O 016
0077300 N 016 020 \0 ( 2 7 3 Q \ L I S P E
0077320 R R O R 2 4 3 Q F A S L : :
0077340 H A N D L E - S T R E A M 2 3
0077360 2 Q S Y M B O L - F U N C T I
0077400 O N 2 2 4 Q s e t f - F A S
0077420 L : : H A N D L E - S T A T E
0077440 2 1 4 Q E C A S E - F A I L
0077460 1 6 7 Q F A S L : : E N D - B
0077500 L O C K 7 5 Q F A S L : : E
0077520 N D - B L O C K 7 0 Q F A S
0077540 L : : E N D - T E X T 5 3 Q
0077560 F A S L : : H A N D L E - S T A
0077600 T E ) \r ( 2 2 7 Q C L O S E
0077620 2 2 1 Q : C L O S E D 1 7 5
0077640 Q : B L O C K - E N D 1 6 1
0077660 Q : B L O C K 1 0 3 Q : A
0077700 B O R T 6 0 Q : T E X T ) \r
0077720 ( 2 1 1 Q ( : T E X T : B
0077740 L O C K : B L O C K - E N D )
0077760 2 0 4 Q ( F A S L : : H A N
0100000 D L E - S T A T E H A N D L E
0100020 ) ) \r ( A D D T O V A R P R E
0100040 T T Y D E F M A C R O S ( F A
0100060 S L - O P S X ( P * ( M
0100100 A P C A R ( Q U O T E X )
0100120 ( F U N C T I O N ( L A M B D
0100140 A ( I T E M ) ( C L : D O
0100160 ( ( D E F ( \r G E T D E F I
0100200 T E M ( Q U O T E F A S L -
0100220 O P S ) ) ) ) ( D E F D E F
0100240 ) ( C E R R O R " R e - f e
0100260 t c h t h e d e f i n i t i
0100300 o n " " N o ~ S d e f i n
0100320 i t i o n f o r ~ S " \r (
0100340 Q U O T E F A S L - O P S )
0100360 I T E M ) ) ) ) ) ) ) ) \r ( A D
0100400 D T O V A R P R E T T Y T Y P
0100420 E L S T ( C H A N G E D F A S
0100440 L - O P S L S T F A S L - O P
0100460 S " F A S L f i l e o p c
0100500 o d e s " ) ) \r ( C O N D ( (
0100520 N O T ( C L : G E T H A S H
0100540 ( Q U O T E F A S L - O P S )
0100560 * D E F I N I T I O N - H A S
0100600 H - T A B L E * ) ) ( C L : P
0100620 U T H A S H ( Q U O T E F A
0100640 S L - O P S ) \r * D E F I N I
0100660 T I O N - H A S H - T A B L E *
0100700 ( M A K E - H A S H - T A B L
0100720 E ( Q U O T E : T E S T )
0100740 ( Q U O T E C L : E Q U A L )
0100760 ( Q U O T E : S I Z E ) 5
0101000 0 ( Q U O T E \r : R E H A S
0101020 H - S I Z E ) 5 0 ) ) ) ) \r (
0101040 A D D T O V A R F I L E P K G
0101060 T Y P E S F A S L - O P S ) \r
0101100 ( P U T P R O P S F A S L - O
0101120 P S G E T D E F \ D E F I N
0101140 E - T Y P E - G E T D E F ) \r (
0101160 P U T P R O P S F A S L - O P
0101200 S F I L E P K G C O N T E N T
0101220 S N I L L ) \r ( P U T P R O P
0101240 S F A S L - O P S P R O P T
0101260 Y P E F A S L - O P S ) \r F A
0101300 S L : : O P T A B L E - N E X T
0101320 D 1 \r ( L ( 0 O B J E C T
0101340 ) ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 004 020
0101360 \0 N I L \r ( 3 F A S L : : O P
0101400 T A B L E ) \r ( ) \r s e t f - F
0101420 A S L : : O P T A B L E - N E X
0101440 T D 1 \r ( L ( 1 V A L U E
0101460 0 O B J E C T ) ) \0 \n \0 \0
0101500 \0 002 @ 006 \0 \0 A 024 004 A 020 \0 N I L \r
0101520 ( 3 F A S L : : O P T A B L E
0101540 ) \r ( ) \r ( R E M P R O P ( Q
0101560 U O T E F A S L : : O P T A B
0101600 L E - N E X T ) ( Q U O T E
0101620 S E T F - M E T H O D - E X P A
0101640 N D E R ) ) \r ( P U T P R O P S
0101660 F A S L : : O P T A B L E - N
0101700 E X T S E T F - I N V E R S E
0101720 s e t f - F A S L : : O P T A
0101740 B L E - N E X T ) \r F A S L : :
0101760 O P T A B L E - O P N A M E S
0102000 D 1 \r ( L ( 0 O B J E C T )
0102020 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 002 020 \0
0102040 N I L \r ( 3 F A S L : : O P T
0102060 A B L E ) \r ( ) \r s e t f - F A
0102100 S L : : O P T A B L E - O P N A
0102120 M E S D 1 \r ( L ( 1 V A L
0102140 U E 0 O B J E C T ) ) \0 \n
0102160 \0 \0 \0 002 @ 006 \0 \0 A 024 002 A 020 \0 N I
0102200 L \r ( 3 F A S L : : O P T A B
0102220 L E ) \r ( ) \r ( R E M P R O P
0102240 ( Q U O T E F A S L : : O P T
0102260 A B L E - O P N A M E S ) ( Q
0102300 U O T E S E T F - M E T H O D
0102320 - E X P A N D E R ) ) \r ( P U T
0102340 P R O P S F A S L : : O P T A
0102360 B L E - O P N A M E S S E T F
0102400 - I N V E R S E s e t f - F A
0102420 S L : : O P T A B L E - O P N A
0102440 M E S ) \r F A S L : : O P T A B
0102460 L E - V E C T O R D 1 \r ( L
0102500 ( 0 O B J E C T ) ) \0 \b \0 \0
0102520 \0 001 @ 006 \0 \0 311 \0 020 \0 N I L \r ( 3
0102540 F A S L : : O P T A B L E ) \r
0102560 ( ) \r s e t f - F A S L : : O P
0102600 T A B L E - V E C T O R D 1 \r
0102620 ( L ( 1 V A L U E 0 O B
0102640 J E C T ) ) \0 \n \0 \0 \0 002 @ 006 \0
0102660 \0 A 024 \0 A 020 \0 N I L \r ( 3 F A
0102700 S L : : O P T A B L E ) \r ( ) \r
0102720 ( R E M P R O P ( Q U O T E
0102740 F A S L : : O P T A B L E - V E
0102760 C T O R ) ( Q U O T E S E T
0103000 F - M E T H O D - E X P A N D E
0103020 R ) ) \r ( P U T P R O P S F A
0103040 S L : : O P T A B L E - V E C T
0103060 O R S E T F - I N V E R S E
0103100 s e t f - F A S L : : O P T A B
0103120 L E - V E C T O R ) \r F A S L :
0103140 : O P T A B L E - P D 1 \r ( L
0103160 ( 0 O B J E C T ) ) \0 006 \0
0103200 \0 \0 001 @ 303 \0 \0 020 \0 N I L \r ( 3
0103220 F A S L : : O P T A B L E ) \r (
0103240 ) \r C O P Y - F A S L : : O P T
0103260 A B L E D 1 \r ( L ( 0 O B
0103300 J E C T ) ) \0 \t \0 \0 \0 001 ` \0 \0
0103320 @ \n \0 \0 020 \0 ( 6 N C R E A T E
0103340 2 ) \r ( 2 004 003 F A S L : : O P
0103360 T A B L E T Y P E # ) \r ( ) \r (
0103400 D E F P R I N T ( Q U O T E
0103420 F A S L : : O P T A B L E ) (
0103440 F U N C T I O N \ D E F P R I
0103460 N T . D E F S T R U C T . D E F
0103500 A U L T ) ) \r F A S L : : N E W
0103520 - O P T A B L E D 1 \r ( L (
0103540 0 - a r g s - ) ) \0 200 \b \0 002
0103560 \0 e 021 001 \0 H k 021 002 002 J d I 363 262 9
0103600 277 h 022 021 a \a H k 273 272 K d J 363 262 <
0103620 277 h 274 H k 276 275 N d M 363 262 B 277 h _
0103640 016 277 ` \0 \0 037 d I 024 \0 277 d L 024 002 277
0103660 d O 016 024 004 277 020 a g \0 \0 360 225 J k 330
0103700 a 260 301 J l 002 324 Z 260 263 a g \0 \0 360 225
0103720 K k 330 a 260 276 K l 002 324 [ 260 260 a g \0
0103740 \0 360 225 N k 330 a 260 270 N l 002 324 ^ 260 252
0103760 \0 N I L \r ( 1 5 7 Q : N E X T
0104000 1 3 4 Q : O P N A M E S 1
0104020 1 1 Q : V E C T O R 6 3 Q
0104040 004 003 F A S L : : O P T A B L E T
0104060 Y P E # ) \r ( ) \r ( P U T P R O
0104100 P ( Q U O T E F A S L : : O
0104120 P T A B L E ) ( Q U O T E S
0104140 T R U C T U R E - C O N S T R U
0104160 C T O R ) ( Q U O T E F A S
0104200 L : : N E W - O P T A B L E ) )
0104220 \r ( P U T P R O P ( Q U O T E
0104240 F A S L : : O P T A B L E )
0104260 ( Q U O T E % % S T R U C T U
0104300 R E - C L A S S ) ( Q U O T E
0104320 S T R U C T U R E - C L A S S
0104340 ) ) \r ( P U T P R O P ( Q U O
0104360 T E F A S L : : O P T A B L E
0104400 ) ( Q U O T E % % S L O T -
0104420 D E S C R I P T I O N S ) ( Q
0104440 U O T E ( V E C T O R O P N
0104460 A M E S N E X T ) ) ) \r ( P U
0104500 T P R O P ( Q U O T E F A S
0104520 L : : O P T A B L E ) ( Q U O
0104540 T E % % L O C A L - S L O T -
0104560 N A M E S ) ( Q U O T E ( N
0104600 E X T O P N A M E S V E C T
0104620 O R ) ) ) \r ( / D E C L A R E D
0104640 A T A T Y P E ( Q U O T E F
0104660 A S L : : O P T A B L E ) ( Q
0104700 U O T E ( P O I N T E R P O
0104720 I N T E R P O I N T E R ) )
0104740 ( Q U O T E ( ( F A S L : : O
0104760 P T A B L E 0 \r P O I N T E
0105000 R ) ( F A S L : : O P T A B L
0105020 E 2 P O I N T E R ) ( F A
0105040 S L : : O P T A B L E 4 P O
0105060 I N T E R ) ) ) ( Q U O T E
0105100 6 ) ) \r o p t i m i z e - F A S
0105120 L : : O P T A B L E - V E C T O
0105140 R D 1 \r ( L ( 2 $ $ C T X
0105160 1 $ $ E N V 0 $ $ W H O
0105200 L E ) ) \0 030 001 \0 \0 003 @ 002 001 021 001
0105220 \0 g \0 \0 o \0 \0 \0 g \0 \0 H h 032 032 032
0105240 032 020 \0 N I L \r ( 1 7 Q O F 1
0105260 0 Q F E T C H ) \r ( 1 4 Q
0105300 ( F A S L : : O P T A B L E V
0105320 E C T O R ) ) \r ( P U T P R O P
0105340 ( Q U O T E F A S L : : O P
0105360 T A B L E - V E C T O R ) ( Q
0105400 U O T E C O M P I L E R : O P
0105420 T I M I Z E R - L I S T ) ( U
0105440 N I O N ( G E T P R O P ( Q
0105460 U O T E \r F A S L : : O P T A
0105500 B L E - V E C T O R ) ( Q U O
0105520 T E C O M P I L E R : O P T I
0105540 M I Z E R - L I S T ) ) ( L I
0105560 S T ( Q U O T E o p t i m i
0105600 z e - F A S L : : O P T A B L E
0105620 - V E C T O R ) ) ) ) \r F A S L
0105640 : M A K E - O P T A B L E D 1
0105660 \r N I L \0 # 003 \0 \0 \0 \b \0 \0 n 001
0105700 \0 g \0 \0 g \0 \0 \v \0 \0 021 022 002 H I \n
0105720 \0 \0 I 272 g \0 \0 J l 377 267 H 020 \0 ( 2
0105740 6 Q s e t f - F A S L : : O P
0105760 T A B L E - V E C T O R 1 6 Q
0106000 M A K E - A R R A Y 2 F A
0106020 S L : : N E W - O P T A B L E )
0106040 \r ( 3 3 Q F A S L : : F A S L
0106060 - E N D - O F - B L O C K 1 3
0106100 Q F A S L : : U N I M P L E M
0106120 E N T E D - O P C O D E 1 0 Q
0106140 : I N I T I A L - E L E M E N
0106160 T ) \r ( ) \r F A S L : : F A S L
0106200 - E N D - O F - B L O C K D 1
0106220 \r ( L ( 1 O P 0 S T R E
0106240 A M ) F 0 F A S L : : * B
0106260 L O C K - L E V E L * ) \0 034 \0
0106300 001 \0 002 P \t \0 \0 232 g \0 \0 h \t \0 \0 \n
0106320 \0 \0 020 g \0 \0 g \0 \0 @ \v \0 \0 020 \0 (
0106340 3 1 Q C L : E R R O R 1 6 Q
0106360 \ D O - T H R O W 1 3 Q \
0106400 M V L I S T 3 C L : Z E R O
0106420 P ) \r ( 2 5 Q : S T R E A M
0106440 2 2 Q F A S L : U N E X P E C
0106460 T E D - E N D - O F - B L O C K
0106500 7 F A S L - B L O C K - F I
0106520 N I S H E D ) \r ( ) \r e x p a n
0106540 d - F A S L : D E F O P D 1 \r
0106560 ( L ( 1 $ $ M A C R O - E N
0106600 V I R O N M E N T 0 $ $ M A
0106620 C R O - F O R M ) ) 001 j \r \0 \0
0106640 002 @ 002 \t \0 \0 021 301 \f @ 271 H 001 272 H 002
0106660 [ 001 \ 001 275 L 002 276 g \0 \0 N \n \0 \0 265
0106700 003 202 261 \0 245 j _ 016 277 g \0 \0 N \n \0 \0
0106720 265 003 202 261 \0 220 g \0 \0 _ 020 277 K 002 A i
0106740 \v \0 \0 \t \0 \0 _ 022 001 _ 024 277 O 022 002 001
0106760 _ 026 277 O 022 002 002 001 _ 030 277 N o \0 \0 \0
0107000 \n \0 \0 g \0 \0 g \0 \0 O 016 \t \0 \0 262 ]
0107020 g \0 \0 g \0 \0 J o \0 \0 \0 O 030 265 006 o
0107040 \0 \0 \0 O 026 O 024 \n \0 \0 032 032 032 032 g \0
0107060 \0 g \0 \0 g \0 \0 O 020 h 032 032 M h 032 032
0107100 032 g \0 \0 J h 032 032 h 032 032 032 g \0 \0 g
0107120 \0 \0 J h 032 032 M O 020 h 032 032 032 032 h 032
0107140 032 260 h 001 261 377 u 001 261 377 ^ g \0 \0 g \0
0107160 \0 g \0 \0 O 020 h 032 032 g \0 \0 g \0 \0 O
0107200 020 h 032 032 o \0 \0 \0 032 032 g \0 \0 O 020 h
0107220 032 032 h 032 032 032 032 g \0 \0 J M g \0 \0 O
0107240 016 k 325 g \0 \0 g \0 \0 O 020 h 032 032 h 032
0107260 032 032 032 032 O 030 265 006 o \0 \0 \0 O 026 O 024
0107300 \n \0 \0 032 032 032 032 h 032 032 032 h 032 032 g \0
0107320 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0107340 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032
0107360 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0107400 J h 032 032 h 032 032 032 032 020 \0 ( 4 4 1 Q
0107420 \ A P P E N D 2 2 1 0 Q \
0107440 A P P E N D 2 1 5 4 Q C L :
0107460 Z E R O P 1 4 1 Q K E Y W O
0107500 R D - T E S T 1 0 4 Q \ M V
0107520 L I S T 1 0 1 Q P A R S E -
0107540 B O D Y 5 6 Q F I N D - K E
0107560 Y W O R D 3 5 Q F I N D - K
0107600 E Y W O R D 4 R E M O V E -
0107620 C O M M E N T S ) \r ( 5 3 6 Q
0107640 Q U O T E 5 1 2 Q Q U O T E
0107660 4 7 7 Q Q U O T E 4 7 4 Q
0107700 \ D E F I N E - T Y P E - S A
0107720 V E - D E F N 4 7 1 Q F I L
0107740 E P K G F L G 4 6 6 Q A N D
0107760 4 5 7 Q E V A L - W H E N
0110000 4 0 7 Q F A S L : : O P T A B
0110020 L E - N E X T 4 0 4 Q : T A
0110040 B L E 3 7 5 Q : I N D I R E
0110060 C T 3 7 0 Q F A S L : D E F
0110100 O P 3 5 3 Q F A S L : : S E
0110120 T E S C A P E 3 3 5 Q F A S
0110140 L : : O P T A B L E - N E X T
0110160 3 3 2 Q S E T F 3 2 2 Q F
0110200 A S L : : O P T A B L E - N E X
0110220 T 3 1 7 Q C L : U N L E S S
0110240 3 1 4 Q P R O G N 2 6 0 Q
0110260 Q U O T E 2 5 5 Q F A S L
0110300 : : A D D - O P - T R A N S L A
0110320 T I O N 2 4 2 Q Q U O T E
0110340 2 2 5 Q F A S L : : O P T A B
0110360 L E - V E C T O R 2 2 2 Q C
0110400 L : E L T 2 1 7 Q S E T F
0110420 1 6 4 Q D E F U N 1 6 1 Q
0110440 P R O G N 1 4 7 Q W I T H O
0110460 U T - F I L E P K G 1 4 4 Q
0110500 P R O G N 6 7 Q F A S L : *
0110520 D E F A U L T - O P T A B L E *
0110540 5 2 Q : T A B L E 3 1 Q
0110560 : I N D I R E C T ) \r ( 5 0 7
0110600 Q ( Q U O T E F A S L - O P
0110620 S ) 4 6 3 Q ( C L : E V A L
0110640 ) 4 3 2 Q " F A S L o p c
0110660 o d e i m p l e m e n t a t i
0110700 o n " 3 4 6 Q ( ( F A S L :
0110720 M A K E - O P T A B L E ) ) 2
0110740 0 1 Q \r " F A S L o p c o d
0110760 e i m p l e m e n t a t i o n
0111000 " 1 7 1 Q ( S T R E A M O
0111020 P C O D E ) 1 3 6 Q ( : T A
0111040 B L E : I N D I R E C T ) ) \r
0111060 ( S E T F - M A C R O - F U N C
0111100 T I O N ( Q U O T E F A S L
0111120 : D E F O P ) ( Q U O T E e
0111140 x p a n d - F A S L : D E F O P
0111160 ) ) \r ( A D D T O V A R P R E
0111200 T T Y P R I N T M A C R O S (
0111220 F A S L : D E F O P . P P R
0111240 I N T - D E F I N E R ) ) \r e x
0111260 p a n d - F A S L : D E F R A N
0111300 G E D 1 \r ( L ( 1 $ $ M A
0111320 C R O - E N V I R O N M E N T
0111340 0 $ $ M A C R O - F O R M ) )
0111360 001 374 021 \0 \0 002 @ 002 \t \0 \0 021 361 017 021
0111400 020 020 @ 271 H 001 272 H 002 [ 001 \ 001 275 L 002
0111420 276 g \0 \0 N \n \0 \0 265 003 202 261 001 4 j _
0111440 016 277 g \0 \0 N \n \0 \0 265 003 202 261 001 037 g
0111460 \0 \0 _ 020 277 K 002 _ 022 001 _ 024 277 O 022 002
0111500 _ 026 001 _ 030 277 O 026 002 A i \v \0 \0 \t \0
0111520 \0 _ 032 001 _ 034 277 O 032 002 001 _ 036 277 O 032
0111540 002 002 001 _ 277 N o \0 \0 \0 \n \0 \0 g \0
0111560 \0 g \0 \0 O 016 \t \0 \0 242 261 \0 331 g \0 \0
0111600 g \0 \0 J o \0 \0 \0 O 265 006 o \0 \0 \0
0111620 O 036 O 034 \n \0 \0 032 032 032 032 g \0 \0 g \0
0111640 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 h 032
0111660 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0111700 032 h 032 032 h 032 032 g \0 \0 g \0 \0 O 024 h
0111720 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0 M h
0111740 032 032 032 h 032 032 h 032 g \0 \0 g \0 \0 g \0
0111760 \0 O 020 h 032 032 o \0 \0 \0 032 032 g \0 \0 J
0112000 h 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0
0112020 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0112040 O 030 h 032 032 032 h 032 032 h 032 032 032 032 o \0
0112060 \0 \0 032 032 g \0 \0 O 020 h 032 032 032 032 h 032
0112100 032 032 032 h 032 032 032 h 032 260 d 001 261 376 346 001
0112120 261 376 317 g \0 \0 g \0 \0 g \0 \0 O 020 h 032
0112140 032 g \0 \0 g \0 \0 O 020 h 032 032 o \0 \0 \0
0112160 032 032 g \0 \0 O 020 h 032 032 h 032 032 032 032 g
0112200 \0 \0 J M g \0 \0 O 016 k 325 g \0 \0 g \0
0112220 \0 O 020 h 032 032 h 032 032 032 032 032 O 265 006
0112240 o \0 \0 \0 O 036 O 034 \n \0 \0 032 032 032 032 h
0112260 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0112300 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0112320 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032 032
0112340 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032
0112360 032 020 \0 ( 6 6 3 Q \ A P P E N D
0112400 2 2 3 7 Q \ A P P E N D 2
0112420 2 0 1 Q C L : Z E R O P 1 6
0112440 6 Q K E Y W O R D - T E S T
0112460 1 3 1 Q \ M V L I S T 1 2 6
0112500 Q P A R S E - B O D Y 6 1 Q
0112520 F I N D - K E Y W O R D 4 0
0112540 Q F I N D - K E Y W O R D 4
0112560 R E M O V E - C O M M E N T S
0112600 ) \r ( 7 6 0 Q Q U O T E 7 3
0112620 4 Q Q U O T E 7 2 1 Q Q U
0112640 O T E 7 1 6 Q \ D E F I N E
0112660 - T Y P E - S A V E - D E F N
0112700 7 1 3 Q F I L E P K G F L G
0112720 7 1 0 Q A N D 7 0 1 Q E V
0112740 A L - W H E N 6 3 1 Q F A S
0112760 L : : O P T A B L E - N E X T
0113000 6 2 6 Q : T A B L E 6 1 7 Q
0113020 : I N D I R E C T 6 1 2 Q
0113040 F A S L : D E F R A N G E 5 7
0113060 5 Q F A S L : : S E T E S C A
0113100 P E 5 5 7 Q F A S L : : O P
0113120 T A B L E - N E X T 5 5 4 Q
0113140 S E T F 5 4 4 Q F A S L : :
0113160 O P T A B L E - N E X T 5 4 1
0113200 Q C L : U N L E S S 5 3 6 Q
0113220 P R O G N 4 7 7 Q O P C O
0113240 D E 4 5 0 Q I 4 4 5 Q +
0113260 4 4 2 Q W R I T E - T O - S
0113300 T R I N G 4 3 7 Q P N A M E
0113320 4 3 0 Q C O N C A T E N A T
0113340 E 4 2 5 Q I N T E R N 4 2
0113360 2 Q F A S L : : A D D - O P -
0113400 T R A N S L A T I O N 4 0 7 Q
0113420 Q U O T E 3 7 1 Q F A S L
0113440 : : O P T A B L E - V E C T O R
0113460 3 6 6 Q C L : E L T 3 6 3
0113500 Q S E T F 3 4 6 Q I 3 4
0113520 3 Q + 3 4 0 Q O P C O D E
0113540 3 3 5 Q L E T 3 2 5 Q I
0113560 3 2 2 Q D O T I M E S 3 0
0113600 2 Q Q U O T E 2 7 7 Q S Y
0113620 M B O L - N A M E 2 7 4 Q P
0113640 N A M E 2 5 7 Q Q U O T E
0113660 2 5 4 Q S Y M B O L - P A C K
0113700 A G E 2 5 1 Q P A C K A G E
0113720 2 4 6 Q L E T 2 1 3 Q D
0113740 E F U N 2 1 0 Q P R O G N
0113760 1 7 4 Q W I T H O U T - F I L
0114000 E P K G 1 7 1 Q P R O G N
0114020 7 2 Q F A S L : * D E F A U L
0114040 T - O P T A B L E * 5 5 Q :
0114060 T A B L E 3 4 Q : I N D I R
0114100 E C T ) \r ( 7 3 1 Q ( Q U O
0114120 T E F A S L - O P S ) 7 0 5
0114140 Q ( C L : E V A L ) 6 5 4 Q
0114160 " F A S L o p c o d e i m
0114200 p l e m e n t a t i o n " 5 7
0114220 0 Q ( ( F A S L : M A K E - O
0114240 P T A B L E ) ) 4 7 2 Q \r (
0114260 P A C K A G E ) 4 3 4 Q ( Q
0114300 U O T E S T R I N G ) 4 0 2
0114320 Q ( O P C O D E ) 2 3 0 Q
0114340 " F A S L o p c o d e i m p
0114360 l e m e n t a t i o n " 2 2 0
0114400 Q ( S T R E A M O P C O D E
0114420 ) 1 6 3 Q \r ( : T A B L E
0114440 : I N D I R E C T ) ) \r ( S E T
0114460 F - M A C R O - F U N C T I O N
0114500 ( Q U O T E F A S L : D E F
0114520 R A N G E ) ( Q U O T E e x
0114540 p a n d - F A S L : D E F R A N
0114560 G E ) ) \r ( A D D T O V A R P
0114600 R E T T Y P R I N T M A C R O S
0114620 ( F A S L : D E F R A N G E
0114640 . P P R I N T - D E F I N E R
0114660 ) ) \r F A S L : : A D D - O P -
0114700 T R A N S L A T I O N D 1 \r (
0114720 L ( 2 T A B L E 1 O P C
0114740 O D E 0 N A M E ) ) \0 * 002
0114760 \0 \0 003 @ B \t \0 \0 \n \0 \0 265 025 B 021 021
0115000 001 @ A 032 H \t \0 \0 032 271 H I \n \0 \0 020
0115020 021 021 001 A 271 H d I 031 277 002 020 \0 ( 3 3
0115040 Q s e t f - F A S L : : O P T
0115060 A B L E - O P N A M E S 2 4 Q
0115100 F A S L : : O P T A B L E - O
0115120 P N A M E S 7 C L : A S S O
0115140 C 4 F A S L : : O P T A B L
0115160 E - O P N A M E S ) \r N I L \r (
0115200 ) \r F A S L : O P C O D E - S E
0115220 Q U E N C E D 1 \r ( L ( 0
0115240 - a r g s - ) F 4 F A S L
0115260 : * D E F A U L T - O P T A B L
0115300 E * ) \0 6 004 001 002 \0 e 021 001 \0 k a
0115320 021 ! 003 l 002 H 361 221 T 202 l 002 a Z 241 h
0115340 020 I J \t \0 \0 \n \0 \0 265 022 I J \t \0 \0
0115360 \n \0 \0 [ 264 006 l 376 K 032 020 002 h 032 020 \0
0115400 ( 5 0 Q F A S L : O P C O D E
0115420 - S E Q U E N C E 4 5 Q F A
0115440 S L : : O P T A B L E - N E X T
0115460 3 6 Q C L : A S S O C 3 3
0115500 Q F A S L : : O P T A B L E -
0115520 O P N A M E S ) \r N I L \r ( ) \r
0115540 F A S L : : F A S L - E X T E N
0115560 D E D D 1 \r ( L ( 1 O P
0115600 0 S T R E A M ) P 0 F A
0115620 S L : : * C U R R E N T - O P T
0115640 A B L E * F 1 F A S L : :
0115660 * C U R R E N T - O P T A B L E
0115700 * ) \0 \r 001 001 \0 002 Q \t \0 \0 021 001 \0
0115720 @ \t \0 \0 020 \0 ( 1 2 Q F A S L :
0115740 : D O - O P 3 F A S L : : O
0115760 P T A B L E - N E X T ) \r N I L
0116000 \r ( ) \r F A S L : : S E T E S C
0116020 A P E D 1 \r ( L ( 0 T A B
0116040 L E ) ) \0 025 001 \0 \0 001 @ 006 \0 \0 311
0116060 \0 021 001 \0 g \0 \0 \t \0 \0 H l 376 267 020 \0
0116100 ( 1 6 Q S Y M B O L - F U N C
0116120 T I O N ) \r ( 1 3 Q F A S L :
0116140 : F A S L - E X T E N D E D 3
0116160 F A S L : : O P T A B L E ) \r
0116200 ( ) \r F A S L : : U N I M P L E
0116220 M E N T E D - O P C O D E D 1
0116240 \r ( L ( 1 O P C O D E 0
0116260 S T R E A M ) ) \0 \f \0 \0 \0 002 g
0116300 \0 \0 g \0 \0 A \v \0 \0 020 \0 ( 1 1 Q
0116320 C L : E R R O R ) \r ( 5 : O P
0116340 N A M E 2 F A S L : U N I M
0116360 P L E M E N T E D - O P C O D E
0116400 ) \r ( ) \r ( P R O C L A I M (
0116420 Q U O T E ( S P E C I A L F
0116440 A S L : * D E F A U L T - O P T
0116460 A B L E * ) ) ) \r ( O R ( B O
0116500 U N D P ( Q U O T E F A S L
0116520 : * D E F A U L T - O P T A B L
0116540 E * ) ) ( S E T Q F A S L :
0116560 * D E F A U L T - O P T A B L E
0116600 * ( F A S L : M A K E - O P T
0116620 A B L E ) ) ) \r ( P R O C L A I
0116640 M ( Q U O T E ( S P E C I A
0116660 L F A S L : : * C U R R E N T
0116700 - O P T A B L E * ) ) ) \r ( O R
0116720 ( B O U N D P ( Q U O T E
0116740 F A S L : : * C U R R E N T - O
0116760 P T A B L E * ) ) ( S E T Q
0117000 F A S L : : * C U R R E N T - O
0117020 P T A B L E * N I L ) ) \r ( P
0117040 R O C L A I M ( Q U O T E (
0117060 S P E C I A L F A S L : : I N
0117100 I T I A L - V A L U E - T A B L
0117120 E - S I Z E ) ) ) \r ( S E T Q
0117140 F A S L : : I N I T I A L - V A
0117160 L U E - T A B L E - S I Z E 2
0117200 0 4 8 ) \r ( S E T Q F A S L :
0117220 : V A L U E - T A B L E - I N C
0117240 R E M E N T 1 0 2 4 ) \r ( P U
0117260 T H A S H ( Q U O T E F A S
0117300 L : : V A L U E - T A B L E - I
0117320 N C R E M E N T ) ( Q U O T E
0117340 ( C O N S T A N T F A S L :
0117360 : V A L U E - T A B L E - I N C
0117400 R E M E N T ) ) \r C O M P V A
0117420 R M A C R O H A S H ) \r ( P R O
0117440 C L A I M ( Q U O T E ( S P
0117460 E C I A L F A S L : : * V A L
0117500 U E - T A B L E * ) ) ) \r ( O R
0117520 ( B O U N D P ( Q U O T E
0117540 F A S L : : * V A L U E - T A B
0117560 L E * ) ) ( S E T Q F A S L
0117600 : : * V A L U E - T A B L E *
0117620 N I L ) ) \r ( P R O C L A I M
0117640 ( Q U O T E ( S P E C I A L
0117660 F A S L : : * B L O C K - L E V
0117700 E L * ) ) ) \r ( O R ( B O U N
0117720 D P ( Q U O T E F A S L : :
0117740 * B L O C K - L E V E L * ) )
0117760 ( S E T Q F A S L : : * B L O
0120000 C K - L E V E L * 0 ) ) \r ( P
0120020 R O C L A I M ( Q U O T E (
0120040 S P E C I A L F A S L : : D E
0120060 B U G - R E A D E R ) ) ) \r ( O
0120100 R ( B O U N D P ( Q U O T E
0120120 F A S L : : D E B U G - R E A
0120140 D E R ) ) ( S E T Q F A S L
0120160 : : D E B U G - R E A D E R N
0120200 I L ) ) \r ( P R O C L A I M (
0120220 Q U O T E ( S P E C I A L F
0120240 A S L : : D E B U G - S T R E A
0120260 M ) ) ) \r ( O R ( B O U N D P
0120300 ( Q U O T E F A S L : : D E
0120320 B U G - S T R E A M ) ) ( S E
0120340 T Q F A S L : : D E B U G - S
0120360 T R E A M N I L ) ) \r e x p a
0120400 n d - F A S L : W I T H - O P T
0120420 A B L E D 1 \r ( L ( 1 $ $
0120440 M A C R O - E N V I R O N M E N
0120460 T 0 $ $ M A C R O - F O R M
0120500 ) ) \0 034 003 \0 \0 002 @ 002 021 ! 002 H 001
0120520 271 H 002 272 g \0 \0 g \0 \0 I h 032 032 h 032
0120540 J 032 032 020 \0 N I L \r ( 2 0 Q F A
0120560 S L : : * C U R R E N T - O P T
0120600 A B L E * 1 5 Q L E T ) \r (
0120620 ) \r ( S E T F - M A C R O - F U
0120640 N C T I O N ( Q U O T E F A
0120660 S L : W I T H - O P T A B L E )
0120700 ( Q U O T E e x p a n d - F
0120720 A S L : W I T H - O P T A B L E
0120740 ) ) \r F A S L : P R O C E S S -
0120760 F I L E A 0 0 0 1 D 1 \r ( L
0121000 ( 0 T E X T ) ) \0 \t \0 \0 \0 001
0121020 @ \t \0 \0 \b \0 \0 020 \0 ( 6 T E R P
0121040 R I 3 P R I N C ) \r N I L \r
0121060 ( ) \r F A S L : P R O C E S S -
0121100 F I L E D 1 \r ( L ( 0 - a
0121120 r g s - ) ) \0 | \b \0 002 \0 e 021 001
0121140 \0 k a 021 a \a H l 002 273 272 K d J 363 262
0121160 ! 277 g \0 \0 274 H l 002 276 275 N d M 363 262
0121200 $ 277 h _ 016 277 I l 221 : 262 + h 260 )
0121220 a g \0 \0 360 225 K k 330 a 260 333 K l 002 324
0121240 [ 260 313 a g \0 \0 360 225 N k 330 a 260 326 N
0121260 l 002 324 ^ 260 310 i 227 o \0 \0 \0 \t \0 \0 277
0121300 I \t \0 \0 I d \t \0 \0 224 277 \b \0 \0 020 L
0121320 O 016 \v \0 \0 277 260 356 \0 ( 1 6 7 Q F
0121340 A S L : P R O C E S S - S E G M
0121360 E N T 1 6 0 Q V A L U E S
0121400 1 5 3 Q E O F P 1 4 6 Q F
0121420 A S L : C H E C K - V E R S I O
0121440 N 1 4 1 Q C L : E R R O R )
0121460 \r ( 1 1 1 Q : I T E M - F N
0121500 6 6 Q : T E X T - F N 2 7 Q
0121520 F A S L : P R O C E S S - F I
0121540 L E A 0 0 0 1 ) \r ( 1 3 6 Q
0121560 " N o t a F A S L f i l e
0121600 . " ) \r ( L E T * ( ( A 1 6 4
0121620 8 ( Q U O T E F A S L : P R
0121640 O C E S S - F I L E ) ) ( A 1
0121660 6 4 9 ( Q U O T E C L : F U
0121700 N C T I O N ) ) ( A 1 6 5 0
0121720 \r " C a l l s F A S L : P R O
0121740 C E S S - S E G M E N T w i t
0121760 h t h e a p p r o r i a t e
0122000 a r g u m e n t s f o r e
0122020 a c h s e g m e n t i n t
0122040 h e f i l e . T h e s t r
0122060 e a m s h o u l d b e p o
0122100 s i t i o n e d a t t h e
0122120 b e g i n n i n g . " \r ) ) (
0122140 P R O G N ( C O N D ( ( F B
0122160 O U N D P ( Q U O T E S E T
0122200 - D O C U M E N T A T I O N ) )
0122220 ( S E T - D O C U M E N T A T
0122240 I O N A 1 6 4 8 A 1 6 4 9
0122260 A 1 6 5 0 ) ) ) A 1 6 5 0 ) )
0122300 \r F A S L : C H E C K - V E R S
0122320 I O N D 1 \r ( L ( 0 S T R
0122340 E A M ) ) \0 * 001 \0 \0 001 @ \t \0 \0
0122360 021 001 \0 o \0 \0 \0 001 H 363 221 h 200 i 234 H
0122400 o \0 \0 \0 002 363 221 h 200 i 265 \n o \0 \0 \0
0122420 H \n \0 \0 020 \0 ( 4 7 Q C L : E R
0122440 R O R 3 B I N 1 6 ) \r N I L
0122460 \r ( 4 3 Q " V e r s i o n
0122500 n o t s u p p o r t e d : ~
0122520 D . " 2 7 Q ( 2 . 2 )
0122540 1 2 Q ( 2 . 2 ) ) \r F A S
0122560 L : P R O C E S S - S E G M E N
0122600 T D 1 \r ( L ( 0 - a r g s
0122620 - ) F 5 F A S L : * D E F
0122640 A U L T - O P T A B L E * ) \0
0122660 A 005 001 002 \0 e 021 001 \0 k a 021 1 004 l 002
0122700 H 361 221 h 202 l 002 a 272 l 003 H 361 221 h 202
0122720 l 003 a 273 l 004 H 361 221 U 202 l 004 a 274 J
0122740 227 I \t \0 \0 k J 016 203 I \t \0 \0 277 I K
0122760 L \v \0 \0 020 \0 ( 7 6 Q F A S L :
0123000 P R O C E S S - B L O C K 6 7
0123020 Q F A S L : S K I P - T E X T
0123040 5 7 Q F A S L : R E A D - T
0123060 E X T ) \r N I L \r ( ) \r F A S L
0123100 : R E A D - T E X T D 1 \r ( L
0123120 ( 0 S T R E A M ) ) \0 E 003
0123140 \0 \0 001 n 002 \0 g \0 \0 g \0 \0 g \0 \0 i
0123160 g \0 \0 j \r \a \0 \0 @ 021 022 002 I d l
0123200 377 : 230 277 H g \0 \0 \n \0 \0 020 Z 005 001 264
0123220 017 j J 363 221 h 200 i 264 006 l \a J 321 H \n
0123240 \0 \0 277 @ 260 331 \0 ( 7 6 Q V E C
0123260 T O R - P U S H - E X T E N D
0123300 4 7 Q C L : C O E R C E 2 4
0123320 Q M A K E - A R R A Y ) \r ( 4
0123340 4 Q S T R I N G 1 7 Q : F
0123360 I L L - P O I N T E R 1 3 Q
0123400 : A D J U S T A B L E 1 0 Q
0123420 C H A R A C T E R 5 : E L E
0123440 M E N T - T Y P E ) \r ( ) \r F A
0123460 S L : P R O C E S S - B L O C K
0123500 A 0 0 0 1 D 1 \r ( P 1 F A
0123520 S L : : * V A L U E - T A B L E
0123540 * P 0 F A S L : : * C U R
0123560 R E N T - O P T A B L E * F
0123600 3 I T E M - F N F 4 O P
0123620 T A B L E F 5 S T R E A M
0123640 ) \0 033 003 003 \0 \0 T 021 001 \0 \b \0 \0 021
0123660 021 002 U j \n \0 \0 272 S 262 371 J k S 016 277
0123700 260 362 \0 ( 1 6 Q F A S L : : D O
0123720 - O P 6 F A S L : : N E W -
0123740 V A L U E - T A B L E ) \r N I L
0123760 \r ( ) \r F A S L : P R O C E S S
0124000 - B L O C K D 1 \r ( L ( 0
0124020 - a r g s - ) P 3 O P T A
0124040 B L E P 2 I T E M - F N
0124060 P 1 S T R E A M F 4 F
0124100 A S L : * D E F A U L T - O P T
0124120 A B L E * ) \0 * 004 001 002 \0 e 021 001
0124140 \0 k a 021 ! 003 l 002 H 361 221 h 202 l 002 a
0124160 272 l 003 H 361 221 T 202 l 003 a 273 g \0 \0 g
0124200 \0 \0 \n \0 \0 020 \0 ( 4 7 Q \ C A T
0124220 C H - F U N C A L L ) \r ( 4 4 Q
0124240 F A S L : P R O C E S S - B L
0124260 O C K A 0 0 0 1 4 1 Q F A S
0124300 L - B L O C K - F I N I S H E D
0124320 ) \r ( ) \r F A S L : S K I P - T
0124340 E X T D 1 \r ( L ( 0 S T R
0124360 E A M ) ) \0 016 \0 \0 \0 001 @ d l
0124400 377 : 262 374 277 \b \0 \0 020 \0 ( 1 3 Q V
0124420 A L U E S ) \r N I L \r ( ) \r e x
0124440 p a n d - F A S L : N E X T - V
0124460 A L U E D 1 \r ( L ( 1 $ $
0124500 M A C R O - E N V I R O N M E N
0124520 T 0 $ $ M A C R O - F O R M
0124540 ) ) \0 006 \0 \0 \0 002 o \0 \0 \0 020 \0 N
0124560 I L \r N I L \r ( 3 ( F A S L
0124600 : : D O - O P S T R E A M ) )
0124620 \r ( S E T F - M A C R O - F U N
0124640 C T I O N ( Q U O T E F A S
0124660 L : N E X T - V A L U E ) ( Q
0124700 U O T E e x p a n d - F A S L
0124720 : N E X T - V A L U E ) ) \r F A
0124740 S L : : D O - O P D 1 \r ( L
0124760 ( 0 - a r g s - ) P 4 F
0125000 A S L : : * B L O C K - L E V E
0125020 L * F 5 F A S L : : D E B
0125040 U G - R E A D E R F 6 F A
0125060 S L : : D E B U G - S T R E A M
0125100 F 7 F A S L : : * C U R R
0125120 E N T - O P T A B L E * F 1
0125140 0 Q F A S L : : * B L O C K -
0125160 L E V E L * ) \0 Y 005 004 002 \0 e 021
0125200 001 \0 k a 021 ! 003 l 002 H 361 224 W 020 k 324
0125220 202 l 002 a 021 001 004 I 272 U 262 033 V o \0
0125240 \0 \0 L l 004 332 J W 016 \t \0 \0 \n \0 \0 001
0125260 J \r 005 \0 \0 277 I J l 002 W 016 006 \0 \0 311
0125300 \0 J 266 016 [ U 234 V o \0 \0 \0 L l 004 332
0125320 K \f \0 \0 K 020 \0 ( 1 2 5 Q F O R
0125340 M A T 6 6 Q F O R M A T 6
0125360 0 Q R A S S O C 5 5 Q F A
0125400 S L : : O P T A B L E - O P N A
0125420 M E S ) \r ( 1 0 0 Q F A S L :
0125440 : O P T A B L E ) \r ( 1 1 5 Q
0125460 " ~ V T V a l u e : ~ S ~ %
0125500 % " 4 3 Q " ~ V T ~ A ( ~
0125520 3 O ) ~ % % " ) \r F A S L : : N
0125540 E W - V A L U E - T A B L E D
0125560 1 \r ( F 0 F A S L : : I N I
0125600 T I A L - V A L U E - T A B L E
0125620 - S I Z E ) \0 017 \0 001 \0 \0 P g \0
0125640 \0 j g \0 \0 i \r 005 \0 \0 020 \0 ( 1 4 Q
0125660 M A K E - A R R A Y ) \r ( 7
0125700 : E X T E N D A B L E 3 : F
0125720 I L L - P O I N T E R ) \r ( ) \r
0125740 F A S L : : C L E A R - T A B L
0125760 E D 1 \r ( L ( 0 - a r g s
0126000 - ) F 1 F A S L : : * V A
0126020 L U E - T A B L E * ) \0 022 001 001
0126040 002 \0 e 021 001 \0 k H 361 221 Q 201 k a j \n
0126060 \0 \0 020 \0 ( 1 7 Q S E T - F I L
0126100 L - P O I N T E R ) \r N I L \r (
0126120 ) \r F A S L : : S T O R E - V A
0126140 L U E D 1 \r ( L ( 0 - a r
0126160 g s - ) F 3 F A S L : : *
0126200 V A L U E - T A B L E * ) \0 037
0126220 003 001 002 \0 e 021 001 \0 k a 021 021 002 l 002 H
0126240 361 221 S 202 l 002 a 272 I J n 004 \0 \v \0 \0
0126260 I 020 \0 ( 3 3 Q V E C T O R - P
0126300 U S H - E X T E N D ) \r N I L \r
0126320 ( ) \r F A S L : : F E T C H - V
0126340 A L U E D 1 \r ( L ( 0 - a
0126360 r g s - ) F 2 F A S L : :
0126400 * V A L U E - T A B L E * ) \0
0126420 027 002 001 002 \0 e 021 001 \0 k a 021 001 001 l 002
0126440 H 361 221 R 202 l 002 a I 266 020 \0 N I L \r
0126460 N I L \r ( ) \r F A S L : : C O L
0126500 L E C T - L I S T D 1 \r ( L
0126520 ( 2 D O T T E D 1 N E L T
0126540 S 0 S T R E A M ) ) \0 P 005
0126560 \0 \0 003 B 262 027 A l 002 : 231 @ \t \0 \0 @
0126600 \t \0 \0 032 020 B 223 A k 325 200 A 021 A 004 k
0126620 \ H 363 263 031 @ \t \0 \0 273 J 265 \f K h 032
0126640 Z 271 L k 324 260 353 K & 272 260 370 I 022 021 !
0126660 002 B 234 H \t \0 \0 272 @ \t \0 \0 271 J I 031
0126700 H 020 \0 ( 1 1 0 Q F A S L : : D
0126720 O - O P 1 0 3 Q L A S T 4
0126740 5 Q F A S L : : D O - O P 1
0126760 7 Q F A S L : : D O - O P 1
0127000 3 Q F A S L : : D O - O P ) \r
0127020 N I L \r ( ) \r F A S L : F A S L
0127040 - S H O R T - I N T E G E R D
0127060 1 \r ( L ( 1 O P C O D E 0
0127100 S T R E A M ) ) \0 003 \0 \0 \0 002
0127120 A 020 \0 N I L \r N I L \r ( ) \r ( L
0127140 E T * ( ( A 1 6 5 4 ( Q U O
0127160 T E F A S L : F A S L - S H O
0127200 R T - I N T E G E R ) ) ( A 1
0127220 6 5 5 ( Q U O T E C L : F U
0127240 N C T I O N ) ) ( A 1 6 5 6
0127260 \r " F A S L o p c o d e i m
0127300 p l e m e n t a t i o n " ) )
0127320 ( P R O G N ( C O N D ( ( F
0127340 B O U N D P ( Q U O T E S E
0127360 T - D O C U M E N T A T I O N )
0127400 ) ( S E T - D O C U M E N T A
0127420 T I O N \r A 1 6 5 4 A 1 6 5
0127440 5 A 1 6 5 6 ) ) ) A 1 6 5 6
0127460 ) ) \r ( L E T ( ( P A C K A G
0127500 E ( S Y M B O L - P A C K A G
0127520 E ( Q U O T E F A S L : F A
0127540 S L - S H O R T - I N T E G E R
0127560 ) ) ) ( P N A M E ( S Y M B
0127600 O L - N A M E ( Q U O T E \r
0127620 F A S L : F A S L - S H O R T -
0127640 I N T E G E R ) ) ) ) ( L E T
0127660 ( ( A 1 6 5 7 1 2 8 ) ( I
0127700 0 ) ) ( P R O G N I L L
0127720 O O P T A G 1 6 5 8 ( C O N D
0127740 ( ( > = I A 1 6 5 7 ) (
0127760 R E T U R N \r N I L ) ) ) (
0130000 L E T ( ( O P C O D E ( +
0130020 I 0 ) ) ) ( S E T F ( C L
0130040 : E L T ( F A S L : : O P T A
0130060 B L E - V E C T O R F A S L :
0130100 * D E F A U L T - O P T A B L E
0130120 * ) O P C O D E ) ( \r Q U O
0130140 T E F A S L : F A S L - S H O
0130160 R T - I N T E G E R ) ) ( F A
0130200 S L : : A D D - O P - T R A N S
0130220 L A T I O N ( I N T E R N (
0130240 C O N C A T E N A T E ( Q U O
0130260 T E S T R I N G ) P N A M E
0130300 ( \r W R I T E - T O - S T R I
0130320 N G ( + I 0 ) ) ) P A C
0130340 K A G E ) O P C O D E F A S
0130360 L : * D E F A U L T - O P T A B
0130400 L E * ) ) ( I N C F I ) (
0130420 G O L O O P T A G 1 6 5 8 ) )
0130440 ) ) \r F A S L : F A S L - N I L
0130460 D 1 \r ( L ( 1 O P C O D E
0130500 0 S T R E A M ) ) \0 003 \0 \0
0130520 \0 002 h 020 \0 N I L \r N I L \r ( ) \r
0130540 ( L E T * ( ( A 1 6 5 9 ( Q
0130560 U O T E F A S L : F A S L - N
0130600 I L ) ) ( A 1 6 6 0 ( Q U O
0130620 T E C L : F U N C T I O N ) )
0130640 ( A 1 6 6 1 " F A S L o p
0130660 c o d e i m p l e m e n t a t
0130700 i o n " ) ) \r ( P R O G N (
0130720 C O N D ( ( F B O U N D P (
0130740 Q U O T E S E T - D O C U M E
0130760 N T A T I O N ) ) ( S E T - D
0131000 O C U M E N T A T I O N A 1 6
0131020 5 9 A 1 6 6 0 A 1 6 6 1 ) )
0131040 ) A 1 6 6 1 ) ) \r ( % % S E T
0131060 E L T ( F A S L : : O P T A B
0131100 L E - V E C T O R F A S L : *
0131120 D E F A U L T - O P T A B L E *
0131140 ) 1 2 8 ( Q U O T E F A S
0131160 L : F A S L - N I L ) ) \r ( F A
0131200 S L : : A D D - O P - T R A N S
0131220 L A T I O N ( Q U O T E F A
0131240 S L : F A S L - N I L ) 1 2 8
0131260 F A S L : * D E F A U L T - O
0131300 P T A B L E * ) \r F A S L : F A
0131320 S L - T D 1 \r ( L ( 1 O P
0131340 C O D E 0 S T R E A M ) )
0131360 \0 003 \0 \0 \0 002 i 020 \0 N I L \r N I L
0131400 \r ( ) \r ( L E T * ( ( A 1 6 6
0131420 2 ( Q U O T E F A S L : F A
0131440 S L - T ) ) ( A 1 6 6 3 ( Q
0131460 U O T E C L : F U N C T I O N
0131500 ) ) ( A 1 6 6 4 " F A S L
0131520 o p c o d e i m p l e m e n t
0131540 a t i o n " ) ) ( \r P R O G N
0131560 ( C O N D ( ( F B O U N D P
0131600 ( Q U O T E S E T - D O C U
0131620 M E N T A T I O N ) ) ( S E T
0131640 - D O C U M E N T A T I O N A
0131660 1 6 6 2 A 1 6 6 3 A 1 6 6 4
0131700 ) ) ) A 1 6 6 4 ) ) \r ( % % S
0131720 E T E L T ( F A S L : : O P T
0131740 A B L E - V E C T O R F A S L
0131760 : * D E F A U L T - O P T A B L
0132000 E * ) 1 2 9 ( Q U O T E F
0132020 A S L : F A S L - T ) ) \r ( F A
0132040 S L : : A D D - O P - T R A N S
0132060 L A T I O N ( Q U O T E F A
0132100 S L : F A S L - T ) 1 2 9 F
0132120 A S L : * D E F A U L T - O P T
0132140 A B L E * ) \r F A S L : F A S L
0132160 - I N T E G E R D 1 \r ( L (
0132200 1 O P C O D E 0 S T R E A
0132220 M ) ) \0 023 \0 \0 \0 002 @ 341 341 341 @
0132240 341 341 @ 341 @ 330 330 330 020 \0 N I L
0132260 \r N I L \r ( ) \r ( L E T * ( (
0132300 A 1 6 6 5 ( Q U O T E F A S
0132320 L : F A S L - I N T E G E R ) )
0132340 ( A 1 6 6 6 ( Q U O T E C
0132360 L : F U N C T I O N ) ) ( A 1
0132400 6 6 7 \r " F A S L o p c o d
0132420 e i m p l e m e n t a t i o n
0132440 " ) ) ( P R O G N ( C O N D
0132460 ( ( F B O U N D P ( Q U O T
0132500 E S E T - D O C U M E N T A T
0132520 I O N ) ) ( S E T - D O C U M
0132540 E N T A T I O N \r A 1 6 6 5
0132560 A 1 6 6 6 A 1 6 6 7 ) ) ) A
0132600 1 6 6 7 ) ) \r ( % % S E T E L T
0132620 ( F A S L : : O P T A B L E -
0132640 V E C T O R F A S L : * D E F
0132660 A U L T - O P T A B L E * ) 1
0132700 3 0 ( Q U O T E F A S L : F
0132720 A S L - I N T E G E R ) ) \r ( F
0132740 A S L : : A D D - O P - T R A N
0132760 S L A T I O N ( Q U O T E F
0133000 A S L : F A S L - I N T E G E R
0133020 ) 1 3 0 F A S L : * D E F A
0133040 U L T - O P T A B L E * ) \r F A
0133060 S L : F A S L - L A R G E - I N
0133100 T E G E R D 1 \r ( L ( 1 O
0133120 P C O D E 0 S T R E A M ) )
0133140 \0 x \f \0 \0 002 @ \t \0 \0 i j 021 # 004
0133160 H k 325 l \b 332 j 021 022 \a j M 363 234 J \t
0133200 \0 \0 221 N 020 j N k 324 325 020 @ _ 016 277
0133220 I 232 h 271 O 016 l 177 363 222 l 377 272 g \0 \0
0133240 l \b M h 032 032 032 274 O 016 J 346 273 N L 002
0133260 002 001 L 002 001 K 021 004 \v O 020 k O 024 347 k
0133300 331 O 022 347 m 377 346 345 O 026 k O 024 347 k 331
0133320 345 O 022 347 344 022 276 M l \b 325 275 260 236 \0 (
0133340 3 2 Q C L : Z E R O P 3 F
0133360 A S L : : D O - O P ) \r ( 7 0 Q
0133400 B Y T E S P E C ) \r ( ) \r ( L
0133420 E T * ( ( A 1 6 6 8 ( Q U O
0133440 T E F A S L : F A S L - L A R
0133460 G E - I N T E G E R ) ) ( A 1
0133500 6 6 9 ( Q U O T E C L : F U
0133520 N C T I O N ) ) ( A 1 6 7 0
0133540 \r " F A S L o p c o d e i m
0133560 p l e m e n t a t i o n " ) )
0133600 ( P R O G N ( C O N D ( ( F
0133620 B O U N D P ( Q U O T E S E
0133640 T - D O C U M E N T A T I O N )
0133660 ) ( S E T - D O C U M E N T A
0133700 T I O N \r A 1 6 6 8 A 1 6 6
0133720 9 A 1 6 7 0 ) ) ) A 1 6 7 0
0133740 ) ) \r ( % % S E T E L T ( F A
0133760 S L : : O P T A B L E - V E C T
0134000 O R F A S L : * D E F A U L T
0134020 - O P T A B L E * ) 1 3 1 (
0134040 Q U O T E F A S L : F A S L -
0134060 L A R G E - I N T E G E R ) ) \r
0134100 ( F A S L : : A D D - O P - T R
0134120 A N S L A T I O N ( Q U O T E
0134140 F A S L : F A S L - L A R G E
0134160 - I N T E G E R ) 1 3 1 F A
0134200 S L : * D E F A U L T - O P T A
0134220 B L E * ) \r F A S L : F A S L -
0134240 R A T I O D 1 \r ( L ( 1 O
0134260 P C O D E 0 S T R E A M ) )
0134300 \0 \r \0 \0 \0 002 @ \t \0 \0 @ \t \0 \0 \n
0134320 \0 \0 020 \0 ( 1 2 Q % % / 7 F
0134340 A S L : : D O - O P 3 F A S
0134360 L : : D O - O P ) \r N I L \r ( )
0134400 \r ( L E T * ( ( A 1 6 7 1 (
0134420 Q U O T E F A S L : F A S L -
0134440 R A T I O ) ) ( A 1 6 7 2 (
0134460 Q U O T E C L : F U N C T I O
0134500 N ) ) ( A 1 6 7 3 " F A S L
0134520 o p c o d e i m p l e m e n
0134540 t a t i o n " \r ) ) ( P R O G
0134560 N ( C O N D ( ( F B O U N D
0134600 P ( Q U O T E S E T - D O C
0134620 U M E N T A T I O N ) ) ( S E
0134640 T - D O C U M E N T A T I O N
0134660 A 1 6 7 1 A 1 6 7 2 A 1 6 7
0134700 3 ) ) ) A 1 6 7 3 ) ) \r ( % %
0134720 S E T E L T ( F A S L : : O P
0134740 T A B L E - V E C T O R F A S
0134760 L : * D E F A U L T - O P T A B
0135000 L E * ) 1 3 4 ( Q U O T E
0135020 F A S L : F A S L - R A T I O )
0135040 ) \r ( F A S L : : A D D - O P -
0135060 T R A N S L A T I O N ( Q U O
0135100 T E F A S L : F A S L - R A T
0135120 I O ) 1 3 4 F A S L : * D E
0135140 F A U L T - O P T A B L E * ) \r
0135160 F A S L : F A S L - C O M P L E
0135200 X D 1 \r ( L ( 1 O P C O D
0135220 E 0 S T R E A M ) ) \0 \r \0
0135240 \0 \0 002 @ \t \0 \0 @ \t \0 \0 \n \0 \0 020 \0
0135260 ( 1 2 Q C O M P L E X 7 F
0135300 A S L : : D O - O P 3 F A S
0135320 L : : D O - O P ) \r N I L \r ( )
0135340 \r ( L E T * ( ( A 1 6 7 4 (
0135360 Q U O T E F A S L : F A S L -
0135400 C O M P L E X ) ) ( A 1 6 7 5
0135420 ( Q U O T E C L : F U N C T
0135440 I O N ) ) ( A 1 6 7 6 \r " F
0135460 A S L o p c o d e i m p l e
0135500 m e n t a t i o n " ) ) ( P R
0135520 O G N ( C O N D ( ( F B O U
0135540 N D P ( Q U O T E S E T - D
0135560 O C U M E N T A T I O N ) ) (
0135600 S E T - D O C U M E N T A T I O
0135620 N \r A 1 6 7 4 A 1 6 7 5 A
0135640 1 6 7 6 ) ) ) A 1 6 7 6 ) ) \r
0135660 ( % % S E T E L T ( F A S L :
0135700 : O P T A B L E - V E C T O R
0135720 F A S L : * D E F A U L T - O P
0135740 T A B L E * ) 1 3 5 ( Q U O
0135760 T E F A S L : F A S L - C O M
0136000 P L E X ) ) \r ( F A S L : : A D
0136020 D - O P - T R A N S L A T I O N
0136040 ( Q U O T E F A S L : F A S
0136060 L - C O M P L E X ) 1 3 5 F
0136100 A S L : * D E F A U L T - O P T
0136120 A B L E * ) \r F A S L : F A S L
0136140 - V E C T O R D 1 \r ( L ( 1
0136160 O P C O D E 0 S T R E A M
0136200 ) ) \0 1 006 \0 \0 002 @ \t \0 \0 021 Q 005
0136220 H g \0 \0 h \v \0 \0 271 H j 273 272 J K 363
0136240 221 h 200 i 221 I 020 I 275 K 274 @ \t \0 \0 M
0136260 L 267 277 K k 324 273 260 346 \0 ( 4 5 Q F
0136300 A S L : : D O - O P 1 6 Q M
0136320 A K E - A R R A Y 3 F A S L
0136340 : : D O - O P ) \r ( 1 2 Q : I
0136360 N I T I A L - E L E M E N T ) \r
0136400 ( ) \r ( L E T * ( ( A 1 6 7 7
0136420 ( Q U O T E F A S L : F A S
0136440 L - V E C T O R ) ) ( A 1 6 7
0136460 8 ( Q U O T E C L : F U N C
0136500 T I O N ) ) ( A 1 6 7 9 \r "
0136520 F A S L o p c o d e i m p l
0136540 e m e n t a t i o n " ) ) ( P
0136560 R O G N ( C O N D ( ( F B O
0136600 U N D P ( Q U O T E S E T -
0136620 D O C U M E N T A T I O N ) )
0136640 ( S E T - D O C U M E N T A T I
0136660 O N \r A 1 6 7 7 A 1 6 7 8
0136700 A 1 6 7 9 ) ) ) A 1 6 7 9 ) )
0136720 \r ( % % S E T E L T ( F A S L
0136740 : : O P T A B L E - V E C T O R
0136760 F A S L : * D E F A U L T - O
0137000 P T A B L E * ) 1 3 6 ( Q U
0137020 O T E F A S L : F A S L - V E
0137040 C T O R ) ) \r ( F A S L : : A D
0137060 D - O P - T R A N S L A T I O N
0137100 ( Q U O T E F A S L : F A S
0137120 L - V E C T O R ) 1 3 6 F A
0137140 S L : * D E F A U L T - O P T A
0137160 B L E * ) \r F A S L : F A S L -
0137200 C R E A T E - A R R A Y D 1 \r
0137220 ( L ( 1 O P C O D E 0 S
0137240 T R E A M ) ) \0 / 002 \0 \0 002 g \0
0137260 \0 \t \0 \0 k 021 002 001 @ \t \0 \0 @ \t \0 \0
0137300 260 026 d 001 375 002 I k 330 Y n 002 \0 361 226 h
0137320 l 4 \n \0 \0 277 265 354 I H 016 020 \0 ( 4 6
0137340 Q \ L I S P E R R O R 2 1 Q
0137360 F A S L : : D O - O P 1 5 Q
0137400 F A S L : : D O - O P 5 S
0137420 Y M B O L - F U N C T I O N ) \r
0137440 ( 2 M A K E - A R R A Y ) \r (
0137460 ) \r ( L E T * ( ( A 1 6 8 0
0137500 ( Q U O T E F A S L : F A S L
0137520 - C R E A T E - A R R A Y ) )
0137540 ( A 1 6 8 1 ( Q U O T E C L
0137560 : F U N C T I O N ) ) ( A 1 6
0137600 8 2 \r " F A S L o p c o d e
0137620 i m p l e m e n t a t i o n "
0137640 ) ) ( P R O G N ( C O N D
0137660 ( ( F B O U N D P ( Q U O T E
0137700 S E T - D O C U M E N T A T I
0137720 O N ) ) ( S E T - D O C U M E
0137740 N T A T I O N \r A 1 6 8 0 A
0137760 1 6 8 1 A 1 6 8 2 ) ) ) A 1
0140000 6 8 2 ) ) \r ( % % S E T E L T
0140020 ( F A S L : : O P T A B L E - V
0140040 E C T O R F A S L : * D E F A
0140060 U L T - O P T A B L E * ) 1 3
0140100 7 ( Q U O T E F A S L : F A
0140120 S L - C R E A T E - A R R A Y )
0140140 ) \r ( F A S L : : A D D - O P -
0140160 T R A N S L A T I O N ( Q U O
0140200 T E F A S L : F A S L - C R E
0140220 A T E - A R R A Y ) 1 3 7 F
0140240 A S L : * D E F A U L T - O P T
0140260 A B L E * ) \r F A S L : F A S L
0140300 - I N I T I A L I Z E - A R R A
0140320 Y D 1 \r ( L ( 1 O P C O D
0140340 E 0 S T R E A M ) ) \0 0 006
0140360 \0 \0 002 @ \t \0 \0 021 Q 005 H \t \0 \0 271 @
0140400 \t \0 \0 j 273 272 J K 363 221 h 200 i 221 H 020
0140420 I 275 K 274 @ \t \0 \0 M L 267 277 K k 324 273
0140440 260 346 \0 ( 4 4 Q F A S L : : D O
0140460 - O P 1 7 Q F A S L : : D O
0140500 - O P 1 2 Q % % F L A T T E
0140520 N - A R R A Y 3 F A S L : :
0140540 D O - O P ) \r N I L \r ( ) \r ( L
0140560 E T * ( ( A 1 6 8 3 ( Q U O
0140600 T E F A S L : F A S L - I N I
0140620 T I A L I Z E - A R R A Y ) )
0140640 ( A 1 6 8 4 ( Q U O T E C L
0140660 : F U N C T I O N ) ) ( A 1 6
0140700 8 5 \r " F A S L o p c o d e
0140720 i m p l e m e n t a t i o n "
0140740 ) ) ( P R O G N ( C O N D
0140760 ( ( F B O U N D P ( Q U O T E
0141000 S E T - D O C U M E N T A T I
0141020 O N ) ) ( S E T - D O C U M E
0141040 N T A T I O N \r A 1 6 8 3 A
0141060 1 6 8 4 A 1 6 8 5 ) ) ) A 1
0141100 6 8 5 ) ) \r ( % % S E T E L T
0141120 ( F A S L : : O P T A B L E - V
0141140 E C T O R F A S L : * D E F A
0141160 U L T - O P T A B L E * ) 1 3
0141200 8 ( Q U O T E F A S L : F A
0141220 S L - I N I T I A L I Z E - A R
0141240 R A Y ) ) \r ( F A S L : : A D D
0141260 - O P - T R A N S L A T I O N
0141300 ( Q U O T E F A S L : F A S L
0141320 - I N I T I A L I Z E - A R R A
0141340 Y ) 1 3 8 F A S L : * D E F
0141360 A U L T - O P T A B L E * ) \r F
0141400 A S L : F A S L - I N I T I A L
0141420 I Z E - B I T - A R R A Y D 1
0141440 \r ( L ( 1 O P C O D E 0
0141460 S T R E A M ) ) \0 202 016 \0 \0 002 @
0141500 \t \0 \0 021 241 \n H \t \0 \0 277 @ \t \0 \0 l
0141520