$ od -c -N 50000 [eris]<LispCore>SOURCES>load-do-test.dribble!1
0000000 N I L \r 7 9 : I L : B T V ! \r \r
0000020 U N B O U N D A T O M \r I L :
0000040 B T V ! \r ( D E B U G b r o k
0000060 e n ) \r 8 0 : B T V ! \r \r \r B a
0000100 s i c f r a m e a t 5
0000120 5 5 7 0 \r 5 5 5 6 6 :
0000140 5 3 1 6 3 4 2 6 * l o
0000160 c a l * ( S I M P L E - E R R
0000200 O R \r " T h e s e s y m b o
0000220 l s a r e n o t a v a i l
0000240 a b l e i n t h e ~ A p
0000260 a c k a g e : ~ % % ~ { ~ S ~
0000300 } ~ % % " ( " X C L - T E S T
0000320 " & ) ) \r 5 5 5 7 0 :
0000340 1 0 0 0 0 0 5 5 5 6 6 \r \r
0000360 F r a m e x t n a t 5
0000400 5 5 7 2 , f r a m e n a m e
0000420 = D E B U G \r 5 5 5 7 2 :
0000440 1 4 0 0 0 4 5 5 5 3 7
0000460 [ U S E = 4 , X , a l i
0000500 n k ] \r 5 5 5 7 4 : 6
0000520 6 2 5 0 7 3 [ f n
0000540 h e a d e r ] \r 5 5 5 7 6 :
0000560 5 5 6 3 4 1 1 6
0000600 [ n e x t , p c ] \r 5 5 6
0000620 0 0 : 7 1 2 5 0
0000640 7 3 [ n a m e t a b l e ] \r
0000660 5 5 6 0 2 : 5 5 5 7 0
0000700 5 5 5 3 6 [ b l i n k , c
0000720 l i n k ] \r 5 5 6 0 4 :
0000740 1 6 1 * l
0000760 o c a l * 1 \r 5 5 6 0 6 :
0001000 5 3 1 6 3 4 2 6
0001020 * l o c a l * ( S I M P L E -
0001040 E R R O R \r " T h e s e s y
0001060 m b o l s a r e n o t a v
0001100 a i l a b l e i n t h e ~
0001120 A p a c k a g e : ~ % % ~ { ~
0001140 S ~ } ~ % % " ( " X C L - T
0001160 E S T " & ) ) \r 5 5 6 1 0
0001200 : 0 0
0001220 * l o c a l * N I L \r 5
0001240 5 6 1 2 : 1 7 7 7 7 7
0001260 1 * l o c a l * [ u n
0001300 b o u n d ] \r 5 5 6 1 4 :
0001320 1 7 7 7 7 7 2 *
0001340 l o c a l * [ u n b o u n d ]
0001360 \r 5 5 6 1 6 : 1 7 7 7 7
0001400 7 0 * l o c a l *
0001420 [ u n b o u n d ] \r 5 5 6
0001440 2 0 : 1 7 7 7 7 7
0001460 0 * l o c a l * [ u n b o
0001500 u n d ] \r 5 5 6 2 2 : 1
0001520 7 7 7 7 7 0 * l o
0001540 c a l * [ u n b o u n d ] \r
0001560 5 5 6 2 4 : 1 7 7 7 7 3
0001600 6 [ p a d d i n g ]
0001620 \r 5 5 6 2 6 :
0001640 0 1 7 [ p a d d i n
0001660 g ] \r 5 5 6 3 0 : 1 7 7
0001700 7 7 6 0 \r 5 5
0001720 6 3 2 : 1 7 7 7 7 5
0001740 4 \r D E B U G \r \r \r B a s
0001760 i c f r a m e a t 5 5
0002000 5 2 2 \r 5 5 5 1 4 :
0002020 6 3 3 3 6 7 0 * l o c
0002040 a l * \r " T h e s e s y m b
0002060 o l s a r e n o t a v a i
0002100 l a b l e i n t h e ~ A
0002120 p a c k a g e : ~ % % ~ { ~ S
0002140 ~ } ~ % % " \r 5 5 5 1 6 :
0002160 5 4 1 6 4 7 4 4 *
0002200 l o c a l * " X C L - T E S T
0002220 " \r 5 5 5 2 0 :
0002240 5 4 1 5 6 0 5 6 * l o c a l
0002260 * ( * T E S T - B A T C H - R
0002300 E S U L T S * \r * T E S T - C
0002320 O M P I L E * * T E S T - F I
0002340 L E - P A T T E R N * * T E S
0002360 T - M O D E * \r C L - R E A D
0002400 F I L E D O - A L L - T E S T
0002420 S D O - T E S T D O - T E S
0002440 T - F I L E \r D O - T E S T -
0002460 G R O U P E X P E C T - E R R
0002500 O R S - - ) \r 5 5 5 2 2 :
0002520 1 0 0 0 0 0 5 5 5 1 4
0002540 \r \r F r a m e x t n a t
0002560 5 5 5 2 4 , f r a m e n a
0002600 m e = C L 247 E R R O R \r 5
0002620 5 5 2 4 : 1 4 0 0 0 1 5
0002640 5 4 7 1 [ U S E = 1 , X ,
0002660 a l i n k ] \r 5 5 5 2 6
0002700 : 1 3 1 4 3 0 7 3
0002720 [ f n h e a d e r ] \r 5
0002740 5 5 3 0 : 5 5 5 6 6
0002760 1 0 7 [ n e x t , p c ] \r
0003000 5 5 5 3 2 : 7 5
0003020 1 0 7 0 4 4 [ n a m e t a b
0003040 l e ] \r 5 5 5 3 4 : 5
0003060 5 5 2 2 5 5 4 7 0 [ b l i
0003100 n k , c l i n k ] \r 5 5 5
0003120 3 6 : 1 6
0003140 3 * l o c a l * 3 \r 5
0003160 5 5 4 0 : 6 3 3
0003200 3 6 7 0 * l o c a l * \r " T
0003220 h e s e s y m b o l s a r e
0003240 n o t a v a i l a b l e i
0003260 n t h e ~ A p a c k a g e
0003300 : ~ % % ~ { ~ S ~ } ~ % % " \r
0003320 5 5 5 4 2 : 5 3
0003340 1 6 3 7 3 6 * l o c a l *
0003360 ( " X C L - T E S T " ( \r * T
0003400 E S T - B A T C H - R E S U L T
0003420 S * * T E S T - C O M P I L E
0003440 * * T E S T - F I L E - P A T
0003460 T E R N * \r * T E S T - M O D
0003500 E * C L - R E A D F I L E D
0003520 O - A L L - T E S T S D O - T
0003540 E S T D O - T E S T - F I L E
0003560 \r D O - T E S T - G R O U P
0003600 - - ) ) \r 5 5 5 4 4 : 1
0003620 7 7 7 7 7 3 * l o
0003640 c a l * [ u n b o u n d ] \r
0003660 5 5 5 4 6 : 1 7 7 7 7 7
0003700 4 * l o c a l * [
0003720 u n b o u n d ] \r 5 5 5 5 0
0003740 : 1 7 7 7 7 7 1 6 3 7 3 6
0003760 * l o c a l * [ u n b o u n
0004000 d ] \r 5 5 5 5 2 : 1 7 7
0004020 7 7 7 1 6 3 7 7 2 * l o c a
0004040 l * [ u n b o u n d ] \r 5
0004060 5 5 5 4 : 1 7 7 7 7 7 1 5
0004100 6 0 5 6 * l o c a l * [ u n
0004120 b o u n d ] \r 5 5 5 5 6 :
0004140 0 6 0 4 6 3 [
0004160 p a d d i n g ] \r 5 5 5 6 0
0004200 : 0 1 7
0004220 [ p a d d i n g ] \r 5 5 5
0004240 6 2 : 1 7 7 7 7 6
0004260 0 \r 5 5 5 6 4 : 1 7
0004300 7 7 7 5 4 \r C L 247
0004320 E R R O R \r \r \r B a s i c f r
0004340 a m e a t 5 5 4 5 4 \r
0004360 5 5 4 5 4 : 1 0 0 0 0 0
0004400 5 5 4 5 4 \r \r F r a m e x
0004420 t n a t 5 5 4 5 6 , f
0004440 r a m e n a m e = \r R E S O
0004460 L V E - E X P O R T - M I S S I
0004500 N G A 0 0 0 1 \r 5 5 4 5 6 :
0004520 1 4 0 0 0 1 5 5 4 5 1
0004540 [ U S E = 1 , X , a l i
0004560 n k ] \r 5 5 4 6 0 : 4
0004600 0 6 6 0 6 2 [ f n
0004620 h e a d e r ] \r 5 5 4 6 2 :
0004640 5 5 5 1 4 2 0 7
0004660 [ n e x t , p c ] \r 5 5 4
0004700 6 4 : 1 6 2
0004720 3 6 [ n a m e t a b l e ] \r
0004740 5 5 4 6 6 : 5 5 4 5 4
0004760 5 5 4 5 0 [ b l i n k , c
0005000 l i n k ] \r 5 5 4 7 0 :
0005020 5 3 1 6 3 6 2 4 * P
0005040 R O C E E D - C A S E S * ( |
0005060 S ( P R O C E E D - C A S E \r
0005100 N A M E I M P O R T - P R O C
0005120 E E D T A G & S E L E C T
0005140 O R 0 T E S T \r | < C o m
0005160 p i l e d F u n c t i o n T
0005200 R U E / 7 5 , 1 0 7 0 5 0 > &
0005220 \r R E S O L V E - E X P O R T
0005240 - M I S S I N G A 0 0 0 1 A 0 0
0005260 0 2 ) | S ( P R O C E E D - C
0005300 A S E N A M E \r A B O R T -
0005320 E X P O R T - P R O C E E D T
0005340 A G & S E L E C T O R 1
0005360 T E S T \r | < C o m p i l e d
0005400 F u n c t i o n T R U E / 7
0005420 5 , 1 0 7 0 4 4 > & \r R E S
0005440 O L V E - E X P O R T - M I S S
0005460 I N G A 0 0 0 1 A 0 0 0 3 ) ) \r
0005500 5 5 4 7 2 : 5 5 4 0 4
0005520 4 0 1 [ f v a r P R
0005540 O C E E D - C A S E 7 9 8 4
0005560 o n s t a c k ] \r 5 5 4 7
0005600 4 : 4 7 1 0 4 6 0 1
0005620 4 [ f v a r * P R O C E E D
0005640 - C A S E S * t o p v a l
0005660 u e ] \r 5 5 4 7 6 : 5
0005700 5 3 6 4 4 0 1 [ f v a
0005720 r P A C K A G E o n s t
0005740 a c k ] \r 5 5 5 0 0 :
0005760 5 5 3 6 6 4 0 1 [ f v
0006000 a r M I S S I N G o n s
0006020 t a c k ] \r 5 5 5 0 2 :
0006040 1 7 7 7 7 7 5 5 4 7 4 [ p
0006060 a d d i n g ] \r 5 5 5 0 4 :
0006100 1 4 0 0 0 0 5 5 4 4 4
0006120 [ p a d d i n g ] \r 5 5 5 0
0006140 6 : 0 2
0006160 7 [ p a d d i n g ] \r 5 5
0006200 5 1 0 : 0 2 3
0006220 5 4 2 247 N O R M A L \r 5 5
0006240 5 1 2 : 1 7 7 7 7 6
0006260 0 \r R E S O L V E - E X P
0006300 O R T - M I S S I N G A 0 0 0 1
0006320 \r \r \r B a s i c f r a m e a
0006340 t 5 5 4 3 4 \r 5 5 4 3
0006360 0 : 5 3 1 6 3 6 1
0006400 2 * l o c a l * ( N I L ) \r
0006420 5 5 4 3 2 : 0
0006440 6 0 4 7 5 * l o c a l *
0006460 \r R E S O L V E - E X P O R T -
0006500 M I S S I N G A 0 0 0 1 \r 5
0006520 5 4 3 4 : 1 0 0 0 0 0 5
0006540 5 4 3 0 \r \r F r a m e x t n
0006560 a t 5 5 4 3 6 , f r a
0006600 m e n a m e = * C A T C H *
0006620 \r 5 5 4 3 6 : 1 4 0 0 0
0006640 1 5 5 4 0 5 [ U S E = 1
0006660 , X , a l i n k ] \r 5
0006700 5 4 4 0 : 4 4 1 0
0006720 7 4 [ f n h e a d e r ]
0006740 \r 5 5 4 4 2 : 5 5 4 5
0006760 4 5 3 [ n e x t ,
0007000 p c ] \r 5 5 4 4 4 :
0007020 1 6 2 [ n a m
0007040 e t a b l e ] \r 5 5 4 4 6 :
0007060 5 5 4 3 4 5 5 4 0 4
0007100 [ b l i n k , c l i n k ] \r
0007120 5 5 4 5 0 : 0
0007140 1 7 3 4 3 [ p a d d i n g ]
0007160 \r 5 5 4 5 2 :
0007200 0 2 3 [ p a d d i n
0007220 g ] \r * C A T C H * \r \r \r B a s
0007240 i c f r a m e a t 5 5
0007260 3 7 0 \r 5 5 3 6 4 :
0007300 7 4 1 7 5 4 6 4 P A C K
0007320 A G E # < P a c k a g e X C
0007340 L - T E S T > \r 5 5 3 6 6 :
0007360 5 4 1 5 6 0 5 6
0007400 M I S S I N G ( * T E S T - B
0007420 A T C H - R E S U L T S * \r *
0007440 T E S T - C O M P I L E * * T
0007460 E S T - F I L E - P A T T E R N
0007500 * * T E S T - M O D E * \r C
0007520 L - R E A D F I L E D O - A L
0007540 L - T E S T S D O - T E S T
0007560 D O - T E S T - F I L E \r D O
0007600 - T E S T - G R O U P E X P E
0007620 C T - E R R O R S - - ) \r
0007640 5 5 3 7 0 : 1 0 0 0 0 0
0007660 5 5 3 6 4 \r \r F r a m e x t
0007700 n a t 5 5 3 7 2 , f r
0007720 a m e n a m e = R E S O L V
0007740 E - E X P O R T - M I S S I N G
0007760 \r 5 5 3 7 2 : 1 4 0 0 0
0010000 1 5 5 2 5 1 [ U S E = 1
0010020 , X , a l i n k ] \r 5
0010040 5 3 7 4 : 3 6 4 0 0
0010060 7 2 [ f n h e a d e r ]
0010100 \r 5 5 3 7 6 : 5 5 4 3
0010120 0 6 6 [ n e x t ,
0010140 p c ] \r 5 5 4 0 0 :
0010160 1 6 5 5 2 3 4 [ n a m
0010200 e t a b l e ] \r 5 5 4 0 2 :
0010220 5 5 3 7 0 5 5 2 5 0
0010240 [ b l i n k , c l i n k ] \r
0010260 5 5 4 0 4 : 5 3
0010300 1 6 3 6 1 2 P R O C E E D - C
0010320 A S E 7 9 8 4 ( N I L ) \r
0010340 5 5 4 0 6 : 1 7 7 7 7 7
0010360 3 6 2 7 0 * l o c a l * [ u
0010400 n b o u n d ] \r 5 5 4 1 0 :
0010420 1 7 7 7 7 7 1 7 5 4 6 4
0010440 * l o c a l * [ u n b o u n d
0010460 ] \r 5 5 4 1 2 : 1 7 7 7
0010500 7 7 3 6 2 7 0 * l o c a l
0010520 * [ u n b o u n d ] \r 5 5
0010540 4 1 4 : 1 7 7 7 7 7 1 7 5
0010560 4 6 4 * l o c a l * [ u n b
0010600 o u n d ] \r 5 5 4 1 6 :
0010620 1 7 7 7 7 7 0 * l
0010640 o c a l * [ u n b o u n d ] \r
0010660 5 5 4 2 0 : 1 0 0 0 0 0
0010700 5 5 4 1 2 [ p a d d i n g
0010720 ] \r 5 5 4 2 2 :
0010740 0 1 7 [ p a d d i
0010760 n g ] \r 5 5 4 2 4 :
0011000 5 4 1 5 6 0 5 6 ( * T E
0011020 S T - B A T C H - R E S U L T S
0011040 * \r * T E S T - C O M P I L E
0011060 * * T E S T - F I L E - P A T
0011100 T E R N * * T E S T - M O D E
0011120 * \r C L - R E A D F I L E D
0011140 O - A L L - T E S T S D O - T
0011160 E S T D O - T E S T - F I L E
0011200 \r D O - T E S T - G R O U P
0011220 E X P E C T - E R R O R S - -
0011240 ) \r 5 5 4 2 6 : 1 7 7 7
0011260 7 6 0 \r R E S O L
0011300 V E - E X P O R T - M I S S I N
0011320 G \r \r \r B a s i c f r a m e
0011340 a t 5 5 2 3 4 \r 5 5 2
0011360 3 0 : 5 4 1 2 3 1
0011400 6 4 * l o c a l * ( D O - T
0011420 E S T D O - T E S T - G R O U
0011440 P \r E X P E C T - E R R O R S
0011460 T E S T - D E F U N T E S T
0011500 - D E F M A C R O T E S T - S
0011520 E T Q \r D O - A L L - T E S T
0011540 S C L - R E A D F I L E D O
0011560 - T E S T - F I L E * T E S T
0011600 - M O D E * - - ) \r 5 5 2
0011620 3 2 : 7 4 1 7 5 4
0011640 6 4 * l o c a l * # < P a c
0011660 k a g e X C L - T E S T > \r
0011700 5 5 2 3 4 : 1 0 0 0 0 0
0011720 5 5 2 3 0 \r \r F r a m e x
0011740 t n a t 5 5 2 3 6 , f
0011760 r a m e n a m e = E X P O R
0012000 T \r 5 5 2 3 6 : 1 4 0 0
0012020 0 1 5 5 1 6 7 [ U S E =
0012040 1 , X , a l i n k ] \r
0012060 5 5 2 4 0 : 6 3 0 2 0
0012100 2 6 [ f n h e a d e r
0012120 ] \r 5 5 2 4 2 : 5 5 3
0012140 6 4 3 4 7 [ n e x t ,
0012160 p c ] \r 5 5 2 4 4 :
0012200 0 1 7 [ n a
0012220 m e t a b l e ] \r 5 5 2 4 6
0012240 : 5 5 2 3 4 5 5 1 6 6
0012260 [ b l i n k , c l i n k ] \r
0012300 5 5 2 5 0 : 1 6
0012320 2 * l o c a l *
0012340 2 \r 5 5 2 5 2 :
0012360 5 4 1 2 3 1 6 4 * l o c a l
0012400 * ( D O - T E S T D O - T E
0012420 S T - G R O U P \r E X P E C T
0012440 - E R R O R S T E S T - D E F
0012460 U N T E S T - D E F M A C R O
0012500 T E S T - S E T Q \r D O - A
0012520 L L - T E S T S C L - R E A D
0012540 F I L E D O - T E S T - F I L
0012560 E * T E S T - M O D E * - -
0012600 ) \r 5 5 2 5 4 :
0012620 7 4 1 7 5 4 6 4 * l o c a l
0012640 * # < P a c k a g e X C L -
0012660 T E S T > \r 5 5 2 5 6 :
0012700 7 4 1 7 5 4 6 4 * l
0012720 o c a l * # < P a c k a g e
0012740 X C L - T E S T > \r 5 5 2 6
0012760 0 : 5 3 1 6 3 2 5
0013000 2 * l o c a l * ( * T E S T
0013020 - F I L E - P A T T E R N * \r
0013040 * T E S T - C O M P I L E * *
0013060 T E S T - B A T C H - R E S U L
0013100 T S * * T E S T - M O D E *
0013120 \r D O - T E S T - F I L E C L
0013140 - R E A D F I L E D O - A L L
0013160 - T E S T S T E S T - S E T Q
0013200 \r T E S T - D E F M A C R O
0013220 T E S T - D E F U N - - ) \r
0013240 5 5 2 6 2 : 0
0013260 0 * l o c a l * N
0013300 I L \r 5 5 2 6 4 :
0013320 0 1 0 0 6 7 4 * l o c a
0013340 l * * T E S T - F I L E - P A
0013360 T T E R N * \r 5 5 2 6 6 :
0013400 5 4 1 2 3 1 6 4 *
0013420 l o c a l * ( D O - T E S T
0013440 D O - T E S T - G R O U P \r E
0013460 X P E C T - E R R O R S T E S
0013500 T - D E F U N T E S T - D E F
0013520 M A C R O T E S T - S E T Q
0013540 \r D O - A L L - T E S T S C L
0013560 - R E A D F I L E D O - T E S
0013600 T - F I L E * T E S T - M O D
0013620 E * - - ) \r 5 5 2 7 0 :
0013640 0 0 *
0013660 l o c a l * N I L \r 5 5 2
0013700 7 2 : 0 1 0 0 6
0013720 7 4 * l o c a l * * T E S T
0013740 - F I L E - P A T T E R N * \r
0013760 5 5 2 7 4 : 0
0014000 0 * l o c a l * N
0014020 I L \r 5 5 2 7 6 :
0014040 0 0 * l o c a
0014060 l * N I L \r 5 5 3 0 0 :
0014100 0 0 *
0014120 l o c a l * N I L \r 5 5 3
0014140 0 2 : 0
0014160 0 * l o c a l * N I L \r
0014200 5 5 3 0 4 : 5 4
0014220 3 6 2 0 0 * l o c a l * "
0014240 D O - T E S T " \r 5 5 3 0 6
0014260 : 0 0
0014300 * l o c a l * N I L \r 5
0014320 5 3 1 0 : 0 1 0
0014340 0 6 6 0 * l o c a l * D O -
0014360 T E S T \r 5 5 3 1 2 :
0014400 0 0 * l o
0014420 c a l * N I L \r 5 5 3 1 4
0014440 : 0 0
0014460 * l o c a l * N I L \r 5
0014500 5 3 1 6 : 5 4 1 5
0014520 6 1 1 4 * l o c a l * ( N I
0014540 L N I L ) \r 5 5 3 2 0 :
0014560 0 0 *
0014600 l o c a l * N I L \r 5 5 3
0014620 2 2 : 0 1 0 0 6
0014640 6 0 * l o c a l * D O - T E
0014660 S T \r 5 5 3 2 4 :
0014700 5 4 1 5 6 2 5 2 * l o c a
0014720 l * ( D O - T E S T D O - T
0014740 E S T - F I L E \r D O - T E S
0014760 T - G R O U P E X P E C T - E
0015000 R R O R S T E S T - D E F M A
0015020 C R O T E S T - D E F U N \r
0015040 T E S T - S E T Q ) \r 5 5 3
0015060 2 6 : 0
0015100 0 * l o c a l * N I L \r
0015120 5 5 3 3 0 : 0
0015140 0 * l o c a l * N
0015160 I L \r 5 5 3 3 2 :
0015200 0 0 * l o c a
0015220 l * N I L \r 5 5 3 3 4 :
0015240 0 0 *
0015260 l o c a l * N I L \r 5 5 3
0015300 3 6 : 0
0015320 0 * l o c a l * N I L \r
0015340 5 5 3 4 0 : 1 7 7 7 7 7
0015360 0 * l o c a l * [
0015400 u n b o u n d ] \r 5 5 3 4 2
0015420 : 1 7 7 7 7 7 0
0015440 * l o c a l * [ u n b o u n
0015460 d ] \r 5 5 3 4 4 : 1 7 7
0015500 7 7 7 0 * l o c a
0015520 l * [ u n b o u n d ] \r 5
0015540 5 3 4 6 : 1 7 7 7 7 7
0015560 0 [ f v a r * P A C K
0015600 A G E * n o t l o o k e d
0015620 u p ] \r 5 5 3 5 0 :
0015640 5 4 3 1 7 0 0 [ p a
0015660 d d i n g ] \r 5 5 3 5 2 :
0015700 0 2 3 [
0015720 p a d d i n g ] \r 5 5 3 5 4
0015740 : 1 7 7 7 7 6 0
0015760 \r 5 5 3 5 6 : 1 7 7 7
0016000 5 7 4 0 \r 5 5 3
0016020 6 0 : 1 7 7 7 6 4
0016040 6 6 \r 5 5 3 6 2 :
0016060 7 4 1 7 5 4 6 4 # < P a
0016100 c k a g e X C L - T E S T > \r
0016120 E X P O R T \r \r \r B a s i c f
0016140 r a m e a t 5 5 1 5 2 \r
0016160 5 5 1 5 0 : 5 4
0016200 1 2 3 0 5 4 A R G S ( " X
0016220 C L - T E S T " ( 247 E X P O R
0016240 T D O - T E S T \r D O - T E
0016260 S T - G R O U P E X P E C T -
0016300 E R R O R S T E S T - D E F U
0016320 N T E S T - D E F M A C R O
0016340 \r T E S T - S E T Q D O - A L
0016360 L - T E S T S C L - R E A D F
0016400 I L E - - ) ( 247 U S E " L
0016420 I S P " ) ) \r 5 5 1 5 2 :
0016440 1 0 0 0 0 0 5 5 1 5 0 \r
0016460 \r F r a m e x t n a t
0016500 5 5 1 5 4 , f r a m e n a m
0016520 e = D E F P A C K A G E \r
0016540 5 5 1 5 4 : 1 4 0 0 0 1
0016560 5 5 1 2 3 [ U S E = 1 , X
0016600 , a l i n k ] \r 5 5 1 5
0016620 6 : 5 7 5 5 0 2
0016640 6 [ f n h e a d e r ] \r
0016660 5 5 1 6 0 : 5 5 2 3 0
0016700 3 6 3 [ n e x t , p c ]
0016720 \r 5 5 1 6 2 :
0016740 0 0 [ n a m e t a
0016760 b l e ] \r 5 5 1 6 4 :
0017000 5 5 1 5 2 5 5 1 2 2 [ b l
0017020 i n k , c l i n k ] \r 5 5
0017040 1 6 6 : 7 4 1 7 5
0017060 4 6 4 P A C K A G E # < P a
0017100 c k a g e X C L - T E S T > \r
0017120 5 5 1 7 0 : 5 4
0017140 1 2 3 3 3 6 O P T I O N (
0017160 247 E X P O R T D O - T E S T
0017200 \r D O - T E S T - G R O U P E
0017220 X P E C T - E R R O R S T E S
0017240 T - D E F U N T E S T - D E F
0017260 M A C R O \r T E S T - S E T Q
0017300 D O - A L L - T E S T S C L
0017320 - R E A D F I L E D O - T E S
0017340 T - F I L E - - ) \r 5 5 1
0017360 7 2 : 0 1 3 5
0017400 6 6 K E Y 247 E X P O R T \r
0017420 5 5 1 7 4 : 5 4
0017440 1 2 3 1 6 4 C L 247 V A L U E S
0017460 ( D O - T E S T D O - T E S
0017500 T - G R O U P \r E X P E C T -
0017520 E R R O R S T E S T - D E F U
0017540 N T E S T - D E F M A C R O
0017560 T E S T - S E T Q \r D O - A L
0017600 L - T E S T S C L - R E A D F
0017620 I L E D O - T E S T - F I L E
0017640 * T E S T - M O D E * - - )
0017660 \r 5 5 1 7 6 : 1 7 7 7 7
0017700 7 2 3 S Y M B O L S
0017720 - T O - S H A D O W [ u n b o
0017740 u n d ] \r 5 5 2 0 0 : 1
0017760 7 7 7 7 7 3 P O S
0020000 T - M A K E - F O R M S [ u n
0020020 b o u n d ] \r 5 5 2 0 2 :
0020040 1 7 7 7 7 7 2 *
0020060 l o c a l * [ u n b o u n d ]
0020100 \r 5 5 2 0 4 : 1 7 7 7 7
0020120 7 3 0 7 5 0 * l o c a l *
0020140 [ u n b o u n d ] \r 5 5 2
0020160 0 6 : 1 7 7 7 7 7 1 6 4 3
0020200 7 4 * l o c a l * [ u n b o
0020220 u n d ] \r 5 5 2 1 0 : 1
0020240 7 7 7 7 7 2 F O R
0020260 M [ u n b o u n d ] \r 5 5
0020300 2 1 2 : 1 6
0020320 3 [ p a d d i n g ] \r
0020340 5 5 2 1 4 : 0
0020360 3 7 [ p a d d i n g ] \r
0020400 5 5 2 1 6 : 1 7 7 7 7 6
0020420 0 \r 5 5 2 2 0
0020440 : 5 4 1 2 4 1 7 2
0020460 ( ( 247 E X P O R T D O - T E
0020500 S T D O - T E S T - G R O U P
0020520 \r E X P E C T - E R R O R S
0020540 T E S T - D E F U N T E S T -
0020560 D E F M A C R O T E S T - S E
0020600 T Q \r D O - A L L - T E S T S
0020620 C L - R E A D F I L E - - )
0020640 ( 247 U S E " L I S P " ) ) \r
0020660 5 5 2 2 2 : 1 7 7 7 7 6
0020700 2 \r 5 5 2 2 4
0020720 : 1 7 7 7 7 6 4
0020740 \r 5 5 2 2 6 : 1 7 7 7
0020760 7 6 6 \r D E F P A
0021000 C K A G E \r \r \r B a s i c f r
0021020 a m e a t 5 5 1 0 6 \r
0021040 5 5 1 0 2 : 5 4
0021060 1 2 3 3 6 2 * F O R M * ( D
0021100 E F P A C K A G E " X C L - T
0021120 E S T " ( \r 247 E X P O R T D
0021140 O - T E S T D O - T E S T - G
0021160 R O U P E X P E C T - E R R O
0021200 R S T E S T - D E F U N \r T
0021220 E S T - D E F M A C R O T E S
0021240 T - S E T Q D O - A L L - T E
0021260 S T S C L - R E A D F I L E
0021300 - - ) ( \r 247 U S E " L I S P
0021320 " ) ) \r 5 5 1 0 4 :
0021340 0 1 3 5 5 4 * l o c
0021360 a l * D E F P A C K A G E \r
0021400 5 5 1 0 6 : 1 0 0 0 0 0
0021420 5 5 1 0 2 \r \r F r a m e x
0021440 t n a t 5 5 1 1 0 , f
0021460 r a m e n a m e = \ E V A L
0021500 F O R M \r 5 5 1 1 0 : 1
0021520 4 0 0 0 1 5 5 0 7 7 [ U S
0021540 E = 1 , X , a l i n k ]
0021560 \r 5 5 1 1 2 : 1 3 3 2 5
0021600 4 2 3 [ f n h e a
0021620 d e r ] \r 5 5 1 1 4 :
0021640 5 5 1 5 0 1 5 2 [ n e
0021660 x t , p c ] \r 5 5 1 1 6 :
0021700 5 5 1 6 2 2 2 6
0021720 [ n a m e t a b l e ] \r 5 5
0021740 1 2 0 : 5 5 1 0 6 5 5
0021760 0 7 6 [ b l i n k , c l i n
0022000 k ] \r 5 5 1 2 2 :
0022020 0 1 3 5 5 4 * l o c a
0022040 l * D E F P A C K A G E \r
0022060 5 5 1 2 4 : 1 7 7 7 7 7 1
0022100 0 1 7 4 0 * A R G V A L * [
0022120 u n b o u n d ] \r 5 5 1 2 6
0022140 : 1 7 7 7 7 7 2 3
0022160 * T A I L * [ u n b o u n d
0022200 ] \r 5 5 1 3 0 : 1 7 7 7
0022220 7 7 7 7 5 1 4 * F N * [
0022240 u n b o u n d ] \r 5 5 1 3 2
0022260 : 1 7 7 7 7 7 1 6 4 3 7 4
0022300 * l o c a l * [ u n b o u n
0022320 d ] \r 5 5 1 3 4 : 1 7 7
0022340 7 7 7 0 * l o c a
0022360 l * [ u n b o u n d ] \r 5
0022400 5 1 3 6 : 1 7 7 7 7 7
0022420 0 * l o c a l * [ u n
0022440 b o u n d ] \r 5 5 1 4 0 :
0022460 1 7 7 7 7 7 0 [
0022500 p a d d i n g ] \r 5 5 1 4 2
0022520 : 1 6 2 6 4 2 3
0022540 [ p a d d i n g ] \r 5 5 1
0022560 4 4 : 0
0022600 3 3 [ p a d d i n g ] \r 5
0022620 5 1 4 6 : 1 7 7 7 7 6
0022640 0 \r \ E V A L F O R M \r
0022660 \r \r B a s i c f r a m e a t
0022700 5 5 0 6 2 \r 5 5 0 5 6
0022720 : 5 4 1 2 3 3 6 2
0022740 * l o c a l * ( D E F P A C
0022760 K A G E " X C L - T E S T "
0023000 ( \r 247 E X P O R T D O - T E S
0023020 T D O - T E S T - G R O U P
0023040 E X P E C T - E R R O R S T E
0023060 S T - D E F U N \r T E S T - D
0023100 E F M A C R O T E S T - S E T
0023120 Q D O - A L L - T E S T S C
0023140 L - R E A D F I L E - - ) (
0023160 \r 247 U S E " L I S P " ) ) \r
0023200 5 5 0 6 0 : 0
0023220 0 \ I N T E R N A L
0023240 N I L \r 5 5 0 6 2 : 1
0023260 0 0 0 0 0 5 5 0 5 6 \r \r F
0023300 r a m e x t n a t 5 5
0023320 0 6 4 , f r a m e n a m e =
0023340 E V A L \r 5 5 0 6 4 :
0023360 1 4 0 0 0 1 5 5 0 1 5 [ U
0023400 S E = 1 , X , a l i n k
0023420 ] \r 5 5 0 6 6 : 1 3 3 1
0023440 5 4 2 3 [ f n h e
0023460 a d e r ] \r 5 5 0 7 0 :
0023500 5 5 1 0 2 5 2 [ n
0023520 e x t , p c ] \r 5 5 0 7 2
0023540 : 0 2 3
0023560 [ n a m e t a b l e ] \r 5
0023600 5 0 7 4 : 5 5 0 6 2 5
0023620 5 0 1 4 [ b l i n k , c l i
0023640 n k ] \r 5 5 0 7 6 :
0023660 0 1 7 [ p a d
0023700 d i n g ] \r 5 5 1 0 0 :
0023720 0 2 3 [ p
0023740 a d d i n g ] \r E V A L \r \r \r B
0023760 a s i c f r a m e a t
0024000 5 5 0 0 0 \r 5 4 7 7 4 :
0024020 0 0 S T
0024040 R E A M N I L \r 5 4 7 7 6
0024060 : 5 4 1 2 3 1 4 0
0024100 A R G S ( 247 R E A D T A B L
0024120 E " x c l " 247 P A C K A G E
0024140 ( \r D E F P A C K A G E " X
0024160 C L - T E S T " & & ) ) \r
0024200 5 5 0 0 0 : 1 0 0 0 0 0
0024220 5 4 7 7 4 \r \r F r a m e x
0024240 t n a t 5 5 0 0 2 , f
0024260 r a m e n a m e = \ D O - D
0024300 E F I N E - F I L E - I N F O \r
0024320 5 5 0 0 2 : 1 4 0 0 0 1
0024340 5 4 7 6 3 [ U S E = 1 ,
0024360 X , a l i n k ] \r 5 5
0024400 0 0 4 : 4 3 2 2 4
0024420 2 5 [ f n h e a d e r ] \r
0024440 5 5 0 0 6 : 5 5 0 5 6
0024460 1 4 3 [ n e x t , p
0024500 c ] \r 5 5 0 1 0 :
0024520 7 4 1 4 7 6 4 0 [ n a m e
0024540 t a b l e ] \r 5 5 0 1 2 :
0024560 5 5 0 0 0 5 4 7 6 2 [
0024600 b l i n k , c l i n k ] \r
0024620 5 5 0 1 4 : 0
0024640 0 P A C K A G E N I
0024660 L \r 5 5 0 1 6 :
0024700 7 5 6 6 6 4 4 C L 247 R E A
0024720 D T A B L E \r | < R e a d T a
0024740 b l e X C L / 7 5 , 6 6 6 4 4
0024760 > \r 5 5 0 2 0 :
0025000 0 0 B A S E N
0025020 I L \r 5 5 0 2 2 :
0025040 5 4 1 2 3 3 6 2 V A L U E
0025060 ( D E F P A C K A G E " X C
0025100 L - T E S T " ( \r 247 E X P O R
0025120 T D O - T E S T D O - T E S
0025140 T - G R O U P E X P E C T - E
0025160 R R O R S T E S T - D E F U N
0025200 \r T E S T - D E F M A C R O
0025220 T E S T - S E T Q D O - A L L
0025240 - T E S T S C L - R E A D F I
0025260 L E - - ) ( \r 247 U S E " L
0025300 I S P " ) ) \r 5 5 0 2 4 :
0025320 0 0 *
0025340 l o c a l * N I L \r 5 5 0
0025360 2 6 : 0
0025400 0 * l o c a l * N I L \r
0025420 5 5 0 3 0 : 0
0025440 0 * l o c a l * N
0025460 I L \r 5 5 0 3 2 :
0025500 5 4 1 2 3 0 6 4 T A I L
0025520 ( 247 P A C K A G E ( D E F P A
0025540 C K A G E \r " X C L - T E S T
0025560 " & & ) ) \r 5 5 0 3 4 :
0025600 1 7 7 7 7 7 2 0 7
0025620 P [ u n b o u n d ] \r 5 5
0025640 0 3 6 : 1 7 7 7 7 7
0025660 0 R [ u n b o u n d ] \r
0025700 5 5 0 4 0 : 1 7 7 7 7 7
0025720 0 [ f v a r * I
0025740 N T E R L I S P - P A C K A G E
0025760 * \r n o t l o o k e d u
0026000 p ] \r 5 5 0 4 2 : 1 7 7
0026020 7 7 7 1 7 [ p a d d
0026040 i n g ] \r 5 5 0 4 4 :
0026060 1 6 0 [ p a
0026100 d d i n g ] \r 5 5 0 4 6 :
0026120 0 3 7 [
0026140 p a d d i n g ] \r 5 5 0 5 0
0026160 : 1 7 7 7 7 0 1 4
0026200 \r 5 5 0 5 2 :
0026220 5 4 1 2 3 0 6 4 ( 247 P A C K
0026240 A G E ( D E F P A C K A G E
0026260 " X C L - T E S T " & & ) )
0026300 \r 5 5 0 5 4 : 1 7 7 7 7
0026320 6 1 6 \r \ D O - D E
0026340 F I N E - F I L E - I N F O \r \r
0026360 \r B a s i c f r a m e a t
0026400 5 4 7 4 6 \r 5 4 7 4 4 :
0026420 5 4 1 2 3 1 4 0
0026440 A R G S ( 247 R E A D T A B L E
0026460 " x c l " 247 P A C K A G E
0026500 ( \r D E F P A C K A G E " X C
0026520 L - T E S T " & & ) ) \r
0026540 5 4 7 4 6 : 1 0 0 0 0 0
0026560 5 4 7 4 4 \r \r F r a m e x t
0026600 n a t 5 4 7 5 0 , f r
0026620 a m e n a m e = D E F I N E
0026640 - F I L E - I N F O \r 5 4 7
0026660 5 0 : 1 4 0 0 0 1 5 4 7
0026700 1 7 [ U S E = 1 , X ,
0026720 a l i n k ] \r 5 4 7 5 2 :
0026740 4 3 1 7 0 2 5 [
0026760 f n h e a d e r ] \r 5 4 7
0027000 5 4 : 5 4 7 7 4
0027020 5 2 [ n e x t , p c ] \r
0027040 5 4 7 5 6 : 0
0027060 0 [ n a m e t a b l e
0027100 ] \r 5 4 7 6 0 : 5 4 7
0027120 4 6 5 4 7 1 6 [ b l i n k
0027140 , c l i n k ] \r 5 4 7 6 2
0027160 : 5 4 5 7 6 4 0 1
0027200 [ f v a r F I L E C R E A T
0027220 E D L O C o n s t a c k ]
0027240 \r 5 4 7 6 4 : 1 7 7 7 7
0027260 7 0 [ p a d d i n
0027300 g ] \r 5 4 7 6 6 :
0027320 1 6 5 0 [ p a d d
0027340 i n g ] \r 5 4 7 7 0 :
0027360 0 1 7 [ p a
0027400 d d i n g ] \r 5 4 7 7 2 :
0027420 1 6 4 1 7 2
0027440 7 1 \r D E F I N E - F I L E - I
0027460 N F O \r \r \r B a s i c f r a m
0027500 e a t 5 4 7 0 2 \r 5
0027520 4 6 7 6 : 5 4 1 2
0027540 3 3 4 6 * F O R M * ( D E F
0027560 I N E - F I L E - I N F O \r 247
0027600 R E A D T A B L E " x c l "
0027620 247 P A C K A G E ( D E F P A C
0027640 K A G E " X C L - T E S T "
0027660 & & ) ) \r 5 4 7 0 0 :
0027700 0 7 7 6 6 * l
0027720 o c a l * D E F I N E - F I L
0027740 E - I N F O \r 5 4 7 0 2 :
0027760 1 0 0 0 0 0 5 4 6 7 6 \r
0030000 \r F r a m e x t n a t
0030020 5 4 7 0 4 , f r a m e n a m
0030040 e = \ E V A L F O R M \r 5
0030060 4 7 0 4 : 1 4 0 0 0 1 5
0030100 4 6 7 3 [ U S E = 1 , X ,
0030120 a l i n k ] \r 5 4 7 0 6
0030140 : 1 3 3 2 5 4 2 3
0030160 [ f n h e a d e r ] \r 5
0030200 4 7 1 0 : 5 4 7 4 4
0030220 1 5 2 [ n e x t , p c ] \r
0030240 5 4 7 1 2 : 0
0030260 3 7 [ n a m e t a b
0030300 l e ] \r 5 4 7 1 4 : 5
0030320 4 7 0 2 5 4 6 7 2 [ b l i
0030340 n k , c l i n k ] \r 5 4 7
0030360 1 6 : 0 7 7
0030400 6 6 * l o c a l * D E F I N
0030420 E - F I L E - I N F O \r 5 4
0030440 7 2 0 : 1 7 7 7 7 7 1 2 3
0030460 3 4 6 * A R G V A L * [ u n
0030500 b o u n d ] \r 5 4 7 2 2 :
0030520 1 7 7 7 7 7 6 5 0 0 0 *
0030540 T A I L * [ u n b o u n d ] \r
0030560 5 4 7 2 4 : 1 7 7 7 7 7
0030600 0 * F N * [ u n
0030620 b o u n d ] \r 5 4 7 2 6 :
0030640 1 7 7 7 7 7 1 5 5 2 1 0 *
0030660 l o c a l * [ u n b o u n d ]
0030700 \r 5 4 7 3 0 : 1 7 7 7 7
0030720 7 0 * l o c a l *
0030740 [ u n b o u n d ] \r 5 4 7
0030760 3 2 : 1 7 7 7 7 7 5 4 7
0031000 2 0 * l o c a l * [ u n b o
0031020 u n d ] \r 5 4 7 3 4 : 1
0031040 7 7 7 7 7 5 4 6 7 4 [ p a
0031060 d d i n g ] \r 5 4 7 3 6 :
0031100 2 1 3 1 0 2 4 [
0031120 p a d d i n g ] \r 5 4 7 4 0
0031140 : 0 3 3
0031160 [ p a d d i n g ] \r 5 4 7
0031200 4 2 : 1 7 7 7 7 6
0031220 0 \r \ E V A L F O R M \r \r \r
0031240 B a s i c f r a m e a t
0031260 5 4 6 5 6 \r 5 4 6 5 2 :
0031300 5 4 1 2 3 3 4 6 *
0031320 l o c a l * ( D E F I N E - F
0031340 I L E - I N F O \r 247 R E A D T
0031360 A B L E " x c l " 247 P A C K
0031400 A G E ( D E F P A C K A G E
0031420 " X C L - T E S T " & & ) )
0031440 \r 5 4 6 5 4 :
0031460 0 0 \ I N T E R N
0031500 A L N I L \r 5 4 6 5 6 :
0031520 1 0 0 0 0 0 5 4 6 5 2 \r
0031540 \r F r a m e x t n a t
0031560 5 4 6 6 0 , f r a m e n a m
0031600 e = E V A L \r 5 4 6 6 0 :
0031620 1 4 0 0 0 1 5 4 5 4 1
0031640 [ U S E = 1 , X , a l i
0031660 n k ] \r 5 4 6 6 2 : 1 3
0031700 3 1 5 4 2 3 [ f n
0031720 h e a d e r ] \r 5 4 6 6 4 :
0031740 5 4 6 7 6 5 2
0031760 [ n e x t , p c ] \r 5 4 6
0032000 6 6 : 5 4 7 2 0 2
0032020 3 0 [ n a m e t a b l e ] \r
0032040 5 4 6 7 0 : 5 4 6 5 6
0032060 5 4 5 4 0 [ b l i n k , c
0032100 l i n k ] \r 5 4 6 7 2 :
0032120 0 2 3 [ p
0032140 a d d i n g ] \r 5 4 6 7 4 :
0032160 0 2 3
0032200 [ p a d d i n g ] \r E V A L \r \r
0032220 \r B a s i c f r a m e a t
0032240 5 4 5 2 4 \r 5 4 5 1 2 :
0032260 7 4 1 4 7 6 4 0
0032300 S T R E A M \r | < I n p u t
0032320 S t r e a m 7 4 , 1 4 7 6 4 0
0032340 o n { E R I S } < L I S P C
0032360 O R E > L I B R A R Y > D O - T
0032400 E S T . D C O M ; 3 5 > \r 5
0032420 4 5 1 4 : 0
0032440 0 L D F L G N I L \r
0032460 5 4 5 1 6 : 0
0032500 0 P R I N T F L G
0032520 N I L \r 5 4 5 2 0 :
0032540 7 5 6 3 7 7 0 D E F A
0032560 U L T E N V { R E A D E R - E
0032600 N V I R O N M E N T } # \r 7 5 ,
0032620 6 3 7 7 0 \r 5 4 5 2 2 :
0032640 0 1 1 4 L O
0032660 A D - V E R B O S E - S T R E A
0032700 M T \r 5 4 5 2 4 : 1 0
0032720 0 0 0 0 5 4 5 1 2 \r \r F r
0032740 a m e x t n a t 5 4 5
0032760 2 6 , f r a m e n a m e =
0033000 \ L O A D - S T R E A M \r 5
0033020 4 5 2 6 : 1 4 0 0 0 1 5
0033040 4 4 6 1 [ U S E = 1 , X ,
0033060 a l i n k ] \r 5 4 5 3 0
0033100 : 4 1 4 6 0 2 5
0033120 [ f n h e a d e r ] \r 5
0033140 4 5 3 2 : 5 4 6 5 2
0033160 1 3 2 0 [ n e x t , p c ] \r
0033200 5 4 5 3 4 : 0
0033220 2 3 [ n a m e t a b
0033240 l e ] \r 5 4 5 3 6 : 5
0033260 4 5 2 4 5 4 4 6 0 [ b l i
0033300 n k , c l i n k ] \r 5 4 5
0033320 4 0 : 0
0033340 0 D F N F L G N I L \r
0033360 5 4 5 4 2 : 0
0033400 1 1 4 B U I L D M A P F L
0033420 G T \r 5 4 5 4 4 :
0033440 0 1 1 4 F I L E
0033460 P K G F L G T \r 5 4 5 4 6
0033500 : 0 1 1 4
0033520 A D D S P E L L F L G T \r
0033540 5 4 5 5 0 : 5 4
0033560 1 2 2 6 2 2 L I S P X H I S T
0033600 ( ( & ) ( 7 5 " 2 / " )
0033620 \r " < n o t y e t e v a l u
0033640 a t e d > " * H I S T O R Y *
0033660 ( C L 247 247 R E D O 6 3 ) \r
0033700 * L I S P X P R I N T * ( " \r
0033720 " & ) S I D E ( - 1 ) ) \r
0033740 5 4 5 5 2 : 0
0033760 0 P R L S T N I
0034000 L \r 5 4 5 5 4 :
0034020 7 5 6 3 7 7 0 F I L E C R
0034040 E A T E D E N V { \r R E A D E
0034060 R - E N V I R O N M E N T } # 7
0034100 5 , 6 3 7 7 0 \r 5 4 5 5 6 :
0034120 0 1 0 0 6 2 7
0034140 F I L E \r { E R I S } < L I S
0034160 P C O R E > L I B R A R Y > D O
0034200 - T E S T . D C O M ; 3 5 \r
0034220 5 4 5 6 0 : 0
0034240 0 F I L E M A P N I
0034260 L \r 5 4 5 6 2 :
0034300 0 0 F N A D R L
0034320 S T N I L \r 5 4 5 6 4 :
0034340 0 0 R
0034360 O O T N A M E N I L \r 5 4
0034400 5 6 6 : 1 6
0034420 5 0 T E M 4 0 \r 5 4 5
0034440 7 0 : 0
0034460 0 F I L E C R E A T E D L S
0034500 T N I L \r 5 4 5 7 2 :
0034520 5 4 1 2 3 3 4 6 L O
0034540 A D A ( D E F I N E - F I L E
0034560 - I N F O \r 247 R E A D T A B L
0034600 E " x c l " 247 P A C K A G E
0034620 ( D E F P A C K A G E " X C
0034640 L - T E S T " & & ) ) \r
0034660 5 4 5 7 4 : 0
0034700 0 M A Y B E W A N T F
0034720 I L E M A P N I L \r 5 4 5
0034740 7 6 : 1 6 4
0034760 1 7 F I L E C R E A T E D L O
0035000 C 2 7 1 \r 5 4 6 0 0 :
0035020 7 5 6 3 7 7 0 E
0035040 { R E A D E R - E N V I R O N M
0035060 E N T } # 7 5 , 6 3 7 7 0 \r
0035100 5 4 6 0 2 : 0
0035120 0 A D R N I L \r
0035140 5 4 6 0 4 : 7 4 1
0035160 7 5 7 4 4 * P A C K A G E *
0035200 # < P a c k a g e I N T E R L
0035220 I S P > \r 5 4 6 0 6 :
0035240 7 5 6 6 7 4 0 * R E
0035260 A D T A B L E * \r | < R e a d
0035300 T a b l e O L D - I N T E R L
0035320 I S P - F I L E / 7 5 , 6 6 7 4
0035340 0 > \r 5 4 6 1 0 :
0035360 1 6 1 2 * R E A D
0035400 - B A S E * 1 0 \r 5 4 6 1
0035420 2 : 1 6 1
0035440 2 * P R I N T - B A S E * 1
0035460 0 \r 5 4 6 1 4 : 1 7 5
0035500 3 6 6 0 1 4 [ f v a r
0035520 F I L E P K G F L G t o p
0035540 v a l u e ] \r 5 4 6 1 6 :
0035560 1 0 1 6 4 0 2 6 4 5 5 [
0035600 f v a r R E S E T V A R S L S
0035620 T \r n o n - s t a c k b i
0035640 n d i n g ] \r 5 4 6 2 0 :
0035660 1 7 7 7 7 7 2 3 [
0035700 f v a r L O A D E D F I L E L
0035720 S T \r n o t l o o k e d
0035740 u p ] \r 5 4 6 2 2 : 1
0035760 6 5 7 2 6 0 1 4 [ f v a
0036000 r D F N F L G t o p v a
0036020 l u e ] \r 5 4 6 2 4 :
0036040 1 7 6 4 0 6 0 1 4 [ f v
0036060 a r B U I L D M A P F L G
0036100 t o p v a l u e ] \r 5 4 6
0036120 2 6 : 1 7 6 3 6 6 0
0036140 1 4 [ f v a r A D D S P E L
0036160 L F L G t o p v a l u e ]
0036200 \r 5 4 6 3 0 : 5 4 4 1
0036220 4 4 0 1 [ f v a r L
0036240 I S P X H I S T o n s t a
0036260 c k ] \r 5 4 6 3 2 : 1 7
0036300 7 7 7 7 1 7 3 0 [ f v a
0036320 r \r * C O M M O N - L I S P -
0036340 R E A D - E N V I R O N M E N T
0036360 * n o t l o o k e d u p
0036400 ] \r 5 4 6 3 4 :
0036420 2 1 1 5 3 0 [ p a d d i
0036440 n g ] \r 5 4 6 3 6 :
0036460 0 1 1 7 [ p a d
0036500 d i n g ] \r 5 4 6 4 0 :
0036520 1 7 7 7 5 7 3 6 \r
0036540 5 4 6 4 2 : 5 4
0036560 1 0 3 4 3 2 ( ( & ) ( & N
0036600 I L ) ) \r 5 4 6 4 4 :
0036620 0 1 0 0 6 2 7 \r { E
0036640 R I S } < L I S P C O R E > L I
0036660 B R A R Y > D O - T E S T . D C
0036700 O M ; 3 5 \r 5 4 6 4 6 :
0036720 1 7 7 7 7 5 4 2 \r
0036740 5 4 6 5 0 : 1 7 7 7 7 3
0036760 5 2 \r \ L O A D - S T
0037000 R E A M \r \r \r B a s i c f r a
0037020 m e a t 5 4 4 4 4 \r
0037040 5 4 4 4 0 : 7 7
0037060 7 2 5 5 4 * l o c a l * ( L
0037100 O A D A 0 0 0 1 ) \r 5 4 4 4
0037120 2 : 0 1 5 1
0037140 2 * l o c a l * I N T E R N
0037160 A L \r 5 4 4 4 4 : 1 0 0
0037200 0 0 0 5 4 4 4 0 \r \r F r a
0037220 m e x t n a t 5 4 4 4
0037240 6 , f r a m e n a m e = E
0037260 R R O R S E T \r 5 4 4 4 6 :
0037300 1 4 0 0 0 1 5 4 4 1 5
0037320 [ U S E = 1 , X , a l i
0037340 n k ] \r 5 4 4 5 0 : 4
0037360 1 2 0 4 2 5 [ f n
0037400 h e a d e r ] \r 5 4 4 5 2 :
0037420 5 4 5 1 2 2 2 6
0037440 [ n e x t , p c ] \r 5 4 4
0037460 5 4 : 1 7 7 7 7 7
0037500 0 [ n a m e t a b l e ] \r
0037520 5 4 4 5 6 : 5 4 4 4 4
0037540 5 4 4 1 4 [ b l i n k , c
0037560 l i n k ] \r 5 4 4 6 0 :
0037600 7 4 1 4 7 6 4 0 S T
0037620 R E A M \r | < I n p u t S t
0037640 r e a m 7 4 , 1 4 7 6 4 0 o
0037660 n { E R I S } < L I S P C O R
0037700 E > L I B R A R Y > D O - T E S
0037720 T . D C O M ; 3 5 > \r 5 4 4
0037740 6 2 : 0
0037760 0 T E M N I L \r 5 4 4
0040000 6 4 : 5 4 3 7 4 4
0040020 0 1 [ f v a r L D F L G
0040040 o n s t a c k ] \r 5 4 4 6
0040060 6 : 1 0 1 6 4 0 2 6 4 5
0040100 5 [ f v a r R E S E T V A R
0040120 S L S T \r n o n - s t a c k
0040140 b i n d i n g ] \r 5 4 4 7
0040160 0 : 5 4 3 7 2 4 0
0040200 1 [ f v a r F I L E o n
0040220 s t a c k ] \r 5 4 4 7 2 :
0040240 1 7 7 7 7 7 0
0040260 [ f v a r R E S E T Y n o
0040300 t l o o k e d u p ] \r 5
0040320 4 4 7 4 : 5 4 3 7 6
0040340 4 0 1 [ f v a r P R I N T
0040360 F L G o n s t a c k ] \r
0040400 5 4 4 7 6 : 1 4 1 1 6
0040420 6 0 1 4 [ f v a r \r * O
0040440 L D - I N T E R L I S P - R E A
0040460 D - E N V I R O N M E N T *
0040500 t o p v a l u e ] \r 5 4 5
0040520 0 0 : 1 7 5 7 0 6 0
0040540 1 4 [ f v a r P R E T T Y H
0040560 E A D E R t o p v a l u e
0040600 ] \r 5 4 5 0 2 : 1 7 7 7
0040620 7 7 5 4 4 2 6 [ p a d d i
0040640 n g ] \r 5 4 5 0 4 : 1 7
0040660 7 7 7 7 2 [ p a d
0040700 d i n g ] \r 5 4 5 0 6 :
0040720 0 3 7 [ p
0040740 a d d i n g ] \r 5 4 5 1 0 :
0040760 1 7 7 7 7 5 2
0041000 \r E R R O R S E T \r \r \r B a s i
0041020 c f r a m e a t 5 4 4
0041040 0 0 \r 5 4 3 7 2 :
0041060 0 1 0 0 6 2 6 F I L E
0041100 \r C L 247 247 { E R I S } < L I S P
0041120 C O R E > L I B R A R Y > D O -
0041140 T E S T . D C O M \r 5 4 3 7
0041160 4 : 0
0041200 0 L D F L G N I L \r 5 4
0041220 3 7 6 : 0
0041240 0 P R I N T F L G N I L
0041260 \r 5 4 4 0 0 : 1 0 0 0 0
0041300 0 5 4 3 7 2 \r \r F r a m e
0041320 x t n a t 5 4 4 0 2 ,
0041340 f r a m e n a m e = L O A
0041360 D \r 5 4 4 0 2 : 1 4 0 0
0041400 0 1 5 4 3 4 5 [ U S E =
0041420 1 , X , a l i n k ] \r
0041440 5 4 4 0 4 : 4 1 3 3 0
0041460 2 5 [ f n h e a d e r
0041500 ] \r 5 4 4 0 6 : 5 4 4
0041520 4 0 1 1 7 [ n e x t ,
0041540 p c ] \r 5 4 4 1 0 :
0041560 2 5 4 1 3 3 0 [ n a
0041600 m e t a b l e ] \r 5 4 4 1 2
0041620 : 5 4 4 0 0 5 4 3 4 4
0041640 [ b l i n k , c l i n k ] \r
0041660 5 4 4 1 4 : 5 4
0041700 1 2 2 6 2 2 L I S P X H I S
0041720 T ( ( & ) ( 7 5 " 2 / " )
0041740 \r " < n o t y e t e v a l
0041760 u a t e d > " * H I S T O R Y
0042000 * ( C L 247 247 R E D O 6 3 )
0042020 \r * L I S P X P R I N T * ( "
0042040 \r " & ) S I D E ( - 1 ) )
0042060 \r 5 4 4 1 6 :
0042100 0 0 R E S E T Y
0042120 N I L \r 5 4 4 2 0 :
0042140 0 0 R E S E
0042160 T Z N I L \r 5 4 4 2 2 :
0042200 5 4 1 0 4 4 0 1 [
0042220 f v a r L I S P X H I S T
0042240 o n s t a c k ] \r 5 4 4 2
0042260 4 : 1 0 1 6 4 0 2 6 4 5
0042300 5 [ f v a r R E S E T V A R
0042320 S L S T \r n o n - s t a c k
0042340 b i n d i n g ] \r 5 4 4 2
0042360 6 : 1 7 7 7 7 7 2 1 0
0042400 5 [ p a d d i n g ] \r 5 4
0042420 4 3 0 : 1 6
0042440 3 [ p a d d i n g ] \r
0042460 5 4 4 3 2 : 0
0042500 3 7 [ p a d d i n g ] \r
0042520 5 4 4 3 4 : 1 7 7 7 7 4
0042540 4 \r 5 4 4 3 6
0042560 : 0 0
0042600 N I L \r L O A D \r \r \r B a s i
0042620 c f r a m e a t 5 4 3
0042640 3 0 \r 5 4 3 2 4 :
0042660 5 4 1 6 5 4 6 4 * l o c a
0042700 l * ( L O A D ( Q U O T E
0042720 \r C L 247 247 { E R I S } < L I S P
0042740 C O R E > L I B R A R Y > D O -
0042760 T E S T . D C O M ) ) \r 5 4
0043000 3 2 6 : 0
0043020 0 * l o c a l * N I L \r
0043040 5 4 3 3 0 : 1 0 0 0 0 0
0043060 5 4 3 2 4 \r \r F r a m e
0043100 x t n a t 5 4 3 3 2 ,
0043120 f r a m e n a m e = C L 247 E
0043140 V A L \r 5 4 3 3 2 : 1 4
0043160 0 0 0 1 5 4 3 1 5 [ U S E
0043200 = 1 , X , a l i n k ] \r
0043220 5 4 3 3 4 : 1 1 3 0 4 4
0043240 3 0 [ f n h e a d
0043260 e r ] \r 5 4 3 3 6 : 5
0043300 4 3 7 2 3 5 7 [ n e x
0043320 t , p c ] \r 5 4 3 4 0 :
0043340 1 6 4 3 0 6 0 [
0043360 n a m e t a b l e ] \r 5 4 3
0043400 4 2 : 5 4 3 3 0 5 4 3
0043420 1 4 [ b l i n k , c l i n k
0043440 ] \r 5 4 3 4 4 :
0043460 5 4 1 6 5 4 6 4 * l o c a l
0043500 * ( L O A D ( Q U O T E \r
0043520 C L 247 247 { E R I S } < L I S P C
0043540 O R E > L I B R A R Y > D O - T
0043560 E S T . D C O M ) ) \r 5 4 3
0043600 4 6 : 0
0043620 0 * l o c a l * N I L \r
0043640 5 4 3 5 0 : 0
0043660 0 * l o c a l * N
0043700 I L \r 5 4 3 5 2 :
0043720 0 0 * l o c a
0043740 l * N I L \r 5 4 3 5 4 :
0043760 1 6 1 *
0044000 l o c a l * 1 \r 5 4 3 5 6
0044020 : 0 0
0044040 * l o c a l * N I L \r 5
0044060 4 3 6 0 : 1 6
0044100 0 * l o c a l * 0 \r
0044120 5 4 3 6 2 : 1 7 7 7 7 7
0044140 4 3 0 6 0 [ p a d d i n g ]
0044160 \r 5 4 3 6 4 : 1
0044200 6 1 7 7 7 7 7 [ p a d d i n
0044220 g ] \r 5 4 3 6 6 :
0044240 0 2 3 [ p a d d
0044260 i n g ] \r 5 4 3 7 0 : 1
0044300 7 7 7 7 0 1 4 \r C L
0044320 247 E V A L \r \r \r B a s i c f r
0044340 a m e a t 5 4 3 0 0 \r
0044360 5 4 2 7 4 : 5 4
0044400 1 7 2 6 4 2 T O D O ( ( L O
0044420 A D & ) ) \r 5 4 2 7 6 :
0044440 0 0 E
0044460 N V N I L \r 5 4 3 0 0 :
0044500 1 0 0 0 0 0 5 4 2 7 4 \r
0044520 \r F r a m e x t n a t
0044540 5 4 3 0 2 , f r a m e n a m
0044560 e = E V A L - I N P U T \r
0044600 5 4 3 0 2 : 1 4 0 0 0 1
0044620 5 4 1 5 3 [ U S E = 1 , X
0044640 , a l i n k ] \r 5 4 3 0
0044660 4 : 4 1 1 2 4 6
0044700 2 [ f n h e a d e r ] \r
0044720 5 4 3 0 6 : 5 4 3 2 4
0044740 2 3 0 [ n e x t , p c ]
0044760 \r 5 4 3 1 0 :
0045000 0 3 1 5 1 [ n a m e t a
0045020 b l e ] \r 5 4 3 1 2 :
0045040 5 4 3 0 0 5 4 1 5 2 [ b l
0045060 i n k , c l i n k ] \r 5 4
0045100 3 1 4 : 1 7 7 7 7 7
0045120 2 F N [ u n b o u n d ]
0045140 \r 5 4 3 1 6 : 1 7 7 7 7
0045160 7 2 1 3 6 2 C N T [ u n
0045200 b o u n d ] \r 5 4 3 2 0 :
0045220 6 5 0 2 0 [
0045240 p a d d i n g ] \r 5 4 3 2 2
0045260 : 0 2 7
0045300 [ p a d d i n g ] \r E V A L -
0045320 I N P U T \r \r \r B a s i c f r
0045340 a m e a t 5 4 1 3 6 \r
0045360 5 4 1 3 0 : 7 3
0045400 1 2 6 2 6 4 * l o c a l * (
0045420 C L 247 247 R E D O 6 3 ) \r 5
0045440 4 1 3 2 : 0
0045460 0 * l o c a l * N I L
0045500 \r 5 4 1 3 4 :
0045520 0 6 0 6 4 5 * l o c a l *
0045540 E V A L - I N P U T \r 5 4
0045560 1 3 6 : 1 0 0 0 0 0 5 4
0045600 1 3 0 \r \r F r a m e x t n
0045620 a t 5 4 1 4 0 , f r a m
0045640 e n a m e = D O - E V E N T
0045660 \r 5 4 1 4 0 : 1 4 0 0 0
0045700 1 5 4 1 0 3 [ U S E = 1
0045720 , X , a l i n k ] \r 5
0045740 4 1 4 2 : 0
0045760 3 5 [ f n h e a d e r ]
0046000 \r 5 4 1 4 4 : 5 4 2 7
0046020 4 6 7 7 [ n e x t ,
0046040 p c ] \r 5 4 1 4 6 :
0046060 0 1 7 [ n a m
0046100 e t a b l e ] \r 5 4 1 5 0 :
0046120 5 4 1 3 6 5 4 1 0 2
0046140 [ b l i n k , c l i n k ] \r
0046160 5 4 1 5 2 : 1 6
0046200 3 * l o c a l * 3
0046220 \r 5 4 1 5 4 : 7
0046240 3 1 2 6 2 6 4 * l o c a l *
0046260 ( C L 247 247 R E D O 6 3 ) \r
0046300 5 4 1 5 6 : 0
0046320 0 * l o c a l * N
0046340 I L \r 5 4 1 6 0 :
0046360 0 6 0 6 4 5 * l o c a
0046400 l * E V A L - I N P U T \r
0046420 5 4 1 6 2 : 6 2 1
0046440 5 6 0 0 6 * l o c a l * ( (
0046460 R E D O e x e c - R E D O 247
0046500 H I S T O R Y \r N I L ) ( U
0046520 N D O e x e c - U N D O 247 E
0046540 V A L N I L ) ( S H H e x
0046560 e c - S H H 247 Q U I E T N I
0046600 L \r ) ( R E M E M B E R e x
0046620 e c - R E M E M B E R 247 E V A
0046640 L N I L ) ( P L e x e c -
0046660 P L 247 E V A L \r N I L ) (
0046700 P B e x e c - P B 247 E V A L
0046720 N I L ) ( N D I R e x e c
0046740 - N D I R 247 E V A L N I L )
0046760 ( \r F I X e x e c - F I X
0047000 247 H I S T O R Y N I L ) ( D
0047020 O - E V E N T S e x e c - D O
0047040 - E V E N T S \r 247 E V A L N
0047060 I L ) ( D I R e x e c - D I
0047100 R 247 E V A L N I L ) - - )
0047120 \r 5 4 1 6 4 : 6
0047140 2 1 5 5 5 4 2 * l o c a l *
0047160 ( R E D O e x e c - R E D O
0047200 247 H I S T O R Y \r N I L ) \r
0047220 5 4 1 6 6 : 5 4
0047240 1 2 4 0 3 6 * l o c a l *
0047260 ( * H I S T O R Y * ( C L 247 247
0047300 R E D O 6 3 ) \r * L I S P X
0047320 P R I N T * ( " \r " & ) S
0047340 I D E ( - 1 ) ) \r 5 4 1 7
0047360 0 : 5 4 1 2 2 6 2
0047400 2 * l o c a l * ( ( & ) (
0047420 7 5 " 2 / " ) \r " < n o t
0047440 y e t e v a l u a t e d > "
0047460 * H I S T O R Y * ( C L 247 247 R
0047500 E D O 6 3 ) \r * L I S P X P
0047520 R I N T * ( " \r " & ) S I
0047540 D E ( - 1 ) ) \r 5 4 1 7 2
0047560 : 0 6 0 7 2 2
0047600 * l o c a l * 247 H I S T O R
0047620 Y \r 5 4 1 7 4 :
0047640 0 0 * l o c a l
0047660 * N I L \r 5 4 1 7 6 :
0047700 0 0 * l
0047720 o c a l * N I L \r 5 4 2 0
0047740 0 : 5 4 1 7 2 6 4
0047760 2 * l o c a l * ( ( L O A D
0050000 & ) ) \r 5 4 2 0 2 :
0050020 5 4 1 7 2 6 4 2 * l o
0050040 c a l * ( ( L O A D & ) ) \r
0050060 5 4 2 0 4 : 0
0050100 0 * l o c a l *
0050120 N I L \r 5 4 2 0 6 :
0050140 6 7 2 1 3 6 2 H E L P
0050160 C L O C K 6 1 9 1 7 6 8 2 7 \r
0050200 5 4 2 1 0 : 0
0050220 0 * l o c a l *
0050240 N I L \r 5 4 2 1 2 : 5
0050260 3 5 2 4 4 0 1 [ f v a
0050300 r * C U R R E N T - E V E N T
0050320 * o n s t a c k ] \r 5
0050340 4 2 1 4 : 1 4 1 5 4 6
0050360 6 0 1 4 [ f v a r * E X E C
0050400 - F O N T S * t o p v a l
0050420 u e ] \r 5 4 2 1 6 : 1 7
0050440 7 7 7 7 1 7 7 4 0 0 [ f v a
0050460 r I T n o t l o o k e d
0050500 u p ] \r 5 4 2 2 0 :
0050520 5 3 5 3 6 4 0 1 [ f v
0050540 a r C L 247 + + o n s t a
0050560 c k ] \r 5 4 2 2 2 : 5
0050600 3 5 3 4 4 0 1 [ f v a
0050620 r + o n s t a c k ] \r
0050640 5 4 2 2 4 : 5 3 5 4 2
0050660 4 0 1 [ f v a r -
0050700 o n s t a c k ] \r 5 4 2 2
0050720 6 : 1 7 7 7 7 7 1
0050740 5 [ f v a r C L 247 / / n
0050760 o t l o o k e d u p ] \r
0051000 5 4 2 3 0 : 1 7 7 7 7 7
0051020 4 0 1 [ f v a r / n
0051040 o t l o o k e d u p ] \r
0051060 5 4 2 3 2 : 1 7 7 7 7 7
0051100 0 [ f v a r C L 247 *
0051120 * n o t l o o k e d u p
0051140 ] \r 5 4 2 3 4 : 1 7 7 7
0051160 7 7 2 7 [ f v a r
0051200 C L 247 * n o t l o o k e d
0051220 u p ] \r 5 4 2 3 6 :
0051240 5 3 5 1 4 4 0 1 [ f v
0051260 a r * T H I S - E X E C - C O
0051300 M M A N D S * \r o n s t a
0051320 c k ] \r 5 4 2 4 0 : 1 4
0051340 1 5 5 2 6 0 1 4 [ f v a
0051360 r E X E C - C O M M A N D S
0051400 t o p v a l u e ] \r 5 4
0051420 2 4 2 : 1 7 7 7 7 7
0051440 2 [ f v a r C L 247 * * *
0051460 n o t l o o k e d u p ]
0051500 \r 5 4 2 4 4 : 1 7 6 3
0051520 6 6 0 1 4 [ f v a r A
0051540 D D S P E L L F L G t o p
0051560 v a l u e ] \r 5 4 2 4 6 :
0051600 5 4 1 0 4 4 0 1 [
0051620 f v a r L I S P X H I S T
0051640 o n s t a c k ] \r 5 4 2 5
0051660 0 : 5 3 5 4 0 4 0
0051700 1 [ f v a r C L 247 + + +
0051720 o n s t a c k ] \r 5 4 2 5
0051740 2 : 1 7 7 7 7 7 2
0051760 3 [ f v a r C L 247 / / /
0052000 n o t l o o k e d u p ] \r
0052020 5 4 2 5 4 : 1 7 7 7 7 7
0052040 6 2 [ p a d d i n g ]
0052060 \r 5 4 2 5 6 : 5 4 2 7
0052100 6 7 4 [ p a d d i n
0052120 g ] \r 5 4 2 6 0 :
0052140 0 6 3 [ p a d d
0052160 i n g ] \r 5 4 2 6 2 : 1
0052200 7 7 7 7 6 0 \r
0052220 5 4 2 6 4 : 1 7 7 7 6 5
0052240 2 4 \r 5 4 2 6 6 :
0052260 1 7 7 7 7 4 3 2 \r
0052300 5 4 2 7 0 : 1 7 7 7 7 5
0052320 3 6 \r 5 4 2 7 2
0052340 : 5 4 1 6 5 4 6 4
0052360 ( L O A D ( Q U O T E \r C
0052400 L 247 247 { E R I S } < L I S P C O
0052420 R E > L I B R A R Y > D O - T E
0052440 S T . D C O M ) ) \r D O - E V E
0052460 N T \r \r \r B a s i c f r a m e
0052500 a t 5 4 0 6 6 \r 5 4
0052520 0 6 2 : 6 2 3 5
0052540 1 1 0 * l o c a l * ( \r C M
0052560 L E X E C A 0 0 0 2 A 0 0 0 3 A
0052600 0 0 0 4 A 0 0 0 5 ) \r 5 4 0
0052620 6 4 : 0 1 5
0052640 1 2 * l o c a l * I N T E R
0052660 N A L \r 5 4 0 6 6 : 1 0
0052700 0 0 0 0 5 4 0 6 2 \r \r F r
0052720 a m e x t n a t 5 4 0
0052740 7 0 , f r a m e n a m e =
0052760 E R R O R S E T \r 5 4 0 7 0
0053000 : 1 4 0 0 0 1 5 4 0 1 5
0053020 [ U S E = 1 , X , a l
0053040 i n k ] \r 5 4 0 7 2 :
0053060 7 0 4 0 0 6 2 [ f n
0053100 h e a d e r ] \r 5 4 0 7 4
0053120 : 5 4 1 3 0 1 2 5
0053140 [ n e x t , p c ] \r 5 4
0053160 0 7 6 : 1 7 7 7 7 7 3 3
0053200 4 4 4 [ n a m e t a b l e ] \r
0053220 5 4 1 0 0 : 5 4 0 6 6
0053240 5 4 0 1 4 [ b l i n k ,
0053260 c l i n k ] \r 5 4 1 0 2 :
0053300 7 3 1 2 6 2 6 4 *
0053320 l o c a l * ( C L 247 247 R E D O
0053340 6 3 ) \r 5 4 1 0 4 :
0053360 5 4 1 2 2 6 2 2 L I S
0053400 P X H I S T ( ( & ) ( 7 5
0053420 " 2 / " ) \r " < n o t y e t
0053440 e v a l u a t e d > " * H I
0053460 S T O R Y * ( C L 247 247 R E D O
0053500 6 3 ) \r * L I S P X P R I N
0053520 T * ( " \r " & ) S I D E
0053540 ( - 1 ) ) \r 5 4 1 0 6 :
0053560 1 6 0 H E
0053600 L P C L O C K 0 \r 5 4 1 1
0053620 0 : 5 4 0 1 4 4 0
0053640 1 [ f v a r L I S P X H I S
0053660 T o n s t a c k ] \r 5
0053700 4 1 1 2 : 5 3 2 4 2
0053720 4 0 1 [ f v a r E N V I R
0053740 O N M E N T o n s t a c k
0053760 ] \r 5 4 1 1 4 : 5 3 2
0054000 7 0 4 0 1 [ f v a r
0054020 F U N C T I O N o n s t a
0054040 c k ] \r 5 4 1 1 6 : 1 7
0054060 7 7 7 7 2 5 [ f v a
0054100 r R E S E T Y n o t l o
0054120 o k e d u p ] \r 5 4 1 2 0
0054140 : 1 7 7 7 7 7 2 0 5
0054160 [ p a d d i n g ] \r 5 4 1
0054200 2 2 : 6 3 3 3 4
0054220 4 4 [ p a d d i n g ] \r 5
0054240 4 1 2 4 : 0
0054260 3 3 [ p a d d i n g ] \r
0054300 5 4 1 2 6 : 1 7 7 7 7 4
0054320 4 \r E R R O R S E T
0054340 \r \r \r B a s i c f r a m e a
0054360 t 5 4 0 0 0 \r 5 4 0 0
0054400 0 : 1 0 0 0 0 0 5 4 0 0
0054420 0 \r \r F r a m e x t n a t
0054440 5 4 0 0 2 , f r a m e
0054460 n a m e = C M L E X E C A 0 0
0054500 0 2 A 0 0 0 3 A 0 0 0 4 \r 5
0054520 4 0 0 2 : 1 4 0 0 0 1 5
0054540 3 7 3 3 [ U S E = 1 , X ,
0054560 a l i n k ] \r 5 4 0 0 4
0054600 : 7 6 3 0 0 6 2
0054620 [ f n h e a d e r ] \r 5
0054640 4 0 0 6 : 5 4 0 6 2
0054660 1 5 5 [ n e x t , p c ] \r
0054700 5 4 0 1 0 : 1 7 7 7 7 2
0054720 1 0 [ n a m e t a b
0054740 l e ] \r 5 4 0 1 2 : 5
0054760 4 0 0 0 5 3 7 3 2 [ b l i
0055000 n k , c l i n k ] \r 5 4 0
0055020 1 4 : 0
0055040 0 L I S P X H I S T N I L
0055060 \r 5 4 0 1 6 :
0055100 0 0 R E S E T Y
0055120 N I L \r 5 4 0 2 0 :
0055140 0 0 * l o c
0055160 a l * N I L \r 5 4 0 2 2 :
0055200 5 3 5 1 2 4 0 1
0055220 [ f v a r O U T P U T o n
0055240 s t a c k ] \r 5 4 0 2 4 :
0055260 3 3 1 0 2 6 0 1 4
0055300 [ f v a r L I S P X H I S T O
0055320 R Y t o p v a l u e ] \r
0055340 5 4 0 2 6 : 5 3 5 2 0
0055360 4 0 1 [ f v a r * E X
0055400 E C - I D * o n s t a c k
0055420 ] \r 5 4 0 3 0 : 5 1
0055440 3 6 6 0 1 4 [ f v a r
0055460 L I S P X H I S T t o p v
0055500 a l u e ] \r 5 4 0 3 2 :
0055520 5 3 2 5 6 4 0 1 [ f
0055540 v a r T O P - L E V E L - P
0055560 o n s t a c k ] \r 5 4 0
0055600 3 4 : 5 3 5 2 4 4
0055620 0 1 [ f v a r * C U R R E N
0055640 T - E V E N T * o n s t a
0055660 c k ] \r 5 4 0 3 6 : 5
0055700 3 2 2 6 4 0 1 [ f v a
0055720 r P R O M P T o n s t a
0055740 c k ] \r 5 4 0 4 0 : 1 0
0055760 1 6 4 0 2 6 4 5 5 [ f v a
0056000 r R E S E T V A R S L S T \r
0056020 n o n - s t a c k b i n d i
0056040 n g ] \r 5 4 0 4 2 : 1 4
0056060 1 5 4 6 6 0 1 4 [ f v a
0056100 r * E X E C - F O N T S *
0056120 t o p v a l u e ] \r 5 4 0
0056140 4 4 : 6 3 3 7 1
0056160 3 0 [ p a d d i n g ] \r 5
0056200 4 0 4 6 : 0
0056220 3 7 [ p a d d i n g ] \r
0056240 5 4 0 5 0 : 5 4
0056260 1 2 2 6 2 2 ( ( & ) ( 7 5
0056300 " 2 / " ) \r " < n o t y e t
0056320 e v a l u a t e d > " * H I
0056340 S T O R Y * ( C L 247 247 R E D O
0056360 6 3 ) \r * L I S P X P R I N
0056400 T * ( " \r " & ) S I D E
0056420 ( - 1 ) ) \r 5 4 0 5 2 :
0056440 0 1 1 4 T \r
0056460 5 4 0 5 4 : 7 5
0056500 1 3 4 1 0 { F O N T D E S
0056520 C R I P T O R } # 7 5 , 1 3 4 1
0056540 0 \r 5 4 0 5 6 : 1 7 7 7
0056560 7 4 4 \r 5 4 0
0056600 6 0 : 0
0056620 0 N I L \r C M L E X E C A 0
0056640 0 0 2 A 0 0 0 3 A 0 0 0 4 \r \r \r
0056660 B a s i c f r a m e a t
0056700 5 3 7 1 6 \r 5 3 7 0 2 :
0056720 1 6 1 1 *
0056740 l o c a l * 9 \r 5 3 7 0 4
0056760 : 1 6 0
0057000 * l o c a l * 0 \r 5 3 7
0057020 0 6 : 1 6
0057040 4 * l o c a l * 4 \r 5
0057060 3 7 1 0 : 0 6
0057100 0 6 7 7 * l o c a l * C M L
0057120 E X E C A 0 0 0 2 A 0 0 0 3 A 0
0057140 0 0 4 \r 5 3 7 1 2 :
0057160 0 0 * l o c
0057200 a l * N I L \r 5 3 7 1 4 :
0057220 5 4 1 2 2 4 0 2
0057240 * l o c a l * ( ( O L D - I N
0057260 T E R L I S P - E R R O R 1 7
0057300 & ) ) \r 5 3 7 1 6 : 1
0057320 0 0 0 0 0 5 3 7 0 2 \r \r F
0057340 r a m e x t n a t 5 3
0057360 7 2 0 , f r a m e n a m e =
0057400 \r \ D O . P R O G V . S E T U
0057420 P . F R A M E . A N D . E X E C
0057440 U T E \r 5 3 7 2 0 : 1 4
0057460 0 0 0 1 5 3 6 4 3 [ U S E
0057500 = 1 , X , a l i n k ] \r
0057520 5 3 7 2 2 : 1 1 4 6 6 4
0057540 3 0 [ f n h e a d
0057560 e r ] \r 5 3 7 2 4 : 5
0057600 4 0 0 0 3 3 2 [ n e x
0057620 t , p c ] \r 5 3 7 2 6 :
0057640 2 1 1 3 0 4 [
0057660 n a m e t a b l e ] \r 5 3 7
0057700 3 0 : 5 3 7 1 6 5 3 6
0057720 4 2 [ b l i n k , c l i n k
0057740 ] \r 5 3 7 3 2 :
0057760 1 6 5 3 6 3 0 * l o c a l
0060000 * 2 2 4 2 4 \r 5 3 7 3 4 :
0060020 1 6 5 3 6 6 0
0060040 * l o c a l * 2 2 4 4 8 \r
0060060 5 3 7 3 6 : 1
0060100 5 3 6 6 0 * l o c a l * { }
0060120 # 1 , 5 3 6 6 0 \r 5 3 7 4 0
0060140 : 1 6 1
0060160 * l o c a l * 1 \r 5 3 7
0060200 4 2 : 1 7 7 7 7 7
0060220 0 * l o c a l * [ u n b o
0060240 u n d ] \r 5 3 7 4 4 : 1
0060260 7 7 7 7 7 7 * l o
0060300 c a l * [ u n b o u n d ] \r
0060320 5 3 7 4 6 : 1 7 7 7 7 7
0060340 1 0 * l o c a l * [
0060360 u n b o u n d ] \r 5 3 7 5 0
0060400 : 1 7 7 7 7 7 1 4
0060420 * l o c a l * [ u n b o u n
0060440 d ] \r 5 3 7 5 2 : 1 7 7
0060460 7 7 7 5 3 6 6 0 * l o c a
0060500 l * [ u n b o u n d ] \r 5
0060520 3 7 5 4 : 1 7 7 7 7 7
0060540 0 * l o c a l * [ u n
0060560 b o u n d ] \r 5 3 7 5 6 :
0060600 1 7 7 7 7 7 0 \
0060620 I N T E R R U P T A B L E [ u
0060640 n b o u n d ] \r 5 3 7 6 0 :
0060660 1 7 7 7 7 7 0
0060700 \ I N T E R R U P T A B L E [
0060720 u n b o u n d ] \r 5 3 7 6 2
0060740 : 5 7 6 5 7 5 4
0060760 [ p a d d i n g ] \r 5 3 7
0061000 6 4 : 0
0061020 3 7 [ p a d d i n g ] \r 5
0061040 3 7 6 6 : 1 7 7 7 7 3
0061060 6 \r 5 3 7 7 0 :
0061100 7 3 1 7 3 6 1 0 { \
0061120 C O D E H U N K 2 8 } # 7 3 , 1
0061140 7 3 6 1 0 \r 5 3 7 7 2 :
0061160 1 5 3 6 6 0 { }
0061200 # 1 , 5 3 6 6 0 \r 5 3 7 7 4
0061220 : 1 5 3 6 6 0
0061240 { } # 1 , 5 3 6 6 0 \r 5 3
0061260 7 7 6 : 0
0061300 1 1 4 T \r \ D O . P R O G V .
0061320 S E T U P . F R A M E . A N D .
0061340 E X E C U T E \r \r \r B a s i c
0061360 f r a m e a t 5 3 6 2 6
0061400 \r 5 3 6 2 0 :
0061420 0 0 * l o c a l *
0061440 N I L \r 5 3 6 2 2 :
0061460 5 4 1 2 2 4 0 2 * l o
0061500 c a l * ( ( O L D - I N T E R
0061520 L I S P - E R R O R 1 7 & )
0061540 ) \r 5 3 6 2 4 :
0061560 0 6 0 6 7 7 * l o c a l
0061600 * C M L E X E C A 0 0 0 2 A 0
0061620 0 0 3 A 0 0 0 4 \r 5 3 6 2 6
0061640 : 1 0 0 0 0 0 5 3 6 2 0
0061660 \r \r F r a m e x t n a t
0061700 5 3 6 3 0 , f r a m e n
0061720 a m e = \ P R O G V \r 5 3
0061740 6 3 0 : 1 4 1 0 0 1 5 3
0061760 6 1 1 [ V , U S E = 1 ,
0062000 X , a l i n k ] \r 5 3 6
0062020 3 2 : 1 7 3 6 1 0
0062040 7 3 [ f n h e a d e r ] \r
0062060 5 3 6 3 4 : 5 3 7 0 2
0062100 1 3 7 [ n e x t , p c
0062120 ] \r 5 3 6 3 6 : 5 3 6
0062140 6 0 4 0 1 [ n a m e t
0062160 a b l e ] \r 5 3 6 4 0 :
0062200 5 3 6 2 6 5 3 6 1 0 [ b
0062220 l i n k , c l i n k ] \r 5
0062240 3 6 4 2 : 1 6
0062260 0 [ p a d d i n g ] \r
0062300 5 3 6 4 4 : 1 6
0062320 4 [ p a d d i n g ]
0062340 \r 5 3 6 4 6 : 1
0062360 6 1 1 [ p a d d i n
0062400 g ] \r 5 3 6 5 0 : 1 7 7
0062420 7 7 7 1 0 1 2 0 [ p a d d
0062440 i n g ] \r 5 3 6 5 2 : 1
0062460 7 7 7 7 7 0 [ p a
0062500 d d i n g ] \r 5 3 6 5 4 :
0062520 0 2 3 [
0062540 p a d d i n g ] \r 5 3 6 5 6
0062560 : 1 7 7 7 7 4 4
0062600 \r 5 3 6 6 0 :
0062620 0 0 N I L \r
0062640 5 3 6 6 2 : 0
0062660 0 N I L \r 5 3 6 6
0062700 4 : 0 2 3 0 3
0062720 4 \ P R O G V \r 5 3 6 6 6
0062740 : 4 0
0062760 { } # 4 , 0 \r 5 3 6 7 0 :
0063000 0 0
0063020 N I L \r 5 3 6 7 2 :
0063040 0 0 N I L \r
0063060 5 3 6 7 4 : 0
0063100 0 N I L \r 5 3
0063120 6 7 6 : 0
0063140 0 N I L \r 5 3 7 0 0 :
0063160 0 0
0063200 N I L \r \ P R O G V \r \r \r B a s
0063220 i c f r a m e a t 5 3
0063240 5 7 4 \r 5 3 5 7 0 :
0063260 6 2 3 7 2 7 6 * l o c
0063300 a l * ( C M L E X E C A 0 0 0
0063320 2 A 0 0 0 3 ) \r 5 3 5 7 2 :
0063340 0 1 1 4
0063360 * l o c a l * T \r 5 3 5 7
0063400 4 : 1 0 0 0 0 0 5 3 5 7
0063420 0 \r \r F r a m e x t n a t
0063440 5 3 5 7 6 , f r a m e
0063460 n a m e = E R R O R S E T \r
0063500 5 3 5 7 6 : 1 4 0 0 0 1
0063520 5 3 5 1 0 [ U S E = 1 ,
0063540 a l i n k ] \r 5 3 6 0 0 :
0063560 4 2 2 4 0 6 2
0063600 [ f n h e a d e r ] \r 5 3
0063620 6 0 2 : 5 3 6 2 0
0063640 6 4 [ n e x t , p c ] \r
0063660 5 3 6 0 4 : 0
0063700 7 7 2 3 4 [ n a m e t a b l
0063720 e ] \r 5 3 6 0 6 : 5 3
0063740 5 7 4 5 3 5 1 0 [ b l i n
0063760 k , c l i n k ] \r 5 3 6 1
0064000 0 : 5 3 2 5 6 4 0
0064020 1 [ f v a r T O P - L E V E
0064040 L - P o n s t a c k ] \r
0064060 5 3 6 1 2 : 1 6 7 6 0
0064100 6 0 1 4 [ f v a r * L A
0064120 S T - C O N D I T I O N * \r
0064140 t o p v a l u e ] \r 5 3 6
0064160 1 4 : 1 7 7 7 7 5
0064200 2 [ p a d d i n g ] \r 5
0064220 3 6 1 6 : 0
0064240 1 7 [ p a d d i n g ] \r E
0064260 R R O R S E T \r \r \r B a s i c
0064300 f r a m e a t 5 3 4 7 4
0064320 \r 5 3 4 7 4 : 1 0 0 0 0
0064340 0 5 3 4 7 4 \r \r F r a m e
0064360 x t n a t 5 3 4 7 6 ,
0064400 f r a m e n a m e = C M L
0064420 E X E C A 0 0 0 2 \r 5 3 4 7
0064440 6 : 1 4 0 0 0 1 5 3 4 2
0064460 6 [ U S E = 1 , a l i n
0064500 k ] \r 5 3 5 0 0 : 4 0
0064520 2 2 0 6 2 [ f n h
0064540 e a d e r ] \r 5 3 5 0 2 :
0064560 5 3 5 7 0 2 0 0 [
0064600 n e x t , p c ] \r 5 3 5 0
0064620 4 : 0
0064640 0 [ n a m e t a b l e ] \r
0064660 5 3 5 0 6 : 0
0064700 0 [ b l i n k , c l
0064720 i n k ] \r 5 3 5 1 0 :
0064740 0 2 2 5 5 3 * C U
0064760 R R E N T - E X E C U T I V E -
0065000 T Y P E * \r C O M M O N - L I
0065020 S P \r 5 3 5 1 2 :
0065040 6 0 1 6 6 4 0 O U T P U
0065060 T | < O u t p u t S t r e a
0065100 m 6 0 , 1 6 6 4 0 > \r 5 3
0065120 5 1 4 : 0
0065140 0 * T H I S - E X E C - C
0065160 O M M A N D S * N I L \r 5
0065200 3 5 1 6 : 7 5 6
0065220 6 6 5 6 * R E A D T A B L E *
0065240 \r | < R e a d T a b l e L I
0065260 S P / 7 5 , 6 6 6 5 6 > \r 5
0065300 3 5 2 0 : 6 3 3
0065320 3 4 4 4 * E X E C - I D * "
0065340 2 / " \r 5 3 5 2 2 :
0065360 0 0 # R P A
0065400 R S N I L \r 5 3 5 2 4 :
0065420 5 4 1 2 2 6 2 2 *
0065440 C U R R E N T - E V E N T * (
0065460 ( & ) ( 7 5 " 2 / " ) \r "
0065500 < n o t y e t e v a l u a t
0065520 e d > " * H I S T O R Y * (
0065540 C L 247 247 R E D O 6 3 ) \r * L
0065560 I S P X P R I N T * ( " \r "
0065600 & ) S I D E ( - 1 ) ) \r
0065620 5 3 5 2 6 : 7 4 1
0065640 7 5 7 1 6 C L 247 * # < P a c
0065660 k a g e L I S P > \r 5 3 5
0065700 3 0 : 5 5 1 6 4 6
0065720 7 4 C L 247 * * " 2 1 - O c t
0065740 - 8 6 0 4 : 4 8 : 4 3 " \r
0065760 5 3 5 3 2 : 5 3 1
0066000 7 3 4 1 4 C L 247 * * * ( # <
0066020 P a c k a g e F A S L > # <
0066040 P a c k a g e U S E R > # <
0066060 P a c k a g e K E Y W O R D >
0066100 # < P a c k a g e X C L - T
0066120 E S T > # < P a c k a g e S
0066140 Y S T E M > # < P a c k a g e
0066160 L I S P > # < P a c k a g e
0066200 C O M P I L E R > # < P a c
0066220 k a g e I N T E R L I S P >
0066240 # < P a c k a g e X E R O X -
0066260 C O M M O N - L I S P > ) \r
0066300 5 3 5 3 4 : 5 4 1
0066320 6 5 5 5 6 + ( C L 247 I N - P
0066340 A C K A G E ( Q U O T E L I
0066360 S P ) ) \r 5 3 5 3 6 :
0066400 0 6 5 4 1 C L 247
0066420 + + M A K E S Y S D A T E \r
0066440 5 3 5 4 0 : 5 3
0066460 1 7 3 4 3 0 C L 247 + + + ( C
0066500 L 247 L I S T - A L L - P A C K A
0066520 G E S ) \r 5 3 5 4 2 :
0066540 5 4 1 6 5 4 6 4 - (
0066560 L O A D ( Q U O T E \r C L 247
0066600 247 { E R I S } < L I S P C O R E
0066620 > L I B R A R Y > D O - T E S T
0066640 . D C O M ) ) \r 5 3 5 4 4 :
0066660 7 3 1 2 2 4 5 0
0066700 / ( # < P a c k a g e L I S
0066720 P > ) \r 5 3 5 4 6 :
0066740 5 4 1 2 2 4 6 0 C L 247 /
0066760 / ( " 2 1 - O c t - 8 6 0 4
0067000 : 4 8 : 4 3 " ) \r 5 3 5 5 0
0067020 : 5 3 1 7 3 4 1 2
0067040 C L 247 / / / ( ( # < P a c k
0067060 a g e F A S L > # < P a c k
0067100 a g e U S E R > # < P a c k
0067120 a g e K E Y W O R D > # < P
0067140 a c k a g e X C L - T E S T >
0067160 # < P a c k a g e S Y S T E
0067200 M > # < P a c k a g e L I S
0067220 P > # < P a c k a g e C O M
0067240 P I L E R > # < P a c k a g e
0067260 I N T E R L I S P > # < P a
0067300 c k a g e X E R O X - C O M M
0067320 O N - L I S P > ) ) \r 5 3 5
0067340 5 2 : 5 3 2 3 4 4
0067360 0 1 [ f v a r C O M M A N D
0067400 S o n s t a c k ] \r 5
0067420 3 5 5 4 : 5 3 2 5 0
0067440 4 0 1 [ f v a r R E A D T
0067460 A B L E o n s t a c k ] \r
0067500 5 3 5 5 6 : 1 7 7 7 7 7
0067520 1 1 [ p a d d i n g
0067540 ] \r 5 3 5 6 0 : 1 0 0 0
0067560 0 0 5 3 5 5 0 [ p a d d i
0067600 n g ] \r 5 3 5 6 2 :
0067620 0 5 7 [ p a d
0067640 d i n g ] \r 5 3 5 6 4 :
0067660 1 7 7 7 5 6 4 0 \r
0067700 5 3 5 6 6 : 6 3
0067720 3 3 4 4 4 " 2 / " \r C M L E
0067740 X E C A 0 0 0 2 \r \r \r B a s i c
0067760 f r a m e a t 5 3 4 1
0070000 2 \r 5 3 3 7 6 :
0070020 1 6 1 2 * l o c a l
0070040 * 1 0 \r 5 3 4 0 0 :
0070060 1 6 1 * l o
0070100 c a l * 1 \r 5 3 4 0 2 :
0070120 1 6 4 *
0070140 l o c a l * 4 \r 5 3 4 0 4
0070160 : 0 6 0 7 0 4
0070200 * l o c a l * C M L E X E C
0070220 A 0 0 0 2 \r 5 3 4 0 6 :
0070240 5 6 4 1 6 2 6 * l
0070260 o c a l * ( * P A C K A G E *
0070300 ) \r 5 3 4 1 0 :
0070320 0 0 * l o c a l
0070340 * N I L \r 5 3 4 1 2 :
0070360 1 0 0 0 0 0 5 3 3 7 6 \r \r
0070400 F r a m e x t n a t 5
0070420 3 4 1 4 , f r a m e n a m e
0070440 = \r \ D O . P R O G V . S E T
0070460 U P . F R A M E . A N D . E X E
0070500 C U T E \r 5 3 4 1 4 : 1
0070520 4 0 0 0 1 5 3 3 3 4 [ U S
0070540 E = 1 , a l i n k ] \r
0070560 5 3 4 1 6 : 1 1 4 6 6 4
0070600 3 0 [ f n h e a d e r
0070620 ] \r 5 3 4 2 0 : 5 3 4
0070640 7 4 3 3 2 [ n e x t ,
0070660 p c ] \r 5 3 4 2 2 :
0070700 7 4 1 7 5 7 4 4 [ n a
0070720 m e t a b l e ] \r 5 3 4 2 4
0070740 : 0 2 3
0070760 [ b l i n k , c l i n k ] \r
0071000 5 3 4 2 6 : 1 6
0071020 5 3 3 2 2 * l o c a l *
0071040 2 2 2 2 6 \r 5 3 4 3 0 :
0071060 1 6 5 3 3 5 2 * l
0071100 o c a l * 2 2 2 5 0 \r 5 3
0071120 4 3 2 : 1 5 3
0071140 3 5 4 * l o c a l * { } # 1
0071160 , 5 3 3 5 4 \r 5 3 4 3 4 :
0071200 1 6 1 *
0071220 l o c a l * 1 \r 5 3 4 3 6
0071240 : 1 7 7 7 7 7 0
0071260 * l o c a l * [ u n b o u n
0071300 d ] \r 5 3 4 4 0 : 1 7 7
0071320 7 7 7 1 0 * l o c a
0071340 l * [ u n b o u n d ] \r 5
0071360 3 4 4 2 : 1 7 7 7 7 7
0071400 1 1 * l o c a l * [ u n
0071420 b o u n d ] \r 5 3 4 4 4 :
0071440 1 7 7 7 7 7 1 5 *
0071460 l o c a l * [ u n b o u n d ]
0071500 \r 5 3 4 4 6 : 1 7 7 7 7
0071520 7 5 3 3 5 4 * l o c a l *
0071540 [ u n b o u n d ] \r 5 3 4
0071560 5 0 : 1 7 7 7 7 7 4 3
0071600 5 5 * l o c a l * [ u n b o
0071620 u n d ] \r 5 3 4 5 2 : 1
0071640 7 7 7 7 7 0 \ I N
0071660 T E R R U P T A B L E [ u n b
0071700 o u n d ] \r 5 3 4 5 4 :
0071720 1 7 7 7 7 7 0 \ I
0071740 N T E R R U P T A B L E [ u n
0071760 b o u n d ] \r 5 3 4 5 6 :
0072000 1 0 0 0 0 0 5 3 4 4 6 [
0072020 p a d d i n g ] \r 5 3 4 6 0
0072040 : 0 3 7
0072060 [ p a d d i n g ] \r 5 3 4
0072100 6 2 : 1 7 7 7 7 3
0072120 6 \r 5 3 4 6 4 :
0072140 7 3 1 7 3 6 1 0 { \ C O
0072160 D E H U N K 2 8 } # 7 3 , 1 7 3
0072200 6 1 0 \r 5 3 4 6 6 :
0072220 1 5 3 3 5 4 { } # 1
0072240 , 5 3 3 5 4 \r 5 3 4 7 0 :
0072260 1 5 3 3 5 4 {
0072300 } # 1 , 5 3 3 5 4 \r 5 3 4 7
0072320 2 : 0 1 1
0072340 4 T \r \ D O . P R O G V . S E
0072360 T U P . F R A M E . A N D . E X
0072400 E C U T E \r \r \r B a s i c f r
0072420 a m e a t 5 3 3 2 0 \r
0072440 5 3 3 1 2 : 5 6
0072460 4 1 6 2 6 * l o c a l * (
0072500 * P A C K A G E * ) \r 5 3 3
0072520 1 4 : 6 7 4 7 3
0072540 7 4 * l o c a l * ( # < P a
0072560 c k a g e I N T E R L I S P >
0072600 ) \r 5 3 3 1 6 :
0072620 0 6 0 7 0 4 * l o c a l
0072640 * C M L E X E C A 0 0 0 2 \r
0072660 5 3 3 2 0 : 1 0 0 0 0 0
0072700 5 3 3 1 2 \r \r F r a m e x
0072720 t n a t 5 3 3 2 2 , f
0072740 r a m e n a m e = \ P R O G
0072760 V \r 5 3 3 2 2 : 1 4 1 0
0073000 0 1 5 3 2 2 0 [ V , U S
0073020 E = 1 , a l i n k ] \r
0073040 5 3 3 2 4 : 1 7 3 6 1 0
0073060 7 3 [ f n h e a d e r
0073100 ] \r 5 3 3 2 6 : 5 3 3
0073120 7 6 1 3 7 [ n e x t ,
0073140 p c ] \r 5 3 3 3 0 :
0073160 5 3 3 5 4 4 0 1 [ n a
0073200 m e t a b l e ] \r 5 3 3 3 2
0073220 : 1 6 2
0073240 [ b l i n k , c l i n k ] \r
0073260 5 3 3 3 4 : 1 6
0073300 1 [ p a d d i n g
0073320 ] \r 5 3 3 3 6 :
0073340 1 6 4 [ p a d d i
0073360 n g ] \r 5 3 3 4 0 :
0073400 1 6 1 2 [ p a d
0073420 d i n g ] \r 5 3 3 4 2 :
0073440 1 7 7 7 7 7 0 [ p
0073460 a d d i n g ] \r 5 3 3 4 4 :
0073500 1 7 7 7 7 7 2
0073520 [ p a d d i n g ] \r 5 3 3 4
0073540 6 : 0 2
0073560 3 [ p a d d i n g ] \r 5 3
0073600 3 5 0 : 1 7 7 7 7 4
0073620 4 \r 5 3 3 5 2 :
0073640 7 4 1 7 5 7 1 6 # < P
0073660 a c k a g e L I S P > \r 5
0073700 3 3 5 4 : 0
0073720 0 N I L \r 5 3 3 5 6
0073740 : 0 0
0073760 N I L \r 5 3 3 6 0 :
0074000 0 2 3 0 3 4 \ P R
0074020 O G V \r 5 3 3 6 2 :
0074040 4 0 { } # 4
0074060 , 0 \r 5 3 3 6 4 : 4
0074100 3 5 5 0 \r 5 3
0074120 3 6 6 : 0
0074140 0 N I L \r 5 3 3 7 0 :
0074160 1 0 0 0 0 7 0
0074200 \r 5 3 3 7 2 :
0074220 0 0 N I L \r 5
0074240 3 3 7 4 : 0
0074260 0 N I L \r \ P R O G V \r
0074300 \r \r B a s i c f r a m e a t
0074320 5 3 2 0 4 \r 5 3 2 0 0
0074340 : 0 3 6 4 7 6
0074360 * l o c a l * 247 T O P - L E
0074400 V E L - P \r 5 3 2 0 2 :
0074420 0 1 1 4 * l
0074440 o c a l * T \r 5 3 2 0 4 :
0074460 1 0 0 0 0 0 5 3 2 0 0
0074500 \r \r F r a m e x t n a t
0074520 5 3 2 0 6 , f r a m e n a
0074540 m e = C M L E X E C \r 5 3
0074560 2 0 6 : 1 4 0 0 0 1 5 3
0074600 1 5 0 [ U S E = 1 , a l
0074620 i n k ] \r 5 3 2 1 0 :
0074640 7 0 6 4 4 3 5 [ f n
0074660 h e a d e r ] \r 5 3 2 1 2
0074700 : 5 3 3 1 2 4 0 1
0074720 [ n e x t , p c ] \r 5 3
0074740 2 1 4 : 7 3 1 6 4
0074760 0 0 0 [ n a m e t a b l e ] \r
0075000 5 3 2 1 6 : 1 7 7 7 7 7
0075020 0 [ b l i n k ,
0075040 c l i n k ] \r 5 3 2 2 0 :
0075060 1 6 2 *
0075100 l o c a l * 2 \r 5 3 2 2 2
0075120 : 1 7 7 7 7 7 2
0075140 * l o c a l * [ u n b o u n
0075160 d ] \r 5 3 2 2 4 : 1 7 7
0075200 7 7 7 3 * l o c a
0075220 l * [ u n b o u n d ] \r 5
0075240 3 2 2 6 : 6 3 4
0075260 2 4 5 4 P R O M P T " > "
0075300 \r 5 3 2 3 0 : 1
0075320 6 2 * l o c a l *
0075340 2 \r 5 3 2 3 2 :
0075360 1 6 3 * l o c a
0075400 l * 3 \r 5 3 2 3 4 :
0075420 0 0 C O M
0075440 M A N D S N I L \r 5 3 2 3
0075460 6 : 1 6
0075500 2 * l o c a l * 2 \r 5 3
0075520 2 4 0 : 1 6
0075540 3 * l o c a l * 3 \r
0075560 5 3 2 4 2 : 0
0075600 0 E N V I R O N M E N
0075620 T N I L \r 5 3 2 4 4 :
0075640 1 6 2 * l
0075660 o c a l * 2 \r 5 3 2 4 6 :
0075700 1 6 3
0075720 * l o c a l * 3 \r 5 3 2 5
0075740 0 : 7 5 6 6 6 5
0075760 6 R E A D T A B L E \r | < R
0076000 e a d T a b l e L I S P / 7 5
0076020 , 6 6 6 5 6 > \r 5 3 2 5 2 :
0076040 1 6 2
0076060 * l o c a l * 2 \r 5 3 2 5
0076100 4 : 1 6
0076120 1 * l o c a l * 1 \r 5 3
0076140 2 5 6 : 0
0076160 1 1 4 T O P - L E V E L - P
0076200 T \r 5 3 2 6 0 :
0076220 1 6 2 * l o c a l
0076240 * 2 \r 5 3 2 6 2 :
0076260 1 6 3 * l o c
0076300 a l * 3 \r 5 3 2 6 4 :
0076320 1 6 2 * l
0076340 o c a l * 2 \r 5 3 2 6 6 :
0076360 1 6 3
0076400 * l o c a l * 3 \r 5 3 2 7
0076420 0 : 0 6 0 6 4
0076440 5 F U N C T I O N E V A L -
0076460 I N P U T \r 5 3 2 7 2 :
0076500 2 7 6 4 2 6 0 1 4 [ f
0076520 v a r * P E R - E X E C - V A
0076540 R I A B L E S * \r t o p v
0076560 a l u e ] \r 5 3 2 7 4 :
0076600 1 4 1 5 0 2 6 0 1 4 [ f
0076620 v a r C M L P R O M P T t
0076640 o p v a l u e ] \r 5 3 2 7
0076660 6 : 4 3 0 1 4 6 0 1
0076700 4 [ f v a r C M L R D T B L
0076720 t o p v a l u e ] \r 5
0076740 3 3 0 0 : 5 2 7 2 2
0076760 4 0 1 [ p a d d i n g ] \r
0077000 5 3 3 0 2 : 0
0077020 4 3 [ p a d d i n g ]
0077040 \r 5 3 3 0 4 : 1 7 7 7 7
0077060 6 0 \r 5 3 3 0
0077100 6 : 1 7 7 7 5 7 4
0077120 4 \r 5 3 3 1 0 : 1 7 7
0077140 7 7 5 5 0 \r C M L E
0077160 X E C \r \r \r B a s i c f r a m
0077200 e a t 5 3 1 3 4 \r 5
0077220 3 1 3 0 : 6 2 4
0077240 5 6 4 0 * F O R M * ( C M L
0077260 E X E C 247 T O P - L E V E L -
0077300 P T ) \r 5 3 1 3 2 :
0077320 0 6 0 5 7 0 * l o
0077340 c a l * C M L E X E C \r 5
0077360 3 1 3 4 : 1 0 0 0 0 0 5
0077400 3 1 3 0 \r \r F r a m e x t n
0077420 a t 5 3 1 3 6 , f r a
0077440 m e n a m e = \ E V A L F O
0077460 R M \r 5 3 1 3 6 : 1 4 0
0077500 0 0 1 5 3 1 1 6 [ U S E =
0077520 1 , a l i n k ] \r 5 3
0077540 1 4 0 : 1 3 3 2 5 4
0077560 2 3 [ f n h e a d e r ] \r
0077600 5 3 1 4 2 : 5 3 2 0 0
0077620 3 7 5 [ n e x t , p
0077640 c ] \r 5 3 1 4 4 : 1 2 0
0077660 0 0 0 2 4 [ n a m e
0077700 t a b l e ] \r 5 3 1 4 6 :
0077720 1 3 0 5 4 0 3 6 0 7 4 [
0077740 b l i n k , c l i n k ] \r
0077760 5 3 1 5 0 : 1 7 7 7 7 7
0100000 1 2 6 * l o c a l * [ u
0100020 n b o u n d ] \r 5 3 1 5 2 :
0100040 0 0
0100060 * A R G V A L * N I L \r 5
0100100 3 1 5 4 : 0
0100120 0 * T A I L * N I L \r
0100140 5 3 1 5 6 : 0
0100160 6 0 5 7 0 * F N * C M L
0100200 E X E C \r 5 3 1 6 0 : 1
0100220 7 7 7 7 7 3 6 0 7 4 * l o
0100240 c a l * [ u n b o u n d ] \r
0100260 5 3 1 6 2 : 1 7 7 7 7 7
0100300 1 7 7 7 7 7 * l o c a l * [
0100320 u n b o u n d ] \r 5 3 1 6 4
0100340 : 1 7 7 7 7 7 1 7 7 7 7 7
0100360 * l o c a l * [ u n b o u n
0100400 d ] \r 5 3 1 6 6 : 1 7 7
0100420 7 7 7 0 [ p a d d
0100440 i n g ] \r 5 3 1 7 0 : 1
0100460 2 0 0 0 0 4 [ p a
0100500 d d i n g ] \r 5 3 1 7 2 :
0100520 0 3 3 [
0100540 p a d d i n g ] \r 5 3 1 7 4
0100560 : 1 7 7 7 7 4 6
0100600 \r 5 3 1 7 6 :
0100620 0 3 4 3 3 * A R G V A
0100640 L * \r \ E V A L F O R M \r \r \r B
0100660 a s i c f r a m e a t
0100700 5 3 1 0 2 \r 5 3 1 0 0 :
0100720 6 6 3 1 1 5 4 * l
0100740 o c a l * ( ( T T Y D I S P L
0100760 A Y S T R E A M & ) ( \r C M
0101000 L E X E C 247 T O P - L E V E L
0101020 - P T ) ( \ P I C K . E V A
0101040 L Q T ) ) \r 5 3 1 0 2 :
0101060 1 0 0 0 0 0 5 3 1 0 0 \r \r
0101100 F r a m e x t n a t 5
0101120 3 1 0 4 , f r a m e n a m e
0101140 = P R O G N \r 5 3 1 0 4 :
0101160 1 4 0 0 0 1 5 3 0 5 3
0101200 [ U S E = 1 , X , a l i
0101220 n k ] \r 5 3 1 0 6 : 1 4
0101240 0 2 1 0 2 3 [ f n
0101260 h e a d e r ] \r 5 3 1 1 0 :
0101300 5 3 1 3 0 7 4
0101320 [ n e x t , p c ] \r 5 3 1
0101340 1 2 : 1 4 0 0 0 0 5 3 1
0101360 0 0 [ n a m e t a b l e ] \r
0101400 5 3 1 1 4 : 5 3 1 0 2
0101420 5 3 0 5 2 [ b l i n k , c
0101440 l i n k ] \r 5 3 1 1 6 :
0101460 6 6 3 1 3 2 0 * T
0101500 A I L * ( ( C M L E X E C 247
0101520 T O P - L E V E L - P T ) \r
0101540 ( \ P I C K . E V A L Q T ) ) \r
0101560 5 3 1 2 0 : 1 7 7 7 7 7
0101600 1 7 7 7 7 7 [ p a d d i n g
0101620 ] \r 5 3 1 2 2 : 1 7 7 7
0101640 7 7 1 7 7 7 7 7 [ p a d d i
0101660 n g ] \r 5 3 1 2 4 :
0101700 0 2 3 [ p a d
0101720 d i n g ] \r 5 3 1 2 6 :
0101740 1 7 7 7 7 6 0 \r P
0101760 R O G N \r \r \r B a s i c f r a
0102000 m e a t 5 3 0 3 6 \r
0102020 5 3 0 3 2 : 6 6
0102040 3 1 3 7 6 * F O R M * ( P R
0102060 O G N ( T T Y D I S P L A Y S
0102100 T R E A M & \r ) ( C M L E X
0102120 E C 247 T O P - L E V E L - P
0102140 T ) ( \ P I C K . E V A L Q T
0102160 ) ) \r 5 3 0 3 4 :
0102200 0 2 4 5 5 * l o c a
0102220 l * P R O G N \r 5 3 0 3 6
0102240 : 1 0 0 0 0 0 5 3 0 3 2
0102260 \r \r F r a m e x t n a t
0102300 5 3 0 4 0 , f r a m e n
0102320 a m e = \ E V A L F O R M \r
0102340 5 3 0 4 0 : 1 4 0 0 0 1
0102360 5 3 0 2 3 [ U S E = 1 ,
0102400 X , a l i n k ] \r 5 3 0
0102420 4 2 : 1 3 3 2 5 4
0102440 2 3 [ f n h e a d e r ] \r
0102460 5 3 0 4 4 : 5 3 1 0 0
0102500 1 5 2 [ n e x t , p c
0102520 ] \r 5 3 0 4 6 :
0102540 1 6 2 [ n a m e t
0102560 a b l e ] \r 5 3 0 5 0 :
0102600 5 3 0 3 6 5 3 0 2 2 [ b
0102620 l i n k , c l i n k ] \r 5
0102640 3 0 5 2 : 0
0102660 2 4 5 5 * l o c a l * P R O
0102700 G N \r 5 3 0 5 4 : 1 7 7
0102720 7 7 7 1 7 * A R G V
0102740 A L * [ u n b o u n d ] \r
0102760 5 3 0 5 6 : 1 7 7 7 7 7
0103000 0 * T A I L * [ u n
0103020 b o u n d ] \r 5 3 0 6 0 :
0103040 1 7 7 7 7 7 7 2 3 2 0 *
0103060 F N * [ u n b o u n d ] \r
0103100 5 3 0 6 2 : 1 7 7 7 7 7
0103120 7 1 4 5 * l o c a l * [ u
0103140 n b o u n d ] \r 5 3 0 6 4 :
0103160 1 7 7 7 7 7 5 3 0 6 0
0103200 * l o c a l * [ u n b o u n d
0103220 ] \r 5 3 0 6 6 : 1 7 7 7
0103240 7 7 5 3 0 4 6 * l o c a l
0103260 * [ u n b o u n d ] \r 5 3
0103300 0 7 0 : 1 7 7 7 7 7
0103320 2 3 [ p a d d i n g ] \r
0103340 5 3 0 7 2 : 5 3 1 0 4
0103360 7 3 [ p a d d i n g ] \r
0103400 5 3 0 7 4 : 0
0103420 3 3 [ p a d d i n g
0103440 ] \r 5 3 0 7 6 : 1 7 7 7
0103460 7 6 0 \r \ E V A L
0103500 F O R M \r \r \r B a s i c f r a
0103520 m e a t 5 3 0 0 6 \r
0103540 5 3 0 0 2 : 7 7
0103560 7 2 5 3 4 * l o c a l * ( \
0103600 M A K E . P R O C E S S 0 A 0 0
0103620 0 1 ) \r 5 3 0 0 4 :
0103640 0 1 1 4 * l o c
0103660 a l * T \r 5 3 0 0 6 :
0103700 1 0 0 0 0 0 5 3 0 0 2 \r \r
0103720 F r a m e x t n a t 5
0103740 3 0 1 0 , f r a m e n a m e
0103760 = E R R O R S E T \r 5 3 0
0104000 1 0 : 1 4 0 0 0 1 5 2 7
0104020 1 4 [ U S E = 1 , a l i
0104040 n k ] \r 5 3 0 1 2 : 5
0104060 3 3 2 0 2 5 [ f n
0104100 h e a d e r ] \r 5 3 0 1 4 :
0104120 5 3 0 3 2 4 2
0104140 [ n e x t , p c ] \r 5 3 0
0104160 1 6 : 5 2 7 4 4 4
0104200 0 1 [ n a m e t a b l e ] \r
0104220 5 3 0 2 0 : 1 7 7 7 7 7
0104240 0 [ b l i n k , c
0104260 l i n k ] \r 5 3 0 2 2 :
0104300 5 2 7 1 4 4 0 1 [ f
0104320 v a r # F O R M # o n s
0104340 t a c k ] \r 5 3 0 2 4 :
0104360 1 7 7 7 7 7 1 7 [ p
0104400 a d d i n g ] \r 5 3 0 2 6 :
0104420 7 5 7 2 3 2 0
0104440 [ p a d d i n g ] \r 5 3 0 3
0104460 0 : 0 1
0104500 7 [ p a d d i n g ] \r E R R O
0104520 R S E T \r \r \r B a s i c f r a
0104540 m e a t 5 2 7 0 0 \r
0104560 5 2 6 7 4 : 6 6
0104600 3 1 3 7 6 * l o c a l * ( P
0104620 R O G N ( T T Y D I S P L A Y
0104640 S T R E A M & ) ( C M L E X
0104660 E C 247 T O P - L E V E L - P
0104700 T ) ( \ P I C K . E V A L Q T
0104720 ) ) \r 5 2 6 7 6 :
0104740 5 5 1 0 1 6 0 0 * l o c a
0104760 l * { P R O C E S S } # 5 5 ,
0105000 1 0 1 6 0 0 \r 5 2 7 0 0 :
0105020 1 0 0 0 0 0 5 2 6 7 4 \r
0105040 \r F r a m e x t n a t
0105060 5 2 7 0 2 , f r a m e n a m
0105100 e = \ M A K E . P R O C E S S
0105120 0 \r 5 2 7 0 2 : 1 4 0 0
0105140 0 1 1 4 0 1 5 [ U S E =
0105160 1 , X , a l i n k ] \r
0105200 5 2 7 0 4 : 5 3 4 0 0
0105220 2 5 [ f n h e a d e r
0105240 ] \r 5 2 7 0 6 : 5 3 0
0105260 0 2 5 3 3 [ n e x t ,
0105300 p c ] \r 5 2 7 1 0 :
0105320 0 0 [ n a
0105340 m e t a b l e ] \r 5 2 7 1 2
0105360 : 5 2 7 0 0 1 4 0 1 4
0105400 [ b l i n k , c l i n k ] \r
0105420 5 2 7 1 4 : 6 6
0105440 3 1 3 7 6 # F O R M # (
0105460 P R O G N ( T T Y D I S P L A
0105500 Y S T R E A M & \r ) ( C M L
0105520 E X E C 247 T O P - L E V E L -
0105540 P T ) ( \ P I C K . E V A L
0105560 Q T ) ) \r 5 2 7 1 6 :
0105600 0 1 5 0 0 H E L
0105620 P F L A G B R E A K ! \r 5
0105640 2 7 2 0 : 1 6
0105660 7 2 \ C U R R E N T D I S
0105700 P L A Y L I N E 5 8 \r 5 2
0105720 7 2 2 : 1 6
0105740 7 6 \ # D I S P L A Y L I N
0105760 E S 6 2 \r 5 2 7 2 4 :
0106000 6 6 1 7 4 0 6 4 \ L
0106020 I N E B U F . O F D \r | < I O
0106040 S t r e a m 6 6 , 1 7 4 0 6
0106060 4 > \r 5 2 7 2 6 :
0106100 7 5 6 6 7 2 6 * R E A D
0106120 T A B L E * \r | < R e a d T a
0106140 b l e I N T E R L I S P / 7 5
0106160 , 6 6 7 2 6 > \r 5 2 7 3 0 :
0106200 7 5 6 1 7 4 0
0106220 \ P R I M T E R M T A B L E {
0106240 T E R M T A B L E P } # 7 5 , \r
0106260 6 1 7 4 0 \r 5 2 7 3 2 :
0106300 7 5 6 2 0 0 0 \ P
0106320 R I M T E R M S A { C H A R T
0106340 A B L E } # 7 5 , 6 2 0 0 0 \r
0106360 5 2 7 3 4 : 6 0
0106400 4 0 6 4 T t y D i s p l a
0106420 y S t r e a m \r | < O u t p u
0106440 t S t r e a m 6 0 , 4 0 6 4
0106460 > \r 5 2 7 3 6 :
0106500 0 1 1 4 \ I N T E R
0106520 R U P T A B L E T \r 5 2 7
0106540 4 0 : 0
0106560 0 \ T T Y W I N D O W N I
0106600 L \r 5 2 7 4 2 :
0106620 0 0 R E A D B U
0106640 F N I L \r 5 2 7 4 4 :
0106660 6 0 4 0 6 4 \ T
0106700 E R M . O F D \r | < O u t p u
0106720 t S t r e a m 6 0 , 4 0 6 4
0106740 > \r 5 2 7 4 6 :
0106760 6 0 4 0 6 4 \ P R I M O
0107000