$ od -c -N 50000 [eris]<LispCore>Morgue>Lyric>TRACE!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r 006 001 ( F I L E C R E A T E D
0000120 " 3 1 - M a r - 8 7 1 2 : 0
0000140 5 : 0 0 " 006 004 { E R I S } < L
0000160 I S P C O R E > S O U R C E S >
0000200 T R A C E . \ ; 2 2 006 001 1 8 3
0000220 8 6 \r \r | c h a
0000240 n g e s | | t o : | ( F N
0000260 S B R E A K B R E A K 0 B
0000300 R E A K 1 B R O K E N - D E F
0000320 I N I T I O N T R A C E U N
0000340 T R A C E U N B R E A K U N
0000360 B R E A K 0 \r
0000400
0000420 V I R G I N F N ) \r
0000440
0000460 ( S P E C I A L - F O
0000500 R M S B R E A K 1 ) \r
0000520
0000540 ( F U N C T I O N S B R
0000560 E A K - F U N C T I O N ) \r \r
0000600 | p r e v i o u s |
0000620 | d a t e : | " 3 0 - M a r -
0000640 8 7 1 6 : 2 7 : 5 7 " { E R
0000660 I S } < L I S P C O R E > S O U
0000700 R C E S > T R A C E . \ ; 2 1 )
0000720 \r \r \r ; C o p y r i g h t (
0000740 c ) 1 9 8 6 , 1 9 8 7 b y
0000760 X e r o x C o r p o r a t i
0001000 o n . A l l r i g h t s
0001020 r e s e r v e d . \r \r ( P R E T
0001040 T Y C O M P R I N T T R A C E
0001060 C O M S ) \r \r ( R P A Q Q 006 002
0001100 T R A C E C O M S 006 001 ( ( V A
0001120 R I A B L E S * T R A C E - D
0001140 E P T H * * T R A C E - W I N
0001160 D O W * T R A C E R E G I O N
0001200 ) \r
0001220 ( F U N C T I O N S B
0001240 R E A K - F U N C T I O N I N
0001260 I T - T R A C E - O U T P U T
0001300 T R A C E - P R I N T - C A L L
0001320 T R A C E - P R I N T - V A L
0001340 U E S ) \r
0001360 ( F N S B R E A
0001400 K B R E A K 0 B R E A K 1
0001420 B R O K E N - D E F I N I T I O
0001440 N T R A C E U N T R A C E
0001460 U N B R E A K U N B R E A K 0
0001500 V I R G I N F N ) \r
0001520 ( I N
0001540 I T V A R S ( B R O K E N F N
0001560 S ) ) \r
0001600 ( P R O P F I L E
0001620 T Y P E T R A C E ) \r
0001640 ( S
0001660 P E C I A L - F O R M S B R E
0001700 A K 1 ) \r
0001720 ( D E C L A R E \
0001740 : D O N T E V A L @ L O A D
0001760 D O E V A L @ C O M P I L E D
0002000 O N T C O P Y C O M P I L E R
0002020 V A R S \r
0002040 ( A
0002060 D D V A R S ( N L A M A U N
0002100 B R E A K U N T R A C E T R
0002120 A C E B R E A K ) \r
0002140
0002160 ( N L A M
0002200 L B R E A K 1 ) \r
0002220
0002240 ( L A M A )
0002260 ) ) ) ) \r \r ( C L : D E F V A R
0002300 006 002 * T R A C E - D E P T H *
0002320 006 001 0 ) \r \r \r ( C L : D E F V
0002340 A R 006 002 * T R A C E - W I N D
0002360 O W * 006 001 N I L ) \r \r \r ( D E
0002400 F G L O B A L V A R 006 002 T R A
0002420 C E R E G I O N 006 001 ( | c r e
0002440 a t e | R E G I O N L E F T
0002460 _ 8 B O T T O M _ 3
0002500 W I D T H _ 5 4 7 H E I G
0002520 H T _ 3 1 0 ) ) \r \r \r ( C
0002540 L : D E F U N 006 002 B R E A K -
0002560 F U N C T I O N 006 001 ( F N &
0002600 K E Y T R A C E C A L L S -
0002620 T O ( W H E N T ) ) ( C O
0002640 N D \r
0002660
*
0002740 ( ( N U L L ( G E T D F N
0002760 ) ) \r
0003000
*
0003060 ( C L : R E T U R N - F R O
0003100 M B R E A K - F U N C T I O N
0003120 \r
0003140
*
0003220 ( C L : F O R M A
0003240 T N I L \r
0003260
*
0003360 " ~ S n o t a f u
0003400 n c t i o n . " F N ) \r
0003420
*
0003520 ) ) \r
0003540
*
0003620 ( ( U N S A F E . T O .
0003640 M O D I F Y F N " b r e a k
0003660 " ) \r
0003700
*
0003760 ( C L : R E T U R N - F R O
0004000 M B R E A K - F U N C T I O N
0004020 \r
0004040
*
0004120 ( C L : F O R M A
0004140 T N I L " ~ S n o t b r
0004160 o k e n . " \r
0004200
*
0004300 F N ) ) ) ) \r
0004320
*
0004400 ( V I R G I N F N
0004420 F N T ) \r
0004440
*
0004520 ( C O N D \r
0004540
*
0004620 ( ( C L : E Q U A L
0004640 T R A C E : T R A C E ) \r
0004660
*
0004740 ( O
0004760 R ( F M E M B F N * T R A
0005000 C E D - F N S * ) \r
0005020
*
0005100 ( / S
0005120 E T A T O M V A L ' * T R A C
0005140 E D - F N S * \r
0005160
*
0005260 ( C O N S F N * T R A C
0005300 E D - F N S * ) ) ) ) \r
0005320
*
0005400 ( T ( O R
0005420 ( F M E M B F N B R O K E
0005440 N F N S ) \r
0005460
*
0005540 ( / S E T
0005560 A T O M V A L ' B R O K E N F
0005600 N S \r
0005620
*
0005700 (
0005720 C O N S F N B R O K E N F N
0005740 S ) ) ) ) ) \r
0005760 \r 006 006 ( *
0006000 | ; ; | " i f p r e v i o
0006020 u s l y b r o k e n / a d v i
0006040 s e d , u n d o i t " ) 006 001
0006060 \r \r
0006100
*
0006140 ( L E
0006160 T * ( ( O L D - D E F ( G E
0006200 T D F N ) ) \r
0006220
*
0006300 ( N E W - D
0006320 E F ( B R O K E N - D E F I N
0006340 I T I O N F N \r
0006360
*
0006460 O L D -
0006500 D E F T R A C E \r
0006520
*
0006620 C A L
0006640 L S - T O W H E N ) ) ) \r
0006660
*
0006740 (
0006760 U N D O A B L Y - S E T F ( G
0007000 E T F N ' B R O K E N ) \r
0007020
*
0007120 O L D - D E F ) \r
0007140
*
0007240 ( / P U T D F N N E W - D
0007260 E F ) ) \r
0007300
*
0007360 F N ) \r \r \r ( C L : D E F U N
0007400 006 002 I N I T - T R A C E - O U T
0007420 P U T 006 001 N I L ( A N D W
0007440 B R E A K ( C L : U N L E S S
0007460 ( A N D * T R A C E - W I N
0007500 D O W * ( W I N D O W P * T
0007520 R A C E - W I N D O W * ) \r
0007540
*
0007620 ( D I S P L
0007640 A Y S T R E A M P * T R A C E
0007660 - O U T P U T * ) ) \r
0007700
*
0007740 ( D
0007760 S P S C R O L L ' O N ( S E
0010000 T Q * T R A C E - W I N D O W
0010020 * \r
0010040
*
0010120 ( C R E A T E W T R
0010140 A C E R E G I O N \r
0010160
*
0010260 " * T r a c e - O u t
0010300 p u t * " N I L T ) ) ) \r
0010320
*
0010400 ( S E T Q * T R A C E - O
0010420 U T P U T * ( G E T S T R E A
0010440 M * T R A C E - W I N D O W *
0010460 \r
0010500
*
0010600 ' O U T P U T ) ) ) ) ) \r \r \r (
0010620 C L : D E F U N 006 002 T R A C E
0010640 - P R I N T - C A L L 006 001 ( V
0010660 A L U E S F N A R G L I S T
0010700 ) ( F R E S H L I N E * T R
0010720 A C E - O U T P U T * ) \r
0010740
*
0011000 ( D S P
0011020 F O N T I N P U T F O N T *
0011040 T R A C E - O U T P U T * ) \r
0011060
*
0011120 ( C
0011140 L : P R I N 1 F N * T R A C
0011160 E - O U T P U T * ) \r
0011200
*
0011240 ( D S P F O
0011260 N T D E F A U L T F O N T *
0011300 T R A C E - O U T P U T * ) \r
0011320
*
0011360 ( C
0011400 L : P R I N C " : " * T R
0011420 A C E - O U T P U T * ) \r
0011440
*
0011500 ( C L :
0011520 T E R P R I * T R A C E - O U
0011540 T P U T * ) \r
0011560
*
0011620 ( P R I N T - A R G
0011640 L I S T A R G L I S T V A L
0011660 U E S * T R A C E - O U T P U
0011700 T * 0 ) ) \r \r \r ( C L : D E F
0011720 U N 006 002 T R A C E - P R I N T
0011740 - V A L U E S 006 001 ( F N V A
0011760 L U E S ) ( F R E S H L I N E
0012000 * T R A C E - O U T P U T * )
0012020 \r
0012040
0012060 ( D S P F O
0012100 N T I N P U T F O N T * T R
0012120 A C E - O U T P U T * ) \r
0012140
*
0012200 ( C L : P R I N 1
0012220 F N * T R A C E - O U T P U T
0012240 * ) \r
0012260
0012300 ( C L :
0012320 P R I N C " = > " * T R
0012340 A C E - O U T P U T * ) \r
0012360
*
0012420 ( D S P F O N T D
0012440 E F A U L T F O N T * T R A C
0012460 E - O U T P U T * ) \r
0012500
*
0012540 ( L E T ( ( P O S (
0012560 D S P X P O S I T I O N N I L
0012600 * T R A C E - O U T P U T * )
0012620 ) ) \r
0012640
*
0012700 ( 006 002 I F 006 001 ( N U L L V
0012720 A L U E S ) \r
0012740
*
0013000 006 002 T H E N 006
0013020 001 ( C L : F O R M A T * T R
0013040 A C E - O U T P U T * \r
0013060
*
0013140 " < n o
0013160 v a l u e s r e t u r n e d >
0013200 " ) \r
0013220
*
0013260 006 002 E L S E 006 001 ( 006 002 F
0013300 O R 006 001 X 006 002 O N 006 001 V A
0013320 L U E S \r
0013340
*
0013400 006 002 D
0013420 O 006 001 ( P R I N T ( C A R
0013440 X ) \r
0013460
*
0013540 * T R A C E - O U T P
0013560 U T * ) \r
0013600
*
0013660 ( A N D ( C D R X ) \r
0013700
*
0013760 ( D S
0014000 P X P O S I T I O N P O S *
0014020 T R A C E - O U T P U T * ) ) )
0014040 ) ) \r
0014060
0014100 ( C L :
0014120 V A L U E S - L I S T V A L U
0014140 E S ) ) \r \r ( D E F I N E Q \r \r
0014160 ( 006 004 B R E A K 006 001 \r ( N L
0014200 A M B D A X 006 006 006 001
0014220
*
0014260 006 006 ( *
0014300 \ ; " E d i t e d 2 5 - N
0014320 o v - 8 6 1 5 : 3 4 b y l
0014340 m m " ) 006 001 \r ( 006 002 | f
0014360 o r | 006 001 X 006 002 | i n | 006 001
0014400 ( N L A M B D A . A R G S X
0014420 ) 006 002 | j o i n | 006 001 ( 006 002
0014440 B R E A K 0 006 001 X T N I L
0014460 N I L ) ) ) ) \r \r ( 006 004 B R E
0014500 A K 0 006 001 \r ( L A M B D A
0014520 ( F N W H E N C O M S B R
0014540 K F N ) 006 006 006 001
0014560
0014600 006 006 ( * \ ; "
0014620 E d i t e d 2 5 - N o v - 8 6
0014640 2 0 : 2 4 b y l m m " ) 006
0014660 001 \r ( C L : W H E N (
0014700 A N D C O M S ( N E Q C O
0014720 M S ' : T R A C E ) ) \r
0014740 ( C L : C E R R
0014760 O R " I g n o r e C O M S "
0015000 " B r e a k ' c o m m a n d
0015020 s ' ~ S n o l o n g e r
0015040 s u p p o r t e d . " C O M S
0015060 ) ) \r ( C L : W H E N
0015100 ( A N D B R K F N ( N E Q
0015120 B R K F N ' B R E A K 1 ) ) \r
0015140 ( C L : C
0015160 E R R O R " I g n o r e B R
0015200 K F N " " U n e x p e c t e d
0015220 B R K F N p a s s e d t o
0015240 B R E A K 0 " ) ) \r (
0015260 C O N D \r ( ( L I
0015300 S T P F N ) \r
0015320 ( C O N D \r
0015340 ( ( N O T ( S T R I N G . E
0015360 Q U A L ( C L : S E C O N D
0015400 F N ) \r
0015420 " I N "
0015440 ) ) \r (
0015460 006 002 | f o r | 006 001 X 006 002 | i
0015500 n | 006 001 F N 006 002 | j o i n |
0015520 006 001 ( 006 002 B R E A K 0 006 001 X
0015540 W H E N C O M S B R K F N
0015560 ) ) ) \r (
0015600 T ( 006 002 | f o r | 006 001 C A L
0015620 L E R 006 002 | i n s i d e | 006 001
0015640 ( C L : T H I R D F N ) 006
0015660 002 | c o l l e c t | 006 001 ( B R
0015700 E A K - F U N C T I O N C A L
0015720 L E R : W H E N W H E N \r
0015740
*
0016040 : C A L L S - T O ( C
0016060 L : F I R S T F N ) \r
0016100
*
0016200 : T R A C E C O M S ) ) ) ) )
0016220 \r ( T ( L I S T
0016240 ( B R E A K - F U N C T I O N
0016260 F N : T R A C E C O M S
0016300 : W H E N W H E N ) ) ) ) ) )
0016320 \r \r ( 006 004 B R E A K 1 006 001 \r
0016340 ( N L A M B D A ( B R K E X P
0016360 B R K W H E N B R K F N B
0016400 R K C O M S B R K T Y P E C
0016420 O N D I T I O N ) 006 006 006 001 006
0016440 006 ( * \ ; " E d i t e d 2
0016460 4 - M a r - 8 7 1 6 : 0 7 b
0016500 y a m d " ) 006 001 \r ( 006
0016520 002 | i f | 006 001 ( C L : E V A L
0016540 B R K W H E N ) \r
0016560 006 002 | t h e n | 006 001 \r
0016600 \r
0016620 006 006 ( * | ; ; | \r 006 001
0016640 006 006 " s h o u l d
0016660 p r o b a b l y d e f a u l
0016700 t C O N D I T I O N d e p
0016720 e n d i n g o n B R K T Y P
0016740 E t o i n t e r r u p t ,
0016760 b r e a k p o i n t e r r o r
0017000 , e t c . " ) 006 001 \r \r
0017020 ( C L : W H
0017040 E N B R K C O M S ( P R I N
0017060 T O U T T " B R K C O M S
0017100 n o l o n g e r s u p p o r
0017120 t e d : " B R K C O M S T )
0017140 ) \r
0017160 ( L E T ( ( P O S ( S T K N
0017200 T H 0 B R K F N ) ) ) \r
0017220
0017240 ( C L : U N W I N D - P R O T
0017260 E C T ( D E B U G G E R : F
0017300 O R M B R K E X P : E N V I
0017320 R O N M E N T N I L : S T A
0017340 C K - P O S I T I O N P O S
0017360 \r
0017400
0017420 : C
0017440 O N D I T I O N ( O R C O N
0017460 D I T I O N ( M A K E - C O N
0017500 D I T I O N ' S I : : B R E A
0017520 K P O I N T \r
0017540
*
0017640 : F U N C T I O N B
0017660 R K F N ) ) ) \r
0017700
0017720 ( R E L S T K P O S ) ) )
0017740 \r 006 002 | e l s e | 006
0017760 001 ( C L : E V A L B R K E X
0020000 P ) ) ) ) \r \r ( 006 004 B R O K E N
0020020 - D E F I N I T I O N 006 001 \r
0020040 ( L A M B D A ( F N O L D -
0020060 D E F T R A C E C A L L S -
0020100 T O W H E N F R A M E N A M
0020120 E ) 006 006 006 001 006
0020140 006 ( * \ ; " E d i t e d 2
0020160 4 - M a r - 8 7 1 6 : 2 5 b
0020200 y a m d " ) 006 001 \r ( L
0020220 E T \r ( ( D E F ( C
0020240 O N D \r
0020260 ( ( E Q ' C L : L A M B D
0020300 A ( C A R ( L I S T P O L
0020320 D - D E F ) ) ) \r
0020340 \r 006 006
0020360 ( * | ; ; | " c o m m o n
0020400 l i s p f u n c t i o n , m
0020420 a k e s u r e g e t s i n
0020440 t e r p r e t e d w / c o m m
0020460 o n l i s p i n t e r p r e
0020500 t e r " ) 006 001 \r \r
0020520 ` # ' , O L D -
0020540 D E F ) \r
0020560 ( T \r
0020600 \r 006 006 ( *
0020620 | ; ; | " i n t e r l i s p
0020640 f u n c t i o n ? " ) 006 001 \r
0020660 \r
0020700 ` ' , O L D - D E F ) ) ) )
0020720 \r ( C O N D \r
0020740 ( C A L L S - T O ( C
0020760 O N D \r
0021000 ( ( N O T (
0021020 E X P R P O L D - D E F ) ) \r
0021040
0021060 ( L E T ( ( N D
0021100 ( \ \ R E N A M E D F N O L D
0021120 - D E F ( L I S T ' : B R O
0021140 K E N F N ) ) ) ) \r
0021160
0021200 ( 006 002 | f o r | 006 001
0021220 X 006 002 | i n s i d e | 006 001
0021240 C A L L S - T O \r
0021260
0021300 006 002 | d o | 006 001
0021320 ( L E T ( ( G T ( C L : G E
0021340 N T E M P ) ) ) \r
0021360
*
0021420 ( P U T D 006 002 G T 006 001 ( 006
0021440 002 B R O K E N - D E F I N I T I
0021460 O N 006 001 ( C L : I F T R A C
0021500 E X \r
0021520
*
0021600 (
0021620 L I S T X ' : I N F N ) )
0021640 \r
0021660
*
0021720 X T R A C E
0021740 N I L W H E N 006 002 G T 006 001
0021760 ) ) \r
0022000
0022020 ( C H A N
0022040 G E N A M E 1 A N D X 006 002
0022060 G T 006 001 ( C H A N G E C C O D
0022100 E X X N D ) ) ) ) \r
0022120
0022140 N D ) ) \r
0022160
0022200 ( T ` ( C L : L A M B D A
0022220 ( & R E S T B R O K E N ) \r
0022240
*
0022300 ( C L : F L E T , ( 006 002 | f o
0022320 r | 006 001 X 006 002 | i n s i d e
0022340 | 006 001 C A L L S - T O \r
0022360
*
0022420 006 002 | c o l
0022440 l e c t | 006 001 ( C O N S X
0022460 ( C D R ( 006 002 B R O K E N - D
0022500 E F I N I T I O N 006 001 X X
0022520 T R A C E N I L \r
0022540
*
0022640 W H E N ) ) ) ) \r
0022660
*
0022720 ( C L : A P P L Y
0022740 , D E F B R O K E N ) ) ) ) )
0022760 ) \r ( 006 002 T R A
0023000 C E 006 001 ( L E T ( ( F O R M
0023020 S ` ( ( T R A C E - P R I N T
0023040 - C A L L B R O K E N ' , F
0023060 N ' , ( S M A R T A R G L I S
0023100 T F N ) ) \r
0023120
0023140 ( T R A C E - P R I N
0023160 T - V A L U E S ' , F N ( C
0023200 L : M U L T I P L E - V A L U E
0023220 - L I S T ( C L : A P P L Y
0023240 , D E F B R O K E N ) \r
0023260
*
0023340 ) ) ) ) )
0023360 \r
0023400 ( C L : I F ( F M E
0023420 M B ( F N T Y P O L D - D E
0023440 F ) \r
0023460
0023500 ' ( F E X P R F E X
0023520 P R * C F E X P R C F E X P
0023540 R * ) ) \r
0023560
0023600 ` ( N L A M B D A B R O K E N
0023620 \r
0023640 ,
0023660 @ ( C L : I F ( E Q W H E N
0023700 T ) \r
0023720
0023740 F O R M S
0023760 \r
0024000
0024020 ` ( ( C O N D \r
0024040
*
0024100 ( , W H
0024120 E N , @ F O R M S ) \r
0024140
*
0024200 ( T ( A P P L
0024220 Y , D E F B R O K E N ) ) )
0024240 ) ) ) \r
0024260 `
0024300 ( C L : L A M B D A ( & R E S
0024320 T B R O K E N ) \r
0024340
0024360 , @ (
0024400 C L : I F ( E Q W H E N T
0024420 ) \r
0024440
0024460 F O
0024500 R M S \r
0024520
*
0024560 ` ( ( C O N D \r
0024600
*
0024640 ( , W H E N
0024660 , @ F O R M S ) \r
0024700
*
0024740 ( T ( C L
0024760 : A P P L Y , D E F B R O K
0025000 E N ) ) ) ) ) ) ) ) ) \r
0025020 ( T \r
0025040 \r 006 006 (
0025060 * | ; ; | " T h i s c a s
0025100 e i s h a i r y t o m a
0025120 k e s u r e t h a t t h e
0025140 r i g h t i n t e r p r e t
0025160 e r g e t s u s e d b y
0025200 t h e d e b u g g e r w h e
0025220 n e v a l u a t i n g t h e
0025240 b r e a k e x p r e s s i o
0025260 n . " ) 006 001 \r \r
0025300 ( C L : I F ( F M E M B
0025320 ( F N T Y P O L D - D E F )
0025340 \r
0025360 ' ( F E X P
0025400 R F E X P R * C F E X P R
0025420 C F E X P R * ) ) \r
0025440 ` ( N L
0025460 A M B D A B R O K E N \r
0025500
0025520 ( C L : F U N C A L L ' B
0025540 R E A K 1 ` ( C L : F U N C A
0025560 L L ' , # ' ( L A M B D A N
0025600 I L \r
0025620
*
0025660 (
0025700 A P P L Y , D E F B R O K E
0025720 N ) ) ) ' , W H E N \r
0025740
0025760 ' , ( O R F R
0026000 A M E N A M E F N ) ) ) \r
0026020
0026040 ` ( C L : L A M B D A ( & R E
0026060 S T B R O K E N ) \r
0026100
0026120 ( C L : F U N C A L L
0026140 ' B R E A K 1 \r
0026160
0026200 ` ( C L : F
0026220 U N C A L L ' , # ' ( L A M B
0026240 D A N I L \r
0026260
*
0026320 ( C L : A
0026340 P P L Y , D E F B R O K E N
0026360 ) ) ) \r
0026400
0026420 ' , W H E N \r
0026440
0026460 ' , (
0026500 O R F R A M E N A M E F N )
0026520 ) ) ) ) ) ) ) ) \r \r ( 006 004 T R A
0026540 C E 006 001 \r ( N L A M B D A
0026560 X 006 006 006 001
0026600
*
0026640 006 006 ( * \ ; " E
0026660 d i t e d 3 0 - M a r - 8 7
0026700 1 5 : 2 4 b y l a l " ) 006 001
0026720 \r ( I N I T - T R A C E
0026740 - O U T P U T ) \r ( C L
0026760 : I F X ( 006 002 B R E A K 0 006
0027000 001 ( N L A M B D A . A R G S
0027020 X ) \r
0027040 T \r
0027060 ' : T
0027100 R A C E N I L ) \r
0027120 * T R A C E D - F N S
0027140 * ) ) ) \r \r ( 006 004 U N T R A C E
0027160 006 001 \r ( N L A M B D A X 006
0027200 006 006 001
0027220
*
0027260 006 006 ( * \ ; " E d i
0027300 t e d 3 0 - M a r - 8 7 1 5
0027320 : 4 6 b y l a l " ) 006 001 \r \r
0027340 006 006 ( * | ; ; ; | " i d e n
0027360 t i c a l t o U N B R E A K
0027400 " ) 006 001 \r \r ( 006 002 | i f
0027420 | 006 001 ( A N D ( N U L L (
0027440 S E T Q X ( N L A M B D A .
0027460 A R G S X ) ) ) \r
0027500 * T R A C E D
0027520 - F N S * ) \r 006
0027540 002 | t h e n | 006 001 ( S E T Q
0027560 X ( R E V E R S E * T R A C
0027600 E D - F N S * ) )
0027620 006 006 ( * \ ;
0027640 \r 006 001
0027660
0027700 006 006 " S o
0027720 t h a t m o s t r e c e n t
0027740 l y b r o k e n f u n c t i
0027760 o n w i l l b e u n b r o
0030000 k e n l a s t . " ) 006 001 \r
0030020 ( / S E
0030040 T A T O M V A L ' * T R A C E
0030060 D - F N S * N I L ) ) \r
0030100 ( M A P C O N X ( F U N C
0030120 T I O N ( L A M B D A ( L )
0030140 \r
0030160 ( 006 002 U N
0030200 B R E A K 0 006 001 ( C A R L )
0030220 \r
0030240
0030260 L \r
0030300
0030320 ' * T R A C E D - F N
0030340 S * ) ) ) ) ) ) \r \r ( 006 004 U N B
0030360 R E A K 006 001 \r ( N L A M B D
0030400 A X 006 006 006 001
0030420
*
0030460 006 006 ( * \ ;
0030500 " E d i t e d 3 0 - M a r - 8
0030520 7 1 5 : 4 6 b y l a l " )
0030540 006 001 \r \r 006 006 ( * | ; ; ; | "
0030560 i d e n t i c a l t o u n t
0030600 r a c e e x c e p t a c t i
0030620 n g o n b r o k e n f n s "
0030640 ) 006 001 \r \r ( L E T ( (
0030660 X C L : : F I L E X ) \r
0030700 ( X C L : : A N S
0030720 N I L ) ) \r
0030740 ( C O N D \r
0030760 ( ( A N D ( N U L L ( S
0031000 E T Q X ( N L A M B D A . A
0031020 R G S X ) ) ) \r
0031040 B R O K E
0031060 N F N S ) \r
0031100 ( S E T Q X ( R E V E
0031120 R S E B R O K E N F N S ) )
0031140
0031160 006 006 ( * \ ; \r 006 001
0031200
*
0031240 006 006 " S o t h a t
0031260 m o s t r e c e n t l y b r
0031300 o k e n f u n c t i o n w i
0031320 l l b e u n b r o k e n l
0031340 a s t . " ) 006 001 \r
0031360 ( / S E T A T O M V
0031400 A L ' B R O K E N F N S N I
0031420 L ) ) ) \r ( C
0031440 L : S E T Q X C L : : A N S
0031460 ( M A P C O N X ( F U N C T
0031500 I O N ( L A M B D A ( L ) \r
0031520
*
0031600 ( 006 002 U N B R E A K 0 006 001 (
0031620 C A R L ) \r
0031640
*
0031700 L
0031720 \r
0031740
*
0032000 ' B R O K E N
0032020 F N S ) ) ) ) ) \r
0032040 ( C O N D \r
0032060 ( ( A N D ( N U L L
0032100 ( S E T Q X C L : : F I L E
0032120 ( N L A M B D A . A R G S X C
0032140 L : : F I L E ) ) ) \r
0032160 * T R
0032200 A C E D - F N S * ) \r
0032220 ( S E T Q X C
0032240 L : : F I L E ( R E V E R S E
0032260 * T R A C E D - F N S * ) )
0032300 006 006 ( * \ ;
0032320 \r 006 001
0032340
0032360 006 006 " S o
0032400 t h a t m o s t r e c e n t
0032420 l y b r o k e n f u n c t i
0032440 o n w i l l b e u n b r o
0032460 k e n l a s t . " ) 006 001 \r
0032500 ( / S E T
0032520 A T O M V A L ' * T R A C E D
0032540 - F N S * N I L ) ) ) \r
0032560 ( C L : A P P E N D
0032600 X C L : : A N S ( M A P C O
0032620 N X C L : : F I L E ( F U N
0032640 C T I O N ( L A M B D A ( L
0032660 ) \r
0032700
*
0032740 ( 006 002
0032760 U N B R E A K 0 006 001 ( C A R
0033000 L ) \r
0033020
*
0033100 L \r
0033120
*
0033200 ' * T R A C E
0033220 D - F N S * ) ) ) ) ) ) ) ) \r \r
0033240 ( 006 004 U N B R E A K 0 006 001 \r
0033260 ( L A M B D A ( F N T A I L
0033300 B R O K E N T R A C E D F N S
0033320 ) 006 006 006 001
0033340 006
0033360 006 ( * \ ; " E d i t e d 3
0033400 0 - M a r - 8 7 1 5 : 4 1 b
0033420 y l a l " ) 006 001 \r ( M
0033440 A P C A R ( P A C K - I N -
0033460 F N ) \r (
0033500 F U N C T I O N ( L A M B D A
0033520 ( F N ) \r
0033540 ( P R
0033560 O G ( V A L ( A L I A S (
0033600 G E T P R O P F N ' A L I A
0033620 S ) ) \r
0033640
0033660 ( B R K I N F O (
0033700 G E T P R O P F N ' B R K I
0033720 N F O ) ) ) \r
0033740
0033760 ( C O N D \r
0034000
0034020 ( ( E Q F
0034040 N T ) \r
0034060
0034100 ( S E T Q F N (
0034120 C A R ( E V A L B R O K E N
0034140 T R A C E D F N S ) ) ) ) \r
0034160
0034200 ( (
0034220 A N D D W I M F L G ( N U L
0034240 L ( F M E M B F N ( E V A
0034260 L B R O K E N T R A C E D F N
0034300 S ) ) ) \r
0034320
0034340 ( N U L L
0034360 ( O R ( G E T D F N ) \r
0034400
*
0034440 (
0034460 G E T P R O P F N ' E X P R
0034500 ) ) ) ) \r \r
0034520 006 006 ( * |
0034540 ; ; | " O n l y s p e l l i
0034560 n g c o r r e c t i f F N
0034600 i s n o t a f u n c t i
0034620 o n . T h i s i s b e c
0034640 a u s e c e r t a i n f u n
0034660 c t i o n s s u c h a s U
0034700 N S A V E D E F c a l l U N
0034720 B R E A K 0 j u s t t o m
0034740 a k e s u r e f u n c t i o
0034760 n i s n o t b r o k e n .
0035000 A l s o , u s e r m a y
0035020 p e r f o r m ( U N B R E A
0035040 K F O O ) j u s t t o b
0035060 e s u r e . I n t h e s
0035100 e c a s e s , d o n ' t w
0035120 a n t t o c o r r e c t s
0035140 p e l l i n g . " ) 006 001 \r \r
0035160
0035200 (
0035220 S E T Q F N ( O R ( F I X
0035240 S P E L L F N 7 0 B R O K
0035260 E N F N S N I L T A I L ) \r
0035300
*
0035340 ( F
0035360 I X S P E L L F N 7 0 * T
0035400 R A C E D - F N S * N I L T
0035420 A I L ) \r
0035440
*
0035500 ( F I X S P E L L F N
0035520 7 0 U S E R W O R D S N I L
0035540 T A I L \r
0035560
*
0035620 ( F U N C
0035640 T I O N G E T D ) ) \r
0035660
*
0035720 F N ) ) ) )
0035740 \r
0035760 ( A
0036000 N D D W I M F L G ( S E T Q
0036020 L A S T W O R D F N ) ) \r
0036040
0036060 ( / S E
0036100 T A T O M V A L B R O K E N T
0036120 R A C E D F N S ( / D R E M O
0036140 V E F N ( E V A L B R O K
0036160 E N T R A C E D F N S ) ) ) \r
0036200
0036220 ( S E T
0036240 Q V A L ( R E S T O R E F
0036260 N ' B R O K E N ) ) \r
0036300
0036320 ( C O N D \r
0036340
0036360 (
0036400 ( A N D ( L I S T P A L I A
0036420 S ) \r
0036440
0036460 ( N U L L (
0036500 G E T P R O P F N ' A D V I
0036520 S E D ) ) ) \r
0036540
0036560 ( C H N G N M
0036600 ( C A R A L I A S ) \r
0036620
*
0036660 ( C D R A L I A S ) \r
0036700
*
0036740 T ) ) ) \r
0036760
0037000 ( R E T U R
0037020 N V A L ) ) ) ) ) ) ) \r \r ( 006
0037040 004 V I R G I N F N 006 001 \r ( L
0037060 A M B D A ( F N F L G ) 006 006
0037100 006 001
0037120
0037140 006 006 (
0037160 * \ ; " E d i t e d 3 0 -
0037200 M a r - 8 7 1 5 : 4 8 b y
0037220 l a l " ) 006 001 \r ( P R O
0037240 G ( D ( X 1 ( G E T P R O
0037260 P F N ' B R O K E N ) ) \r
0037300 ( X 2
0037320 ( G E T P R O P F N ' A D V
0037340 I S E D ) ) \r
0037360 ( X 3 ( G E T P R O P
0037400 F N ' N A M E S C H A N G E
0037420 D ) ) \r
0037440 ( X 5 ( G E T P R O P F N
0037460 ' E X P R ) ) ) \r
0037500 ( 006 002 | i f | 006 001 F L
0037520 G \r
0037540 006 002 | t h e n | 006 001 ( C O N D
0037560 \r
0037600 ( X 1 ( P R
0037620 I N 2 F N T T ) \r
0037640
0037660 ( P R I N 1 '
0037700 " u n b r o k e n . \r " T )
0037720 \r
0037740 ( 006 002
0037760 U N B R E A K 006 001 F N ) ) ) \r
0040000
0040020 ( C O N D \r
0040040
0040060 ( X 2 ( P R I N 2 F N T
0040100 T ) \r
0040120 (
0040140 P R I N 1 ' " u n a d v i s
0040160 e d . \r " T ) \r
0040200
0040220 ( A P P L Y ' U N A D
0040240 V I S E ( L I S T F N ) ) )
0040260 ) \r
0040300 ( C O N D \r
0040320
0040340 ( X 3 ( P R I N 2 F N
0040360 T T ) \r
0040400
0040420 ( P R I N 1 ' " n a m e s
0040440 r e s t o r e d . \r " T ) \r
0040460
0040500 ( R E S T
0040520 O R E N A M E S F N ) ) ) \r
0040540
0040560 ( C O N D \r
0040600
0040620 ( ( A N D ( N U L L ( E X P
0040640 R P ( S E T Q D ( G E T D
0040660 F N ) ) ) ) \r
0040700
0040720 X 5 ) \r
0040740
0040760 ( S E T Q D X 5 ) ) ) \r
0041000
0041020 ( R E T U R N D ) ) \r
0041040 ( S E T Q D
0041060 ( G E T D ( O R ( A N D
0041100 X 2 ( G E T P R O P F N '
0041120 A D V I S E D ) ) \r
0041140
0041160 X 1 F N ) ) ) \r
0041200 ( C O N D \r
0041220 ( ( O R
0041240 ( N L I S T P D ) \r
0041260 ( N
0041300 L I S T P ( C D R D ) ) ) \r
0041320 ( R
0041340 E T U R N ( O R X 5 D ) )
0041360 ) ) \r ( C O
0041400 N D \r
0041420 ( X 3 ( C O N D \r
0041440 ( (
0041460 N U L L F L G ) \r
0041500 (
0041520 S E T Q D ( C O P Y D ) )
0041540 ) ) \r
0041560 ( M A P C X 3 ( F U
0041600 N C T I O N ( L A M B D A (
0041620 X ) \r
0041640
0041660 ( S E T Q D
0041700 ( / D S U B S T X ( P A C
0041720 K * X ' - I N - F N ) \r
0041740
*
0042020 D ) ) ) ) ) ) ) \r
0042040 ( R E T U R N D
0042060 ) ) ) ) \r ) \r \r ( R P A Q ? 006
0042100 002 B R O K E N F N S 006 001 ) \r \r
0042120 ( P U T P R O P S 006 002 T R A C
0042140 E F I L E T Y P E 006 001 C L :
0042160 C O M P I L E - F I L E ) \r \r (
0042200 D E F I N E - S P E C I A L - F
0042220 O R M 006 002 B R E A K 1 006 001 (
0042240 & O P T I O N A L E X P W H
0042260 E N F N C O M S T Y P E
0042300 C O N D I T I O N & E N V I R
0042320 O N M E N T E N V ) \r (
0042340 006 002 I F 006 001 ( C L : E V A L
0042360 W H E N E N V ) \r
0042400 006 002 T H E N 006 001 ( C L : W H
0042420 E N C O M S ( P R I N T O U
0042440 T T " B R K C O M S n o
0042460 l o n g e r s u p p o r t e d
0042500 : " C O M S T ) ) \r
0042520 ( L E T ( ( P
0042540 O S ( S T K N T H 0 F N )
0042560 ) ) \r
0042600 ( C L : U N W I N D - P
0042620 R O T E C T ( D E B U G G E R
0042640 : F O R M E X P : E N V I
0042660 R O N M E N T E N V : S T A
0042700 C K - P O S I T I O N P O S
0042720 \r
0042740
0042760 : C O N
0043000 D I T I O N ( O R C O N D I
0043020 T I O N ( M A K E - C O N D I
0043040 T I O N ' S I : : B R E A K P
0043060 O I N T \r
0043100
*
0043200 : F U N C T I O N F N ) ) )
0043220 \r
0043240 ( R E L S T K
0043260 P O S ) ) ) \r 006 002 E
0043300 L S E 006 001 ( C L : E V A L E
0043320 X P E N V ) ) ) \r \r ( D E C L
0043340 A R E \ : D O N T E V A L @ L
0043360 O A D D O E V A L @ C O M P I
0043400 L E D O N T C O P Y C O M P
0043420 I L E R V A R S \r \r ( A D D T
0043440 O V A R 006 002 N L A M A 006 001 U
0043460 N B R E A K U N T R A C E T
0043500 R A C E B R E A K ) \r \r ( A D
0043520 D T O V A R 006 002 N L A M L 006 001
0043540 B R E A K 1 ) \r \r ( A D D T O
0043560 V A R 006 002 L A M A 006 001 ) \r )
0043600 \r ( P U T P R O P S T R A C E
0043620 C O P Y R I G H T ( " X e r
0043640 o x C o r p o r a t i o n "
0043660 1 9 8 6 1 9 8 7 ) ) \r ( D E C
0043700 L A R E \ : D O N T C O P Y \r
0043720 ( F I L E M A P ( N I L
0043740 ( 6 2 4 6 1 7 4 6 2 ( B R E
0043760 A K 6 2 5 6 . 6 4 5 6 )
0044000 ( B R E A K 0 6 4 5 8 . 7
0044020 3 7 6 ) ( B R E A K 1 7 3 7
0044040 8 . 8 1 9 7 ) ( \r B R O K
0044060 E N - D E F I N I T I O N 8 1
0044100 9 9 . 1 1 6 0 8 ) ( T R A
0044120 C E 1 1 6 1 0 . 1 1 8 7 6
0044140 ) ( U N T R A C E 1 1 8 7 8
0044160 . 1 2 5 2 0 ) ( U N B R E
0044200 A K 1 2 5 2 2 . 1 3 9 8 2
0044220 ) \r ( U N B R E A K 0 1 3 9
0044240 8 4 . 1 5 9 0 0 ) ( V I R
0044260 G I N F N 1 5 9 0 2 . 1 7
0044300 4 6 0 ) ) ) ) ) \r S T O P \r
0044316