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