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