$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLEXEC.DCOM!20
0000000 ( F I L E C R E A T E D " 1
0000020 - A u g - 8 6 0 1 : 4 6 : 4 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L E X E
0000120 C . ; 2 1 ) \r " 3 0 - J u l -
0000140 8 6 0 9 : 0 2 : 4 9 " " C O
0000160 M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 3 0 - J
0000220 u l - 8 6 . . . " d a t e d
0000240 " 3 0 - J u l - 8 6 0 9 : 1
0000260 6 : 1 7 " ) \r ( F I L E C R E A
0000300 T E D " 1 - A u g - 8 6 0
0000320 1 : 4 6 : 1 0 " { E R I S } <
0000340 L I S P C O R E > L I B R A R Y
0000360 > C M L E X E C . ; 2 1 4 8 7
0000400 3 3 c h a n g e s t o : (
0000420 F N S \r \ P I C K . E V A L Q
0000440 T \ A D D - E X E C ) p r e
0000460 v i o u s d a t e : " 3 1 -
0000500 J u l - 8 6 2 0 : 0 2 : 2 8 "
0000520 { E R I S } < L I S P C O R E
0000540 > L I B R A R Y > C M L E X E C
0000560 . ; 1 9 ) \r ( R P A Q Q C M L
0000600 E X E C C O M S ( ( V A R S
0000620 C M L P R O M P T ) ( F N S
0000640 C M L E X E C D O - A P P L Y
0000660 - E V E N T D O - H I S T O R
0000700 Y - S E A R C H E V A L - I N
0000720 P U T \r E X E C - R E A D - L
0000740 I N E G E T - N E X T - H I S
0000760 T O R Y - E V E N T H I S T O
0001000 R Y - A D D - T O - S P E L L I
0001020 N G - L I S T S H I S T O R Y
0001040 - N T H P R I N T - H I S T O
0001060 R Y \r F I N D - H I S T O R Y
0001100 - E V E N T S P R I N T - E V
0001120 E N T P R I N T - E V E N T -
0001140 P R O M P T P R O C E S S - E
0001160 X E C - I D S E A R C H - F O
0001200 R - E V E N T - N U M B E R \r
0001220 \ P I C K . E V A L Q T ) ( D
0001240 E C L A R E : D O N T E V A L
0001260 @ L O A D D O C O P Y ( P
0001300 ( C H A N G E N A M E ( Q U O
0001320 T E \ P R O C . R E P E A T E
0001340 D L Y E V A L Q T ) ( Q U O T
0001360 E \r E V A L Q T ) ( Q U O T
0001400 E \ P I C K . E V A L Q T ) )
0001420 ( S E T Q B a c k g r o u n
0001440 d M e n u ) ) ) ( S T R U C T
0001460 U R E S C O M M A N D - E N T
0001500 R Y E V E N T E X E C - F O
0001520 N T S \r H I S T O R Y ) ( V
0001540 A R I A B L E S B R E A K - C
0001560 O M M A N D S C L : * * *
0001600 * * * * E X E C - F O N T S *
0001620 * N O T - Y E T - E V A L U A
0001640 T E D * + + + + + + -
0001660 / / / / / / \r E X E C - C
0001700 O M M A N D S * D E F A U L T
0001720 - E X E C U T I V E * ) ( F U
0001740 N C T I O N S C A S E - E Q U
0001760 A L P D E F C O M M A N D E
0002000 V E N T - P R O P S L I S P X
0002020 F O R M A T ) ( F N S \r \ A
0002040 D D - E X E C ) ( A L I S T S
0002060 ( B a c k g r o u n d M e n u
0002100 C o m m a n d s E X E C ) )
0002120 ( P R O P F I L E T Y P E C
0002140 M L E X E C ) ( D E F I N E -
0002160 T Y P E S C O M M A N D S )
0002200 ( \r C O M M A N D S ? ? =
0002220 ? ? ? ? T A F T E R B E F
0002240 O R E C O N N D A D I R
0002260 D O - E V E N T S F I X N D
0002300 I R O K P B P L R E M E
0002320 M B E R S H H U N D O R E
0002340 D O \r F O R G E T ) ( P R O
0002360 P E X E C C O M M O N - L I
0002400 S P I N T E R L I S P ) ( D
0002420 E C L A R E : D O N T E V A L
0002440 @ L O A D D O E V A L @ C O M
0002460 P I L E D O N T C O P Y C O
0002500 M P I L E R V A R S \r ( A D D
0002520 V A R S ( N L A M A ) ( N L
0002540 A M L ) ( L A M A \ A D D -
0002560 E X E C C M L E X E C ) ) ) )
0002600 ) \r ( R P A Q Q C M L P R O M
0002620 P T " > " ) \r C M L E X E C
0002640 A 0 0 0 1 A 0 0 0 2 D 1 \r ( N
0002660 A M E E R R O R S E T L (
0002700 0 N I L ) P 1 2 H E L P
0002720 C L O C K P 2 H E L P C L
0002740 O C K P 1 L I S P X H I S
0002760 T F 1 4 * C U R R E N T -
0003000 E V E N T * F 1 5 E N V I
0003020 R O N M E N T F 1 6 * R E
0003040 A D T A B L E * F 1 7 V A
0003060 L U E S F 1 8 I T F 1
0003100 9 + + F 2 0 + F 2 1
0003120 - F 2 2 / / F 2 3
0003140 / F 2 4 * * F 2 5 C
0003160 L : * F 2 6 L I S P X H I
0003200 S T F 2 7 O U T P U T F
0003220 2 8 A D D S P E L L F L G
0003240 F 2 9 * * * F 3 0 * T
0003260 H I S - E X E C - C O M M A N D
0003300 S * F 3 1 E X E C - C O M
0003320 M A N D S F 3 2 / / / F
0003340 3 3 + + + F 3 4 F U N
0003360 C T I O N F 3 5 R E S E T
0003400 Y ) 001 256 016 026 002 \0 \b \0 \0 \t \0 \0 W
0003420 4 j 021 223 \v ` \0 \0 \t \0 \0 W 6 \n \0 \0
0003440 277 H \ d o \0 \0 \0 364 262 e 277 261 001 204 001
0003460 276 L 001 N \t \0 \0 \n \0 \0 224 N 273 i 260 f
0003500 M 002 260 ] d 001 i W \v \0 \0 277 002 003 265
0003520 365 W " 001 c $ 277 261 001 Y g \0 \0 360 262 g
0003540 L W 036 l 002 K \t \0 \0 016 274 W 034 L \n \0
0003560 \0 277 W 034 _ 020 277 g \0 \0 H W 034 002 002 002
0003600 032 032 _ 016 277 O 020 002 002 O 016 031 277 L [ 001
0003620 004 l 004 360 262 i W < W > \n \0 \0 h 276 ]
0003640 003 265 216 h 262 Y K \t \0 \0 _ 022 d g \0 \0
0003660 360 262 251 277 L W 036 l 002 K \t \0 \0 016 \t \0
0003700 \0 c " 260 213 O 022 227 O 022 g \0 \0 360 264 !
0003720 g \0 \0 g \0 \0 K \t \0 \0 h 032 032 g \0 \0
0003740 L h 032 032 o \0 \0 \0 032 032 032 h 032 [ 214 o
0003760 \0 \0 \0 O 022 o \0 \0 \0 \f \0 \0 277 W 034 L
0004000 \n \0 \0 277 W 8 230 K L 360 224 L \t \0 \0 277
0004020 W 034 271 ` \0 \0 \t \0 \0 i \n \0 \0 277 l 002
0004040 \t \0 \0 021 021 \r W & c B 277 W ( c & 277
0004060 W * c ( 277 L 001 c * 277 K W 036 l 002 W
0004100 D 016 \t \0 \0 _ 032 277 W , c @ 277 W . c
0004120 , 277 O 032 c . 277 W 0 c : 277 W 2 c 0
0004140 277 O 032 001 c $ c 2 277 W 034 265 021 ` \0 \0
0004160 \t \0 \0 i \n \0 \0 277 O 032 260 1 O 032 001 \n
0004200 \0 \0 277 W 034 _ 026 277 g \0 \0 O 032 W 034 002
0004220 002 002 032 032 _ 024 277 O 026 002 002 O 024 031 277 260
0004240 316 d 001 i W \v \0 \0 277 002 003 265 365 h 023
0004260 023 h c F i 020 \0 ( 4 1 5 S H O W
0004300 P R I N T 3 7 6 s e t f - E
0004320 V E N T - V A L U E 3 6 5 D
0004340 S P F O N T 3 6 1 E X E C -
0004360 F O N T S - V A L U E S 3 1 5
0004400 \ M V L I S T 2 8 1 C L O
0004420 C K 2 7 5 D S P F O N T 2
0004440 7 1 E X E C - F O N T S - P R
0004460 I N T O U T 2 6 1 H I S T O
0004500 R Y - A D D - T O - S P E L L I
0004520 N G - L I S T S 2 4 9 s e t
0004540 f - E V E N T - I N P U T 2 4
0004560 2 E C A S E - F A I L 2 0 8
0004600 C O M M A N D - E N T R Y - F
0004620 U N C T I O N 1 8 3 \ M V L
0004640 I S T 1 7 9 C O M M A N D -
0004660 E N T R Y - F U N C T I O N 1
0004700 6 0 C O M M A N D - E N T R Y
0004720 - M O D E 1 4 7 \ A P P E N
0004740 D 2 1 0 3 s e t f - E V E N
0004760 T - I N P U T 9 5 C O M M A
0005000 N D - E N T R Y - F U N C T I O
0005020 N 6 6 S H O W P R I N T 4
0005040 8 S T R I N G - E Q U A L 4
0005060 5 C O M M A N D - E N T R Y -
0005100 N A M E 2 2 D S P F O N T
0005120 1 7 E X E C - F O N T S - P R
0005140 I N T O U T 5 C M L T R A N
0005160 S L A T E 2 E X E C - R E A
0005200 D - L I N E ) \r ( 3 8 5 L I S
0005220 P X V A L U E S 3 5 8 * E X
0005240 E C - F O N T S * 2 6 8 * E
0005260 X E C - F O N T S * 2 1 4 Q
0005300 U O T E 2 0 4 Q U O T E 2
0005320 0 1 F U N C A L L 1 9 5 :
0005340 E V A L 1 6 6 : Q U I E T
0005360 1 1 2 * H I S T O R Y * 8 3
0005400 : H I S T O R Y 1 4 * E X
0005420 E C - F O N T S * ) \r ( 2 3 9
0005440 ( : Q U I E T : H I S T O R
0005460 Y ( N I L : E V A L ) ) 2
0005500 3 3 ( C O M M A N D - E N T R
0005520 Y - M O D E T O D O ) 2 2 2
0005540 ( E N V ) 3 0 ( N I L ) )
0005560 \r C M L E X E C A 0 0 0 1 D 1
0005600 \r ( N A M E E R R O R S E T
0005620 P 1 R E S E T Y P 0 L
0005640 I S P X H I S T F 3 O U T
0005660 P U T F 4 * E X E C - I D
0005700 * F 5 T O P - L E V E L -
0005720 P F 6 * C U R R E N T - E
0005740 V E N T * F 7 R E S E T V
0005760 A R S L S T F 8 P R O M P
0006000 T F 9 L I S P X H I S T )
0006020 \0 B 003 \a 002 \0 ` \0 \0 T U h 360 \v \0
0006040 \0 c \f W 020 S \v \0 \0 277 ` \0 \0 \t \0 \0
0006060 S \n \0 \0 277 W 022 021 ! 002 W 016 o \0 \0 \0
0006100 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0006120 277 J 222 \b \0 \0 i 020 \0 ( 6 2 E R R
0006140 O R ! 5 6 R E S E T R E S T
0006160 O R E 4 6 C M L E X E C A 0
0006200 0 0 1 A 0 0 0 2 2 8 D S P F
0006220 O N T 2 4 E X E C - F O N T
0006240 S - I N P U T 1 7 P R I N T
0006260 - E V E N T - P R O M P T 9
0006300 G E T - N E X T - H I S T O R Y
0006320 - E V E N T ) \r ( 5 2 E R R O
0006340 R 4 3 I N T E R N A L 2 1
0006360 * E X E C - F O N T S * 2
0006400 L I S P X H I S T O R Y ) \r (
0006420 4 0 ( C M L E X E C A 0 0 0 1
0006440 A 0 0 0 2 ) ) \r C M L E X E C
0006460 D 1 \r ( L ( 0 - a r g s - )
0006500 P 2 6 V A L U E S P 2
0006520 5 * C U R R E N T - E V E N T
0006540 * P 2 4 # R P A R S P
0006560 2 3 * E X E C - I D * P 2
0006600 2 O U T P U T P 2 1 * C
0006620 U R R E N T - E X E C U T I V E
0006640 - T Y P E * P 2 0 * R E A
0006660 D T A B L E * P 1 7 T O P
0006700 - L E V E L - P P 1 2 F U
0006720 N C T I O N P 9 E N V I R
0006740 O N M E N T P 6 * T H I S
0006760 - E X E C - C O M M A N D S *
0007000 P 3 P R O M P T F 2 7
0007020 C M L P R O M P T F 2 8 C
0007040 M L R D T B L ) 001 a 033 002 002 \0 e
0007060 021 001 \0 H k 021 002 002 J d I 363 242 261 \0 265
0007100 277 W 6 022 021 361 022 021 020 023 H k 275 274 M d
0007120 L 363 242 261 \0 264 277 h 276 H k _ 020 277 _ 016
0007140 277 O 020 d O 016 363 242 261 \0 264 277 h _ 022 277
0007160 H k _ 026 277 _ 024 277 O 026 d O 024 363 242 261
0007200 \0 265 277 g \0 \0 _ 030 277 H k _ 034 277 _ 032
0007220 277 O 034 d O 032 363 242 261 \0 264 277 W 8 021 001
0007240 024 H k _ 277 _ 036 277 O d O 036 363 242
0007260 261 \0 264 277 h _ " 277 H k _ & 277 _ $ 277
0007300 O & d O $ 363 242 261 \0 265 277 O " 223 \b \0
0007320 \0 277 g \0 \0 i g \0 \0 \n \0 \0 021 B 032 `
0007340 \0 \0 \t \0 \0 _ . o \0 \0 \0 i \n \0 \0 277
0007360 260 367 a g \0 \0 360 226 J k 330 a 261 377 G J
0007400 l 002 324 Z 261 377 5 a g \0 \0 360 226 M k 330
0007420 a 261 377 G M l 002 324 ] 261 377 6 a g \0 \0
0007440 360 227 O 020 k 330 a 261 377 F O 020 l 002 324 _
0007460 020 261 377 2 a g \0 \0 360 227 O 026 k 330 a 261
0007500 377 G O 026 l 002 324 _ 026 261 377 1 a g \0 \0
0007520 360 227 O 034 k 330 a 261 377 G O 034 l 002 324 _
0007540 034 261 377 2 a g \0 \0 360 227 O k 330 a 261
0007560 377 F O l 002 324 _ 261 377 2 a g \0 \0
0007600 360 222 261 377 I O & l 002 324 _ & 261 377 6 \0
0007620 ( 1 9 1 C M L E X E C A 0 0 0
0007640 1 1 8 1 P R O C E S S - E X
0007660 E C - I D 1 7 2 G E T S T R
0007700 E A M 1 6 1 E N T E R E V A
0007720 L Q T ) \r ( 3 3 6 : T I T L E
0007740 3 1 2 : T O P - L E V E L -
0007760 P 2 8 8 : R E A D T A B L E
0010000 2 6 4 : F U N C T I O N 2
0010020 4 0 : E N V I R O N M E N T
0010040 2 1 9 : C O M M A N D S 1 9
0010060 8 : P R O M P T 1 7 8 \ R
0010100 U N N I N G . P R O C E S S 1
0010120 6 9 O U T P U T 1 6 5 C O
0010140 M M O N - L I S P 8 6 E V A
0010160 L - I N P U T ) \r ( 1 8 7 (
0010200 C M L E X E C A 0 0 0 1 ) ) \r D
0010220 O - A P P L Y - E V E N T D 1
0010240 \r ( P 1 C N T P 0 F N
0010260 I 0 T O D O ) \0 I 002 \0 \0
0010300 001 @ 001 \t \0 \0 262 036 @ 001 \t \0 \0 l 003 360
0010320 235 @ d 002 002 221 002 201 002 001 k @ 001 016 020 @
0010340 \t \0 \0 020 @ 001 j 021 002 001 @ 002 001 260 026 d
0010360 001 375 002 I k 330 Y n 002 \0 361 226 h l 4 \n
0010400 \0 \0 277 265 354 I H 016 020 \0 ( 6 4 \ L
0010420 I S P E R R O R 3 3 C L : E
0010440 V A L 1 1 A R G T Y P E 4
0010460 M A C R O - F U N C T I O N )
0010500 \r N I L \r ( ) \r D O - H I S T O
0010520 R Y - S E A R C H D 1 \r ( P
0010540 3 P R E D P 2 T E M P
0010560 1 P A T 2 P 0 P A T 1
0010600 I 2 V A L U E - P I 1
0010620 P R E D - P I 0 S P E C
0010640 F 4 * E V E N T S * ) \0
0010660 ` 004 001 \0 003 021 @ 003 A 245 @ i \n \0 \0 271
0010700 T 001 002 002 002 g \0 \0 ' Z 237 I 235 I J 001
0010720 360 263 9 I J 001 003 001 360 263 1 A 227 T 001 k
0010740 @ 017 016 260 & H 265 017 B 262 026 T 001 002 002 002
0010760 g \0 \0 ' 216 T 001 \t \0 \0 001 \n \0 \0 211 T
0011000 001 \t \0 \0 I i \v \0 \0 221 T 020 T 002 c \b
0011020 d 263 260 020 \0 ( 8 3 E D I T F I N
0011040 D P 7 8 E V E N T - I N P U
0011060 T 7 2 E D I T 4 E 6 8 E
0011100 V E N T - I N P U T 9 E D I
0011120 T F P A T ) \r ( 6 1 L I S P X
0011140 V A L U E S 1 8 * H I S T O
0011160 R Y * ) \r ( ) \r E V A L - I N P
0011200 U T D 1 \r ( P 1 C N T P
0011220 0 F N I 1 E N V I
0011240 0 T O D O ) \0 S 002 \0 \0 002 @ d
0011260 002 262 I 001 \t \0 \0 262 036 @ 001 \t \0 \0 l 003
0011300 360 235 @ d 002 002 221 002 201 002 001 k @ 001 016 020
0011320 @ \t \0 \0 020 @ 001 j 021 002 001 @ 002 001 260 026
0011340 d 001 375 002 I k 330 Y n 002 \0 361 226 h l 4
0011360 \n \0 \0 277 265 354 I H 016 020 001 A \n \0 \0 020
0011400 \0 ( 8 0 C L : E V A L 6 8
0011420 \ L I S P E R R O R 3 7 C L
0011440 : E V A L 1 5 A R G T Y P E
0011460 8 M A C R O - F U N C T I O
0011500 N ) \r N I L \r ( ) \r E X E C - R
0011520 E A D - L I N E D 1 \r ( P 3
0011540 C H R C O D E P 2 S P A
0011560 C E F L G P 1 T E M P
0011600 0 L I N E F 4 * R E A D
0011620 T A B L E * F 5 L I S P X
0011640 R E A D F N F 6 C T R L U
0011660 F L G ) \0 263 004 003 \0 \0 i T l 002 U
0011700 016 h 032 021 1 003 H 001 003 245 i \t \0 \0 263 t
0011720 i \t \0 \0 H 020 K g \0 \0 T \v \0 \0 251 K
0011740 g \0 \0 T \v \0 \0 262 026 i T \n \0 \0 277 H
0011760 d 002 263 m h h 032 \n \0 \0 X 260 d K l
0012000 360 237 K g \0 \0 T \v \0 \0 226 i Z \t \0 \0
0012020 260 4 H i T l 002 U 017 016 h 032 \n \0 \0 270
0012040 i \t \0 \0 \t \0 \0 [ g \0 \0 T \v \0 \0 263
0012060 / K g \0 \0 T \v \0 \0 264 \n J 244 H 002 002
0012100 262 036 h Z 277 i T \n \0 \0 [ g \0 \0 \n \0
0012120 \0 262 205 i \t \0 \0 277 H 264 006 J 260 344 H 003
0012140 231 V 227 h c \f 277 H \t \0 \0 H 020 \0 ( 1
0012160 7 5 E D I T E 1 5 5 R E A
0012200 D C 1 4 9 S Y N T A X P 1
0012220 4 2 P E E K C C O D E 1 2 5
0012240 S Y N T A X P 1 1 5 S Y N
0012260 T A X P 1 0 7 C H C O N 1
0012300 1 0 4 L A S T C 9 9 \ N C
0012320 O N C 2 8 4 R E A D C 7 8
0012340 S Y N T A X P 6 2 \ N C O
0012360 N C 2 5 0 R E A D 4 3 S
0012400 Y N T A X P 3 4 S Y N T A X
0012420 P 2 4 C L E A R B U F 1 8
0012440 R E A D P ) \r ( 1 4 6 E O L
0012460 1 2 1 R I G H T P A R E N
0012500 1 1 1 R I G H T B R A C K E T
0012520 7 4 S E P R 3 9 R I G H
0012540 T B R A C K E T 3 0 R I G H
0012560 T P A R E N ) \r ( ) \r G E T - N
0012600 E X T - H I S T O R Y - E V E N
0012620 T D 1 \r ( P 5 A 1 5 7 3
0012640 P 4 A 1 5 7 4 P 3 A 1
0012660 5 7 1 P 2 A 1 5 7 2 P
0012700 1 E V E N T I 2 F I R S
0012720 T - O N L Y I 1 I D I
0012740 0 H I S T O R Y ) \0 k 006 \0 \0
0012760 003 @ \t \0 \0 021 021 001 H 003 265 F g \0 \0 @
0013000 021 001 002 J \t \0 \0 k 324 021 001 003 J K \n \0
0013020 \0 022 022 A h 032 032 \n \0 \0 271 @ 021 001 004 I
0013040 L \t \0 \0 032 021 001 005 L M \n \0 \0 023 023 @
0013060 \t \0 \0 k 325 @ \t \0 \0 \n \0 \0 h 031 I 020
0013100 001 Y \t \0 \0 003 002 001 A 360 227 I \t \0 \0 263
0013120 255 I 020 B 263 250 H 002 X 260 240 \0 ( 9 3
0013140 E V E N T - I N P U T 8 3 E
0013160 V E N T - I D 7 4 N T H C D
0013200 R 7 1 H I S T O R Y - E V E
0013220 N T S 6 5 H I S T O R Y - S
0013240 I Z E 5 9 s e t f - H I S T
0013260 O R Y - E V E N T S 5 0 H I
0013300 S T O R Y - E V E N T S 4 0
0013320 M A K E - E V E N T 3 1 s e
0013340 t f - H I S T O R Y - I N D E X
0013360 2 1 H I S T O R Y - I N D E
0013400 X 3 H I S T O R Y - E V E N
0013420 T S ) \r ( 1 3 : I D ) \r ( ) \r
0013440 H I S T O R Y - A D D - T O - S
0013460 P E L L I N G - L I S T S D 1
0013500 \r ( I 0 I N P U T ) \0 X \0
0013520 \0 \0 001 @ d 002 262 030 001 004 l 004 360 264 L @
0013540 001 \t \0 \0 264 E @ 001 l 002 \n \0 \0 020 001 003
0013560 262 # @ d 001 001 004 l 004 360 262 032 001 001 \t \0
0013600 \0 247 @ 001 001 \t \0 \0 264 ! @ 001 001 l 002 \n
0013620 \0 \0 020 @ 001 004 l 004 360 264 020 @ 001 \t \0 \0
0013640 264 \t @ 001 l 003 \n \0 \0 020 \0 ( 8 5 A
0013660 D D S P E L L 7 6 B O U N D
0013700 P 6 2 A D D S P E L L 5 2
0013720 S P E C I A L - F O R M - P
0013740 4 5 F B O U N D P 2 5 A D
0013760 D S P E L L 1 6 \ D E F I N
0014000 E D P ) \r N I L \r ( ) \r H I S T
0014020 O R Y - N T H D 1 \r ( P 0
0014040 E V E N T I 2 I D I 1
0014060 N I 0 L S T ) \0 3 001 \0
0014100 \0 003 021 020 \0 @ 264 ' A j 363 241 h 020 @ 001
0014120 X \t \0 \0 262 032 B 005 \a 231 H \t \0 \0 003 002
0014140 001 B 360 231 A k 325 b 002 j 363 241 @ 020 @ 002
0014160 b \0 260 324 \0 ( 2 7 E V E N T - I
0014200 D 1 7 E V E N T - I N P U T
0014220 ) \r N I L \r ( ) \r P R I N T - H
0014240 I S T O R Y D 1 \r ( P 2 X
0014260 P 1 H E L P C L O C K P
0014300 0 E V E N T S I 4 F I
0014320 L E I 3 N O V A L U E S
0014340 I 2 S K I P F N I 1 L
0014360 I N E I 0 H I S T O R Y )
0014400 \0 @ 003 \0 \0 005 D 265 003 i g \0 \0 \n \0
0014420 \0 b \b A 265 020 @ \t \0 \0 021 021 001 D \t \0
0014440 \0 H 260 031 @ \n \0 \0 260 362 d 001 021 001 002 J
0014460 D \n \0 \0 277 D \t \0 \0 023 002 003 265 356 D \t
0014500 \0 \0 \b \0 \0 020 \0 ( 6 1 V A L U E
0014520 S 5 8 T E R P R I 4 9 T
0014540 E R P R I 4 4 P R I N T - E
0014560 V E N T 3 2 F I N D - H I S
0014600 T O R Y - E V E N T S 2 5 T
0014620 E R P R I 1 8 H I S T O R Y
0014640 - E V E N T S 9 G E T S T R
0014660 E A M ) \r ( 6 O U T P U T ) \r
0014700 ( ) \r F I N D - H I S T O R Y -
0014720 E V E N T S D 1 \r ( P 8 A
0014740 1 5 7 8 P 7 A L L - P P
0014760 6 P R E D - P P 5 V A
0015000 L P 4 V A L U E - P P
0015020 3 T E M P 2 S P E C P
0015040 1 O R I G I N A L - E V E N
0015060 T - S P E C P 0 * E V E N
0015100 T S * I 1 H I S T O R Y
0015120 I 0 E V E N T - S P E C F
0015140 9 * C U R R E N T - E V E N
0015160 T * F 1 0 * E X E C - I D
0015200 * ) \0 317 \t 002 \0 002 A \t \0 \0 @ 021 b
0015220 \a H 001 W 022 360 222 H 002 270 @ 001 Z 021 001 \b
0015240 O 020 g \0 \0 \n \0 \0 232 i _ 016 277 @ 002 b
0015260 \0 023 260 350 O 020 g \0 \0 \n \0 \0 262 025 @ 002
0015300 [ 226 @ 002 b \0 001 Z 200 J N L \v \0 \0 260
0015320 Q O 020 g \0 \0 \n \0 \0 236 i 276 @ 002 b \0
0015340 001 Z N L \v \0 \0 260 9 O 020 g \0 \0 \n \0
0015360 \0 224 i \ 023 260 245 J d 3 262 030 277 j J
0015400 363 262 030 H j J 325 O 016 h 360 264 004 W 024 \v
0015420 \0 \0 213 N L \v \0 \0 206 H A J \v \0 \0 X
0015440 023 H 257 O 016 221 M 020 J o \0 \0 \0 i \v \0
0015460 \0 260 034 @ 002 b \0 263 027 O 016 244 H 001 h 032
0015500 020 M H 001 h 032 \n \0 \0 275 I b \0 277 H 002
0015520 270 h \ 276 261 377 F \0 ( 1 9 1 \ N C
0015540 O N C 2 1 6 7 E R R O R 1
0015560 4 9 S E A R C H - F O R - E V
0015600 E N T - N U M B E R 1 4 2 D
0015620 O - H I S T O R Y - S E A R C H
0015640 1 3 6 H I S T O R Y - N T H
0015660 1 0 3 S T R I N G . E Q U A
0015700 L 9 3 D O - H I S T O R Y -
0015720 S E A R C H 7 9 S T R I N G
0015740 . E Q U A L 6 9 D O - H I S
0015760 T O R Y - S E A R C H 5 0 S
0016000 T R I N G . E Q U A L 3 0 S
0016020 T R I N G . E Q U A L 3 H I
0016040 S T O R Y - E V E N T S ) \r ( 1
0016060 0 0 = 7 6 S U C H T H A T
0016100 4 7 F 2 7 A L L ) \r (
0016120 1 6 3 " ? " ) \r P R I N T -
0016140 E V E N T A 0 0 0 1 D 1 \r ( I
0016160 1 F I L E I 0 X ) \0
0016200 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 P
0016220 R I N 2 ) \r N I L \r ( ) \r P R I
0016240 N T - E V E N T A 0 0 0 2 D 1
0016260 \r ( I 1 F I L E I 0 X
0016300 ) \0 \a \0 \0 \0 002 @ A \n \0 \0 020 \0 (
0016320 4 S H O W P R I N 2 ) \r N I L
0016340 \r ( ) \r P R I N T - E V E N T
0016360 D 1 \r ( P 6 X P 5 P R
0016400 I N T O U T P 4 E V E N T
0016420 # P 3 T E M P 2 Y
0016440 P 1 P O S I T I O N P 0
0016460 I N P U T I 1 F I L E
0016500 I 0 E V E N T F 7 S K
0016520 I P F N F 8 C M L P R O M
0016540 P T F 9 H I S T O R Y F
0016560 1 0 N O V A L U E S F 1
0016600 1 H I S T S T R 0 F 1 2
0016620 * R E A D T A B L E * ) 001 Y \a
0016640 006 \0 002 W 016 232 @ k W 016 017 016 223 g \0 \0
0016660 020 @ \t \0 \0 o \0 \0 \0 A \n \0 \0 021 2 004
0016700 @ W 020 A \v \0 \0 263 027 W 022 @ \n \0 \0 274
0016720 A o \0 \0 \0 L @ \t \0 \0 \f \0 \0 277 I A
0016740 \n \0 \0 277 ` \0 \0 \t \0 \0 A \n \0 \0 277 @
0016760 002 002 002 g \0 \0 ' [ 265 022 W 026 H 003 034 Z
0017000 262 # H J \n \0 \0 X 260 034 A h d d g \0
0017020 \0 \r 006 \0 \0 277 A \t \0 \0 277 I A \n \0 \0
0017040 277 260 331 H 003 263 033 H 265 022 @ 002 002 002 263 N
0017060 o \0 \0 \0 A \n \0 \0 260 C A \n \0 \0 260 =
0017100 H d 002 002 234 A h d d g \0 \0 \r 006 \0 \0
0017120 260 + 002 262 " H 001 A \n \0 \0 277 H 002 001 [
0017140 265 \v o \0 \0 \0 A \n \0 \0 217 003 245 k A \n
0017160 \0 \0 277 K 201 H 001 A \n \0 \0 277 J 265 # @
0017200 002 002 002 g \0 \0 ' 021 001 005 M 262 6 ` \0 \0
0017220 \t \0 \0 A \n \0 \0 277 A \t \0 \0 277 M 260
0017240 002 270 A \t \0 \0 277 I A \n \0 \0 277 261 377 M
0017260 d 001 021 001 006 N A W 030 \v \0 \0 023 002 003 265
0017300 361 023 W 024 263 1 ` \0 \0 \t \0 \0 A \n \0 \0
0017320 277 @ 002 002 002 g \0 \0 ' 260 031 d 001 021 001 006
0017340 A \t \0 \0 277 I A \n \0 \0 277 N A \n \0 \0
0017360 023 002 003 265 350 A \t \0 \0 h 020 \0 ( 3 4 1
0017400 F R E S H L I N E 3 3 2 S
0017420 H O W P R I N T 3 2 6 D S P
0017440 X P O S I T I O N 3 2 0 F R
0017460 E S H L I N E 3 0 0 D S P F
0017500 O N T 2 9 6 E X E C - F O N
0017520 T S - V A L U E S 2 8 0 L I
0017540 S P X R E P R I N T 2 6 4 D
0017560 S P X P O S I T I O N 2 5 8
0017600 T E R P R I 2 4 8 F R E S H
0017620 L I N E 2 4 3 D S P F O N T
0017640 2 3 9 E X E C - F O N T S -
0017660 P R I N T O U T 2 1 5 S H O
0017700 W P R I N 2 2 0 6 S P A C E
0017720 S 1 9 8 P R I N 1 1 8 3
0017740 S H O W P R I N 2 1 7 2 M A
0017760 P R I N T 1 5 4 P R I N 2
0020000 1 4 8 P R I N 1 1 2 4 D S
0020020 P X P O S I T I O N 1 1 8 T
0020040 E R P R I 1 1 3 M A P R I N
0020060 T 9 9 L D I F F 7 4 D S
0020100 P F O N T 7 0 E X E C - F O
0020120 N T S - I N P U T 6 3 D S P
0020140 X P O S I T I O N 5 7 F O R
0020160 M A T 5 4 E V E N T - I D
0020200 4 3 E N T R Y # 3 5 P R I
0020220 N T - E V E N T - P R O M P T
0020240 2 5 S T R I N G W I D T H 1
0020260 7 E V E N T - I N P U T ) \r (
0020300 3 0 8 L I S P X V A L U E S
0020320 2 9 3 * E X E C - F O N T S *
0020340 2 3 6 * E X E C - F O N T S
0020360 * 2 2 6 * L I S P X P R I N
0020400 T * 1 6 8 P R I N T - E V E
0020420 N T A 0 0 0 2 1 0 9 P R I N
0020440 T - E V E N T A 0 0 0 1 8 2
0020460 * H I S T O R Y * 6 7 * E X
0020500 E C - F O N T S * 1 2 I f )
0020520 \r ( 1 9 4 " ) " 1 4 4 "
0020540 < i n p r o g r e s s > " 4
0020560 9 " ~ D ~ A " 2 1 " 9 9 /
0020600 9 9 9 9 > " ) \r P R I N T - E V
0020620 E N T - P R O M P T D 1 \r ( P
0020640 2 I N D E X P 1 I D
0020660 P 0 A 1 5 8 0 I 2 O U
0020700 T P U T I 1 P R O M P T
0020720 I 0 E V E N T ) \0 2 003 \0 \0
0020740 003 B \t \0 \0 @ \t \0 \0 003 264 ' ` \0 \0 \t
0020760 \0 \0 B \n \0 \0 @ \t \0 \0 021 ! 002 H 001 272
0021000 H 002 001 271 B o \0 \0 \0 I J A \r 005 \0 \0
0021020 i 020 \0 ( 4 6 F O R M A T 2 4
0021040 E V E N T - I D 2 0 D S P
0021060 F O N T 1 6 E X E C - F O N
0021100 T S - P R O M P T 7 E V E N
0021120 T - I D 3 F R E S H - L I N
0021140 E ) \r ( 1 3 * E X E C - F O N
0021160 T S * ) \r ( 3 9 " ~ A ~ D ~
0021200 A " ) \r P R O C E S S - E X E C
0021220 - I D D 1 \r ( P 1 I D P
0021240 0 N A M E I 0 X ) \0
0021260 K 002 \0 \0 001 @ g \0 \0 \n \0 \0 265 B @ \t
0021300 \0 \0 021 021 001 @ g \0 \0 o \0 \0 \0 H k h
0021320 i \r 005 \0 \0 262 034 H d g \0 \0 360 226 277 o
0021340 \0 \0 \0 260 026 l 006 m 377 \v \0 \0 o \0 \0 \0
0021360 204 H o \0 \0 \0 \n \0 \0 Y \v \0 \0 I 020 \0
0021400 ( 7 1 P R O C E S S P R O P
0021420 6 7 C O N C A T 5 4 S U B
0021440 A T O M 3 1 S T R P O S 1
0021460 2 P R O C E S S . N A M E 6
0021500 P R O C E S S P R O P ) \r ( 3
0021520 8 E X E C 1 9 I D 3 I
0021540 D ) \r ( 6 4 " / " 5 8 "
0021560 / " 4 5 " " 2 3 " E X E
0021600 C " ) \r S E A R C H - F O R - E
0021620 V E N T - N U M B E R D 1 \r (
0021640 P 0 I D I 2 S P E C
0021660 I 1 H I S T O R Y I 0
0021700 E V E N T S ) \0 & 001 \0 \0 003 @ d
0021720 262 030 001 \t \0 \0 021 001 \0 H 003 265 016 B A @
0021740 001 \n \0 \0 : 022 225 @ 020 001 B 260 371 @ 002 b
0021760 \0 260 336 \0 ( 2 1 E N T R Y # 7
0022000 E V E N T - I D ) \r N I L \r (
0022020 ) \r \ P I C K . E V A L Q T D
0022040 1 \r ( F 0 * D E F A U L T -
0022060 E X E C U T I V E * ) \0 023 \0 001
0022100 \0 \0 P g \0 \0 360 227 g \0 \0 i \n \0 \0 020
0022120 \b \0 \0 020 \0 ( 1 6 E V A L Q T
0022140 1 2 C M L E X E C ) \r ( 8 :
0022160 T O P - L E V E L - P 3 C O
0022200 M M O N - L I S P ) \r ( ) \r ( C
0022220 H A N G E N A M E ( Q U O T E
0022240 \ P R O C . R E P E A T E D L
0022260 Y E V A L Q T ) ( Q U O T E
0022300 E V A L Q T ) ( Q U O T E \
0022320 P I C K . E V A L Q T ) ) \r ( S
0022340 E T Q B a c k g r o u n d M e
0022360 n u ) \r C O M M A N D - E N T R
0022400 Y - D O C U M E N T A T I O N
0022420 D 1 \r ( L ( 0 O B J E C T )
0022440 ) \0 \a \0 \0 \0 001 @ 002 002 002 001 020 \0 N
0022460 I L \r N I L \r ( ) \r s e t f - C
0022500 O M M A N D - E N T R Y - D O C
0022520 U M E N T A T I O N D 1 \r ( L
0022540 ( 1 V A L U E 0 O B J E
0022560 C T ) ) \0 \t \0 \0 \0 002 @ 002 002 002 A
0022600 030 001 020 \0 N I L \r N I L \r ( ) \r (
0022620 R E M P R O P ( Q U O T E C
0022640 O M M A N D - E N T R Y - D O C
0022660 U M E N T A T I O N ) ( Q U O
0022700 T E S E T F - M E T H O D - E
0022720 X P A N D E R ) ) \r ( P U T P R
0022740 O P S C O M M A N D - E N T R
0022760 Y - D O C U M E N T A T I O N
0023000 S E T F - I N V E R S E s e t
0023020 f - C O M M A N D - E N T R Y -
0023040 D O C U M E N T A T I O N ) \r C
0023060 O M M A N D - E N T R Y - M O D
0023100 E D 1 \r ( L ( 0 O B J E C
0023120 T ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020 \0
0023140 N I L \r N I L \r ( ) \r s e t f -
0023160 C O M M A N D - E N T R Y - M O
0023200 D E D 1 \r ( L ( 1 V A L U
0023220 E 0 O B J E C T ) ) \0 \b \0
0023240 \0 \0 002 @ 002 002 A 030 001 020 \0 N I L \r N
0023260 I L \r ( ) \r ( R E M P R O P (
0023300 Q U O T E C O M M A N D - E N
0023320 T R Y - M O D E ) ( Q U O T E
0023340 S E T F - M E T H O D - E X P
0023360 A N D E R ) ) \r ( P U T P R O P
0023400 S C O M M A N D - E N T R Y -
0023420 M O D E S E T F - I N V E R S
0023440 E s e t f - C O M M A N D - E
0023460 N T R Y - M O D E ) \r C O M M A
0023500 N D - E N T R Y - F U N C T I O
0023520 N D 1 \r ( L ( 0 O B J E C
0023540 T ) ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 N
0023560 I L \r N I L \r ( ) \r s e t f - C
0023600 O M M A N D - E N T R Y - F U N
0023620 C T I O N D 1 \r ( L ( 1 V
0023640 A L U E 0 O B J E C T ) )
0023660 \0 \a \0 \0 \0 002 @ 002 A 030 001 020 \0 N I L
0023700 \r N I L \r ( ) \r ( R E M P R O P
0023720 ( Q U O T E C O M M A N D -
0023740 E N T R Y - F U N C T I O N )
0023760 ( Q U O T E S E T F - M E T H
0024000 O D - E X P A N D E R ) ) \r ( P
0024020 U T P R O P S C O M M A N D -
0024040 E N T R Y - F U N C T I O N S
0024060 E T F - I N V E R S E s e t f
0024100 - C O M M A N D - E N T R Y - F
0024120 U N C T I O N ) \r C O M M A N D
0024140 - E N T R Y - N A M E D 1 \r (
0024160 L ( 0 O B J E C T ) ) \0 004
0024200 \0 \0 \0 001 @ 001 020 \0 N I L \r N I L \r
0024220 ( ) \r s e t f - C O M M A N D -
0024240 E N T R Y - N A M E D 1 \r ( L
0024260 ( 1 V A L U E 0 O B J E
0024300 C T ) ) \0 006 \0 \0 \0 002 @ A 030 001 020
0024320 \0 N I L \r N I L \r ( ) \r ( R E M
0024340 P R O P ( Q U O T E C O M M
0024360 A N D - E N T R Y - N A M E )
0024400 ( Q U O T E S E T F - M E T H
0024420 O D - E X P A N D E R ) ) \r ( P
0024440 U T P R O P S C O M M A N D -
0024460 E N T R Y - N A M E S E T F -
0024500 I N V E R S E s e t f - C O M
0024520 M A N D - E N T R Y - N A M E )
0024540 \r C O P Y - C O M M A N D - E N
0024560 T R Y D 1 \r ( L ( 0 O B J
0024600 E C T ) ) \0 031 \0 \0 \0 001 @ 001 @ 002
0024620 001 @ 002 002 001 @ 002 002 002 001 @ 002 002 002 002 032
0024640 032 032 032 020 \0 N I L \r N I L \r ( ) \r
0024660 ( D E F P R I N T ( Q U O T E
0024700 C O M M A N D - E N T R Y )
0024720 ( F U N C T I O N \ D E F P R
0024740 I N T . D E F S T R U C T . D E
0024760 F A U L T ) ) \r M A K E - C O M
0025000 M A N D - E N T R Y D 1 \r ( L
0025020 ( 0 - a r g s - ) ) \0 242 \v
0025040 \0 002 \0 e 021 001 \0 H k 021 002 002 J d I 363
0025060 262 E 277 h 022 021 221 \n H k 273 272 K d J 363
0025100 262 H 277 h 274 H k 276 275 N d M 363 262 N 277
0025120 h _ 016 277 H k _ 022 277 _ 020 277 O 022 d O
0025140 020 363 262 L 277 h _ 024 277 I L O 016 O 024 h
0025160 032 032 032 032 020 a g \0 \0 360 225 J k 330 a 260
0025200 265 J l 002 324 Z 260 247 a g \0 \0 360 225 K k
0025220 330 a 260 262 K l 002 324 [ 260 244 a g \0 \0 360
0025240 225 N k 330 a 260 254 N l 002 324 ^ 260 236 a g
0025260 \0 \0 360 226 O 022 k 330 a 260 255 O 022 l 002 324
0025300 _ 022 260 234 \0 N I L \r ( 1 4 2 : D
0025320 O C U M E N T A T I O N 1 2 3
0025340 : M O D E 1 0 4 : F U N C
0025360 T I O N 8 5 : N A M E ) \r (
0025400 ) \r ( P U T P R O P ( Q U O T
0025420 E C O M M A N D - E N T R Y )
0025440 ( Q U O T E S T R U C T U R
0025460 E - C O N S T R U C T O R ) (
0025500 Q U O T E M A K E - C O M M A
0025520 N D - E N T R Y ) ) \r ( P U T P
0025540 R O P ( Q U O T E C O M M A
0025560 N D - E N T R Y ) ( Q U O T E
0025600 % % S L O T - D E S C R I P T
0025620 I O N S ) ( Q U O T E ( N A
0025640 M E F U N C T I O N M O D E
0025660 D O C U M E N T A T I O N ) )
0025700 ) \r E V E N T - V A L U E D 1
0025720 \r ( L ( 0 O B J E C T ) )
0025740 \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 N I L \r
0025760 N I L \r ( ) \r s e t f - E V E N
0026000 T - V A L U E D 1 \r ( L ( 1
0026020 V A L U E 0 O B J E C T )
0026040 ) \0 \b \0 \0 \0 002 @ 002 002 A 030 001 020 \0
0026060 N I L \r N I L \r ( ) \r ( R E M P
0026100 R O P ( Q U O T E E V E N T
0026120 - V A L U E ) ( Q U O T E S
0026140 E T F - M E T H O D - E X P A N
0026160 D E R ) ) \r ( P U T P R O P S
0026200 E V E N T - V A L U E S E T F
0026220 - I N V E R S E s e t f - E V
0026240 E N T - V A L U E ) \r E V E N T
0026260 - I D D 1 \r ( L ( 0 O B J
0026300 E C T ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0026320 \0 N I L \r N I L \r ( ) \r s e t f
0026340 - E V E N T - I D D 1 \r ( L
0026360 ( 1 V A L U E 0 O B J E C
0026400 T ) ) \0 \a \0 \0 \0 002 @ 002 A 030 001 020
0026420 \0 N I L \r N I L \r ( ) \r ( R E M
0026440 P R O P ( Q U O T E E V E N
0026460 T - I D ) ( Q U O T E S E T
0026500 F - M E T H O D - E X P A N D E
0026520 R ) ) \r ( P U T P R O P S E V
0026540 E N T - I D S E T F - I N V E
0026560 R S E s e t f - E V E N T - I
0026600 D ) \r E V E N T - I N P U T D
0026620 1 \r ( L ( 0 O B J E C T ) )
0026640 \0 004 \0 \0 \0 001 @ 001 020 \0 N I L \r N
0026660 I L \r ( ) \r s e t f - E V E N T
0026700 - I N P U T D 1 \r ( L ( 1
0026720 V A L U E 0 O B J E C T ) )
0026740 \0 006 \0 \0 \0 002 @ A 030 001 020 \0 N I L
0026760 \r N I L \r ( ) \r ( R E M P R O P
0027000 ( Q U O T E E V E N T - I N
0027020 P U T ) ( Q U O T E S E T F
0027040 - M E T H O D - E X P A N D E R
0027060 ) ) \r ( P U T P R O P S E V E
0027100 N T - I N P U T S E T F - I N
0027120 V E R S E s e t f - E V E N T
0027140 - I N P U T ) \r C O P Y - E V E
0027160 N T D 1 \r ( L ( 0 O B J E
0027200 C T ) ) \0 022 \0 \0 \0 001 @ 001 @ 002 001
0027220 @ 002 002 001 @ 002 002 002 032 032 032 020 \0 N I L
0027240 \r N I L \r ( ) \r ( D E F P R I N
0027260 T ( Q U O T E E V E N T )
0027300 ( F U N C T I O N \ D E F P R
0027320 I N T . D E F S T R U C T . D E
0027340 F A U L T ) ) \r M A K E - E V E
0027360 N T D 1 \r ( L ( 0 - a r g
0027400 s - ) F 8 * N O T - Y E T
0027420 - E V A L U A T E D * ) \0 u \b
0027440 001 002 \0 e 021 001 \0 H k 021 002 002 J d I 363
0027460 262 . 277 h 022 021 a \a H k 273 272 K d J 363
0027500 262 1 277 h 274 H k 276 275 N d M 363 262 7 277
0027520 W 020 _ 016 277 I L O 016 h 032 032 032 020 a g
0027540 \0 \0 360 225 J k 330 a 260 314 J l 002 324 Z 260
0027560 276 a g \0 \0 360 225 K k 330 a 260 311 K l 002
0027600 324 [ 260 273 a g \0 \0 360 225 N k 330 a 260 304
0027620 N l 002 324 ^ 260 265 \0 N I L \r ( 1 0 0
0027640 : V A L U E 8 1 : I D 6
0027660 2 : I N P U T ) \r ( ) \r ( P U
0027700 T P R O P ( Q U O T E E V E
0027720 N T ) ( Q U O T E S T R U C
0027740 T U R E - C O N S T R U C T O R
0027760 ) ( Q U O T E M A K E - E V
0030000 E N T ) ) \r ( P U T P R O P (
0030020 Q U O T E E V E N T ) ( Q U
0030040 O T E % % S L O T - D E S C R
0030060 I P T I O N S ) ( Q U O T E
0030100 ( I N P U T I D ( V A L U E
0030120 * N O T - Y E T - E V A L U A
0030140 T E D * ) ) ) ) \r E X E C - F O
0030160 N T S - V A L U E S D 1 \r ( L
0030200 ( 0 O B J E C T ) ) \0 \a \0
0030220 \0 \0 001 @ 002 002 002 001 020 \0 N I L \r N I
0030240 L \r ( ) \r s e t f - E X E C - F
0030260 O N T S - V A L U E S D 1 \r (
0030300 L ( 1 V A L U E 0 O B J
0030320 E C T ) ) \0 \t \0 \0 \0 002 @ 002 002 002
0030340 A 030 001 020 \0 N I L \r N I L \r ( ) \r
0030360 ( R E M P R O P ( Q U O T E
0030400 E X E C - F O N T S - V A L U E
0030420 S ) ( Q U O T E S E T F - M
0030440 E T H O D - E X P A N D E R ) )
0030460 \r ( P U T P R O P S E X E C -
0030500 F O N T S - V A L U E S S E T
0030520 F - I N V E R S E s e t f - E
0030540 X E C - F O N T S - V A L U E S
0030560 ) \r E X E C - F O N T S - P R I
0030600 N T O U T D 1 \r ( L ( 0 O
0030620 B J E C T ) ) \0 006 \0 \0 \0 001 @ 002
0030640 002 001 020 \0 N I L \r N I L \r ( ) \r s
0030660 e t f - E X E C - F O N T S - P
0030700 R I N T O U T D 1 \r ( L ( 1
0030720 V A L U E 0 O B J E C T )
0030740 ) \0 \b \0 \0 \0 002 @ 002 002 A 030 001 020 \0
0030760 N I L \r N I L \r ( ) \r ( R E M P
0031000 R O P ( Q U O T E E X E C -
0031020 F O N T S - P R I N T O U T )
0031040 ( Q U O T E S E T F - M E T H
0031060 O D - E X P A N D E R ) ) \r ( P
0031100 U T P R O P S E X E C - F O N
0031120 T S - P R I N T O U T S E T F
0031140 - I N V E R S E s e t f - E X
0031160 E C - F O N T S - P R I N T O U
0031200 T ) \r E X E C - F O N T S - I N
0031220 P U T D 1 \r ( L ( 0 O B J
0031240 E C T ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0031260 \0 N I L \r N I L \r ( ) \r s e t f
0031300 - E X E C - F O N T S - I N P U
0031320 T D 1 \r ( L ( 1 V A L U E
0031340 0 O B J E C T ) ) \0 \a \0 \0
0031360 \0 002 @ 002 A 030 001 020 \0 N I L \r N I L
0031400 \r ( ) \r ( R E M P R O P ( Q U
0031420 O T E E X E C - F O N T S - I
0031440 N P U T ) ( Q U O T E S E T
0031460 F - M E T H O D - E X P A N D E
0031500 R ) ) \r ( P U T P R O P S E X
0031520 E C - F O N T S - I N P U T S
0031540 E T F - I N V E R S E s e t f
0031560 - E X E C - F O N T S - I N P U
0031600 T ) \r E X E C - F O N T S - P R
0031620 O M P T D 1 \r ( L ( 0 O B
0031640 J E C T ) ) \0 004 \0 \0 \0 001 @ 001 020
0031660 \0 N I L \r N I L \r ( ) \r s e t f
0031700 - E X E C - F O N T S - P R O M
0031720 P T D 1 \r ( L ( 1 V A L U
0031740 E 0 O B J E C T ) ) \0 006 \0
0031760 \0 \0 002 @ A 030 001 020 \0 N I L \r N I L
0032000 \r ( ) \r ( R E M P R O P ( Q U
0032020 O T E E X E C - F O N T S - P
0032040 R O M P T ) ( Q U O T E S E
0032060 T F - M E T H O D - E X P A N D
0032100 E R ) ) \r ( P U T P R O P S E
0032120 X E C - F O N T S - P R O M P T
0032140 S E T F - I N V E R S E s e
0032160 t f - E X E C - F O N T S - P R
0032200 O M P T ) \r C O P Y - E X E C -
0032220 F O N T S D 1 \r ( L ( 0 O
0032240 B J E C T ) ) \0 031 \0 \0 \0 001 @ 001
0032260 @ 002 001 @ 002 002 001 @ 002 002 002 001 @ 002 002 002
0032300 002 032 032 032 032 020 \0 N I L \r N I L \r (
0032320 ) \r ( D E F P R I N T ( Q U O
0032340 T E E X E C - F O N T S ) (
0032360 F U N C T I O N \ D E F P R I
0032400 N T . D E F S T R U C T . D E F
0032420 A U L T ) ) \r M A K E - E X E C
0032440 - F O N T S D 1 \r ( L ( 0
0032460 - a r g s - ) ) \0 242 \v \0 002 \0 e
0032500 021 001 \0 H k 021 002 002 J d I 363 262 E 277 h
0032520 022 021 221 \n H k 273 272 K d J 363 262 H 277 h
0032540 274 H k 276 275 N d M 363 262 N 277 h _ 016 277
0032560 H k _ 022 277 _ 020 277 O 022 d O 020 363 262 L
0032600 277 h _ 024 277 I L O 016 O 024 h 032 032 032 032
0032620 020 a g \0 \0 360 225 J k 330 a 260 265 J l 002
0032640 324 Z 260 247 a g \0 \0 360 225 K k 330 a 260 262
0032660 K l 002 324 [ 260 244 a g \0 \0 360 225 N k 330
0032700 a 260 254 N l 002 324 ^ 260 236 a g \0 \0 360 226
0032720 O 022 k 330 a 260 255 O 022 l 002 324 _ 022 260 234
0032740 \0 N I L \r ( 1 4 2 : V A L U E
0032760 S 1 2 3 : P R I N T O U T
0033000 1 0 4 : I N P U T 8 5 : P
0033020 R O M P T ) \r ( ) \r ( P U T P R
0033040 O P ( Q U O T E E X E C - F
0033060 O N T S ) ( Q U O T E S T R
0033100 U C T U R E - C O N S T R U C T
0033120 O R ) ( Q U O T E M A K E -
0033140 E X E C - F O N T S ) ) \r ( P U
0033160 T P R O P ( Q U O T E E X E
0033200 C - F O N T S ) ( Q U O T E
0033220 % % S L O T - D E S C R I P T I
0033240 O N S ) ( Q U O T E ( P R O
0033260 M P T I N P U T P R I N T O
0033300 U T V A L U E S ) ) ) \r H I S
0033320 T O R Y - M O D D 1 \r ( L (
0033340 0 O B J E C T ) ) \0 \a \0 \0 \0
0033360 001 @ 002 002 002 001 020 \0 N I L \r N I L \r
0033400 ( ) \r s e t f - H I S T O R Y -
0033420 M O D D 1 \r ( L ( 1 V A L
0033440 U E 0 O B J E C T ) ) \0 \t
0033460 \0 \0 \0 002 @ 002 002 002 A 030 001 020 \0 N I L
0033500 \r N I L \r ( ) \r ( R E M P R O P
0033520 ( Q U O T E H I S T O R Y -
0033540 M O D ) ( Q U O T E S E T F
0033560 - M E T H O D - E X P A N D E R
0033600 ) ) \r ( P U T P R O P S H I S
0033620 T O R Y - M O D S E T F - I N
0033640 V E R S E s e t f - H I S T O
0033660 R Y - M O D ) \r H I S T O R Y -
0033700 S I Z E D 1 \r ( L ( 0 O B
0033720 J E C T ) ) \0 006 \0 \0 \0 001 @ 002 002
0033740 001 020 \0 N I L \r N I L \r ( ) \r s e
0033760 t f - H I S T O R Y - S I Z E
0034000 D 1 \r ( L ( 1 V A L U E 0
0034020 O B J E C T ) ) \0 \b \0 \0 \0 002
0034040 @ 002 002 A 030 001 020 \0 N I L \r N I L \r
0034060 ( ) \r ( R E M P R O P ( Q U O
0034100 T E H I S T O R Y - S I Z E )
0034120 ( Q U O T E S E T F - M E T
0034140 H O D - E X P A N D E R ) ) \r (
0034160 P U T P R O P S H I S T O R Y
0034200 - S I Z E S E T F - I N V E R
0034220 S E s e t f - H I S T O R Y -
0034240 S I Z E ) \r H I S T O R Y - I N
0034260 D E X D 1 \r ( L ( 0 O B J
0034300 E C T ) ) \0 005 \0 \0 \0 001 @ 002 001 020
0034320 \0 N I L \r N I L \r ( ) \r s e t f
0034340 - H I S T O R Y - I N D E X D
0034360 1 \r ( L ( 1 V A L U E 0
0034400 O B J E C T ) ) \0 \a \0 \0 \0 002 @
0034420 002 A 030 001 020 \0 N I L \r N I L \r ( )
0034440 \r ( R E M P R O P ( Q U O T E
0034460 H I S T O R Y - I N D E X )
0034500 ( Q U O T E S E T F - M E T H
0034520 O D - E X P A N D E R ) ) \r ( P
0034540 U T P R O P S H I S T O R Y -
0034560 I N D E X S E T F - I N V E R
0034600 S E s e t f - H I S T O R Y -
0034620 I N D E X ) \r H I S T O R Y - E
0034640 V E N T S D 1 \r ( L ( 0 O
0034660 B J E C T ) ) \0 004 \0 \0 \0 001 @ 001
0034700 020 \0 N I L \r N I L \r ( ) \r s e t
0034720 f - H I S T O R Y - E V E N T S
0034740 D 1 \r ( L ( 1 V A L U E
0034760 0 O B J E C T ) ) \0 006 \0 \0 \0
0035000 002 @ A 030 001 020 \0 N I L \r N I L \r (
0035020 ) \r ( R E M P R O P ( Q U O T
0035040 E H I S T O R Y - E V E N T S
0035060 ) ( Q U O T E S E T F - M E
0035100 T H O D - E X P A N D E R ) ) \r
0035120 ( P U T P R O P S H I S T O R
0035140 Y - E V E N T S S E T F - I N
0035160 V E R S E s e t f - H I S T O
0035200 R Y - E V E N T S ) \r C O P Y -
0035220 H I S T O R Y D 1 \r ( L ( 0
0035240 O B J E C T ) ) \0 031 \0 \0 \0 001
0035260 @ 001 @ 002 001 @ 002 002 001 @ 002 002 002 001 @ 002
0035300 002 002 002 032 032 032 032 020 \0 N I L \r N I L
0035320 \r ( ) \r ( D E F P R I N T ( Q
0035340 U O T E H I S T O R Y ) ( F
0035360 U N C T I O N \ D E F P R I N
0035400 T . D E F S T R U C T . D E F A
0035420 U L T ) ) \r M A K E - H I S T O
0035440 R Y D 1 \r ( L ( 0 - a r g
0035460 s - ) ) \0 242 \v \0 002 \0 e 021 001 \0 H
0035500 k 021 002 002 J d I 363 262 E 277 h 022 021 221 \n
0035520 H k 273 272 K d J 363 262 H 277 h 274 H k 276
0035540 275 N d M 363 262 N 277 h _ 016 277 H k _ 022
0035560 277 _ 020 277 O 022 d O 020 363 262 L 277 h _ 024
0035600 277 I L O 016 O 024 h 032 032 032 032 020 a g \0
0035620 \0 360 225 J k 330 a 260 265 J l 002 324 Z 260 247
0035640 a g \0 \0 360 225 K k 330 a 260 262 K l 002 324
0035660 [ 260 244 a g \0 \0 360 225 N k 330 a 260 254 N
0035700 l 002 324 ^ 260 236 a g \0 \0 360 226 O 022 k 330
0035720 a 260 255 O 022 l 002 324 _ 022 260 234 \0 N I L
0035740 \r ( 1 4 2 : M O D 1 2 3 :
0035760 S I Z E 1 0 4 : I N D E X
0036000 8 5 : E V E N T S ) \r ( ) \r (
0036020 P U T P R O P ( Q U O T E H
0036040 I S T O R Y ) ( Q U O T E S
0036060 T R U C T U R E - C O N S T R U
0036100 C T O R ) ( Q U O T E M A K
0036120 E - H I S T O R Y ) ) \r ( P U T
0036140 P R O P ( Q U O T E H I S T
0036160 O R Y ) ( Q U O T E % % S L
0036200 O T - D E S C R I P T I O N S )
0036220 ( Q U O T E ( E V E N T S
0036240 I N D E X S I Z E M O D ) )
0036260 ) \r ( O R ( B O U N D P ( Q
0036300 U O T E B R E A K - C O M M A
0036320 N D S ) ) ( S E T Q B R E A
0036340 K - C O M M A N D S N I L ) )
0036360 \r ( P R O C L A I M ( Q U O T
0036400 E ( S P E C I A L B R E A K
0036420 - C O M M A N D S ) ) ) \r ( O R
0036440 ( B O U N D P ( Q U O T E
0036460 C L : * ) ) ( S E T Q C L :
0036500 * N I L ) ) \r ( P R O C L A I
0036520 M ( Q U O T E ( S P E C I A
0036540 L C L : * ) ) ) \r ( O R ( B
0036560 O U N D P ( Q U O T E * * )
0036600 ) ( S E T Q * * N I L ) )
0036620 \r ( P R O C L A I M ( Q U O T
0036640 E ( S P E C I A L * * ) ) )
0036660 \r ( O R ( B O U N D P ( Q U
0036700 O T E * * * ) ) ( S E T Q
0036720 * * * N I L ) ) \r ( P R O C L
0036740 A I M ( Q U O T E ( S P E C
0036760 I A L * * * ) ) ) \r ( S E T Q
0037000 * E X E C - F O N T S * ( M
0037020 A K E - E X E C - F O N T S :
0037040 P R O M P T L I T T L E F O N
0037060 T : I N P U T B O L D F O N
0037100 T : P R I N T O U T D E F A
0037120 U L T F O N T : V A L U E S
0037140 \r D E F A U L T F O N T ) ) \r (
0037160 P U T ( Q U O T E * E X E C
0037200 - F O N T S * ) ( Q U O T E
0037220 G L O B A L V A R ) T ) \r ( O
0037240 R ( B O U N D P ( Q U O T E
0037260 * N O T - Y E T - E V A L U A
0037300 T E D * ) ) ( S E T Q * N O
0037320 T - Y E T - E V A L U A T E D *
0037340 " < n o t y e t e v a l u
0037360 a t e d > " ) ) \r ( P R O C L A
0037400 I M ( Q U O T E ( S P E C I
0037420 A L * N O T - Y E T - E V A L
0037440 U A T E D * ) ) ) \r ( O R ( B
0037460 O U N D P ( Q U O T E + ) )
0037500 ( S E T Q + N I L ) ) \r (
0037520 P R O C L A I M ( Q U O T E
0037540 ( S P E C I A L + ) ) ) \r ( O
0037560 R ( B O U N D P ( Q U O T E
0037600 + + ) ) ( S E T Q + + N
0037620 I L ) ) \r ( P R O C L A I M (
0037640 Q U O T E ( S P E C I A L +
0037660 + ) ) ) \r ( O R ( B O U N D P
0037700 ( Q U O T E + + + ) ) ( S
0037720 E T Q + + + N I L ) ) \r ( P
0037740 R O C L A I M ( Q U O T E (
0037760 S P E C I A L + + + ) ) ) \r (
0040000 O R ( B O U N D P ( Q U O T
0040020 E - ) ) ( S E T Q - N I
0040040 L ) ) \r ( P R O C L A I M ( Q
0040060 U O T E ( S P E C I A L - )
0040100 ) ) \r ( O R ( B O U N D P (
0040120 Q U O T E / ) ) ( S E T Q
0040140 / N I L ) ) \r ( P R O C L A I
0040160 M ( Q U O T E ( S P E C I A
0040200 L / ) ) ) \r ( O R ( B O U N
0040220 D P ( Q U O T E / / ) ) (
0040240 S E T Q / / N I L ) ) \r ( P
0040260 R O C L A I M ( Q U O T E (
0040300 S P E C I A L / / ) ) ) \r ( O
0040320 R ( B O U N D P ( Q U O T E
0040340 / / / ) ) ( S E T Q / / /
0040360 N I L ) ) \r ( P R O C L A I M
0040400 ( Q U O T E ( S P E C I A L
0040420 / / / ) ) ) \r ( O R ( B O U
0040440 N D P ( Q U O T E E X E C -
0040460 C O M M A N D S ) ) ( S E T Q
0040500 E X E C - C O M M A N D S N
0040520 I L ) ) \r ( P R O C L A I M (
0040540 Q U O T E ( S P E C I A L E
0040560 X E C - C O M M A N D S ) ) ) \r
0040600 ( O R ( B O U N D P ( Q U O
0040620 T E * D E F A U L T - E X E C
0040640 U T I V E * ) ) ( S E T Q *
0040660 D E F A U L T - E X E C U T I V
0040700 E * ( Q U O T E C O M M O N
0040720 - L I S P ) ) ) \r ( P R O C L A
0040740 I M ( Q U O T E ( S P E C I
0040760 A L * D E F A U L T - E X E C
0041000 U T I V E * ) ) ) \r e x p a n d
0041020 - C A S E - E Q U A L P D 1 \r
0041040 ( L ( 1 $ $ M A C R O - E N
0041060 V I R O N M E N T 0 $ $ M A
0041100 C R O - F O R M ) ) \0 262 \v \0 \0
0041120 002 @ 002 021 q \a H 001 271 H 002 272 I 004 l 004
0041140 360 221 I 202 \b \0 \0 273 021 0 \n J 260 m d 001
0041160 ^ 001 d i 360 245 d g \0 \0 360 222 277 i 201 277
0041200 h 222 i 260 & N 001 003 257 g \0 \0 K g \0 \0
0041220 N 001 h 032 032 h 032 032 216 g \0 \0 N 001 h 275
0041240 \ 003 263 031 M \t \0 \0 032 N 002 032 _ 020 277 O
0041260 022 265 ! O 020 h 032 _ 024 260 034 g \0 \0 K g
0041300 \0 \0 L 001 h 032 032 h 032 032 032 M 032 275 L 002
0041320 260 320 O 020 & _ 022 277 002 003 265 224 O 024 022 _
0041340 016 277 K I 360 226 g \0 \0 O 016 032 020 g \0 \0
0041360 K I h 032 032 h 032 g \0 \0 O 016 032 h 032 032
0041400 032 020 \0 ( 8 6 R E V E R S E 2
0041420 1 G E N S Y M ) \r ( 1 6 8 C
0041440 O N D 1 5 8 L E T 1 5 1
0041460 C O N D 1 1 2 Q U O T E 1
0041500 0 8 S T R I N G . E Q U A L
0041520 7 4 O R 6 2 Q U O T E 5
0041540 8 S T R I N G . E Q U A L 4
0041560 0 O T H E R W I S E ) \r ( ) \r
0041600 ( S E T F - M A C R O - F U N C
0041620 T I O N ( Q U O T E C A S E
0041640 - E Q U A L P ) ( Q U O T E
0041660 e x p a n d - C A S E - E Q U A
0041700 L P ) ) \r e x p a n d - D E F C
0041720 O M M A N D D 1 \r ( L ( 1
0041740 $ $ M A C R O - E N V I R O N M
0041760 E N T 0 $ $ M A C R O - F O
0042000 R M ) ) 001 J 022 \0 \0 002 @ 002 021 341 016
0042020 @ 271 H 001 272 H 002 [ 001 274 K 002 275 A 276 M
0042040 _ 016 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 o
0042060 \0 \0 \0 021 003 021 J 003 265 003 202 261 \0 314 O "
0042100 J \n \0 \0 _ 034 277 L g \0 \0 O 016 J N g
0042120 \0 \0 g \0 \0 \r \a \0 \0 \t \0 \0 _ 032 001 _
0042140 030 277 O 032 002 _ 026 001 _ 024 277 O 026 002 001 _
0042160 022 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 O 034
0042200 h 032 032 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0
0042220 O 024 g \0 \0 J O 030 h 032 032 032 h 032 \n \0
0042240 \0 032 032 h 032 032 h 032 032 032 g \0 \0 g \0 \0
0042260 g \0 \0 J g \0 \0 O 034 g \0 \0 O g \0
0042300 \0 O 022 \r \b \0 \0 h 032 032 O 036 h 032 032 032
0042320 h 032 032 032 022 h 032 032 g \0 \0 o \0 \0 \0 g
0042340 \0 \0 g \0 \0 g \0 \0 J g \0 \0 I h 032 032
0042360 032 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032
0042400 032 h 032 032 032 032 020 001 J 260 C d 001 _ 020 d
0042420 g \0 \0 360 263 024 d g \0 \0 360 253 d g \0 \0
0042440 360 245 d g \0 \0 360 223 _ 260 ! g \0 \0 360
0042460 264 017 g \0 \0 _ 036 277 o \0 \0 \0 _ " 213 g
0042500 \0 \0 O 020 o \0 \0 \0 \f \0 \0 277 002 003 265 275
0042520 272 261 376 355 \0 ( 3 1 9 E C A S E -
0042540 F A I L 1 8 7 M A K E - C O
0042560 M M A N D - E N T R Y 1 4 9
0042600 \ A P P E N D 2 8 0 \ M V L
0042620 I S T 7 7 P A R S E - D E F
0042640 M A C R O 5 6 P A C K * ) \r
0042660 ( 3 1 0 X 2 9 7 B R E A K
0042700 - C O M M A N D S 2 9 1 : B
0042720 R E A K 2 8 2 : M A C R O
0042740 2 7 6 : E V A L 2 7 0 : H
0042760 I S T O R Y 2 6 3 : Q U I E
0043000 T 2 4 1 Q U O T E 2 2 4
0043020 C O M M A N D S 2 2 0 P U T
0043040 P R O P S 2 1 7 F I L E P K
0043060 G F L G 2 1 4 A N D 2 0 7
0043100 E V A L - W H E N 1 8 1 :
0043120 D O C U M E N T A T I O N 1 7
0043140 6 : M O D E 1 7 1 : F U N
0043160 C T I O N 1 6 7 : N A M E
0043200 1 6 4 Q U O T E 1 6 1 C L
0043220 : P U S H N E W 1 3 7 C L :
0043240 B L O C K 1 2 8 C L : L A M
0043260 B D A 1 2 5 C L : F U N C T
0043300 I O N 1 1 4 Q U O T E 1 1
0043320 1 S Y M B O L - F U N C T I O
0043340 N 1 0 8 S E T F 1 0 5 P
0043360 R O G N 7 3 $ $ M A C R O -
0043400 E N V 7 0 : E N V I R O N M
0043420 E N T 6 3 $ $ M A C R O - F
0043440 O R M 3 5 : E V A L 3 2
0043460 E X E C - C O M M A N D S 2 9
0043500 W I T H O U T - F I L E P K G
0043520 2 6 P R O G N ) \r ( 3 1 6
0043540 ( ( : Q U I E T : H I S T O
0043560 R Y : E V A L : M A C R O )
0043600 : B R E A K ) 3 0 4 " b r
0043620 e a k - " 2 1 1 ( C L : E V
0043640 A L ) 1 3 2 ( $ $ M A C R O
0043660 - F O R M $ $ M A C R O - E N
0043700 V ) \r 3 9 " e x e c - " ) \r
0043720 ( S E T F - M A C R O - F U N C
0043740 T I O N ( Q U O T E D E F C
0043760 O M M A N D ) ( Q U O T E e
0044000 x p a n d - D E F C O M M A N D
0044020 ) ) \r ( A D D T O V A R P R E
0044040 T T Y P R I N T M A C R O S (
0044060 D E F C O M M A N D . P P R
0044100 I N T - D E F I N E R ) ) \r e x
0044120 p a n d - E V E N T - P R O P S
0044140 D 1 \r ( L ( 1 $ $ M A C R
0044160 O - E N V I R O N M E N T 0
0044200 $ $ M A C R O - F O R M ) ) \0
0044220 017 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H h
0044240 032 032 020 \0 N I L \r ( 8 C D D D R
0044260 ) \r ( ) \r ( S E T F - M A C R O
0044300 - F U N C T I O N ( Q U O T E
0044320 E V E N T - P R O P S ) ( Q
0044340 U O T E e x p a n d - E V E N
0044360 T - P R O P S ) ) \r L I S P X F
0044400 O R M A T D 1 \r ( L ( 0 -
0044420 a r g s - ) F 1 0 L I S P
0044440 X H I S T F 1 1 L I S P X
0044460 P R I N T F L G ) \0 | \n 002 002 \0
0044500 e 021 001 \0 k a 021 1 004 H l 002 021 2 \t N
0044520 d M 363 262 / 277 O 016 022 272 W 026 262 032 W 024
0044540 262 026 I \t \0 \0 236 g \0 \0 I J 032 h 032 i
0044560 W 024 \f \0 \0 277 g \0 \0 l 002 274 273 i I J
0044600 260 5 a _ 022 277 O 020 265 021 O 022 h 032 _ 020
0044620 _ 016 277 N k 324 ^ 260 271 O 022 & _ 020 277 260
0044640 364 d 001 375 002 L k 330 \ n 002 \0 361 226 h l
0044660 4 \n \0 \0 277 265 354 L K 016 020 \0 ( 1 1 5
0044700 \ L I S P E R R O R 5 2 L
0044720 I S P X P U T 3 7 C L : S T
0044740 R I N G P ) \r ( 5 6 F O R M A
0044760 T 4 1 * L I S P X P R I N T
0045000 * ) \r ( ) \r \ A D D - E X E C A
0045020 0 0 0 1 D 1 \r ( L ( 0 w i
0045040 n d o w ) ) \0 < 001 \0 \0 001 @ \t \0
0045060 \0 311 . 021 001 \0 ` \0 \0 H 360 262 ! g \0 \0
0045100 @ d 236 d i 360 252 3 020 265 \t g \0 \0 @ h
0045120 032 032 h 032 032 \t \0 \0 g \0 \0 020 H \t \0 \0
0045140 264 \a H \t \0 \0 h 020 \0 ( 5 6 D E L
0045160 . P R O C E S S 5 0 P R O C
0045200 E S S P 4 2 A D D . P R O C
0045220 E S S 3 \ I N S U R E W I N
0045240 D O W ) \r ( 4 5 D O N ' T 3
0045260 2 Q U O T E 1 8 C L O S E
0045300 W 1 1 \ R U N N I N G . P R
0045320 O C E S S ) \r ( ) \r \ A D D - E
0045340 X E C D 1 \r ( L ( 0 - a r
0045360 g s - ) F 6 * D E F A U L
0045400 T - E X E C U T I V E * ) \0 247
0045420 006 001 002 \0 e 021 001 \0 k H 361 221 V 201 k a
0045440 021 A 005 l 002 H 361 221 h 202 l 002 a 272 I d
0045460 g \0 \0 360 225 277 o \0 \0 \0 215 g \0 \0 360 224
0045500 o \0 \0 \0 203 o \0 \0 \0 273 J K \n \0 \0 \
0045520 g \0 \0 g \0 \0 \v \0 \0 g \0 \0 g \0 \0 g
0045540 \0 \0 L h 032 032 h 032 032 I 301 002 311 \0 g \0
0045560 \0 ' 265 006 o \0 \0 \0 o \0 \0 \0 032 032 032 g
0045600 \0 \0 g \0 \0 g \0 \0 i \r 005 \0 \0 ] L g
0045620 \0 \0 K M g \0 \0 \n \0 \0 o \0 \0 \0 M g
0045640 \0 \0 \n \0 \0 \n \0 \0 265 003 k \n \0 \0 \n \0
0045660 \0 \v \0 \0 M \t \0 \0 M 020 \0 ( 1 6 3
0045700 T T Y . P R O C E S S 1 5 9
0045720 P U T W I N D O W P R O P 1 5
0045740 6 C O N C A T 1 5 3 S U B
0045760 S T R I N G 1 4 7 S T R P O
0046000 S 1 4 4 P R O C E S S P R O
0046020 P 1 3 3 P R O C E S S P R O
0046040 P 1 2 0 A D D . P R O C E S
0046060 S 6 8 W I N D O W A D D P R
0046100 O P 5 8 C R E A T E W ) \r (
0046120 1 4 1 N A M E 1 3 0 N A M
0046140 E 1 2 5 T I T L E 1 1 5
0046160 R E S T A R T A B L E 1 1 2
0046200 E X E C 1 0 9 N A M E 9 2
0046220 E X E C 7 7 Q U O T E 7
0046240 4 T T Y D I S P L A Y S T R E
0046260 A M 7 1 P R O G N 6 5 \
0046300 A D D - E X E C A 0 0 0 1 6 2
0046320 C L O S E F N 4 1 I N T E
0046340 R L I S P 3 0 C O M M O N -
0046360 L I S P ) \r ( 1 3 7 " # "
0046400 1 0 3 ( ( \ P I C K . E V A L
0046420 Q T ) ) 9 9 ( E V A L Q T )
0046440 5 2 " L i s p E x e c u t
0046460 i v e " 4 7 " I n t e r l i
0046500 s p E x e c " 3 7 " C o m
0046520 m o n L i s p E x e c " ) \r
0046540 ( A D D T O V A R B a c k g r
0046560 o u n d M e n u C o m m a n d s
0046600 ( E X E C ( Q U O T E ( \
0046620 A D D - E X E C * D E F A U L
0046640 T - E X E C U T I V E * ) ) \r
0046660 " S t a r t a n e w L i s
0046700 p E x e c u t i v e " ( S U
0046720 B I T E M S ( I n t e r l i s
0046740 p ( Q U O T E ( \ A D D - E
0046760 X E C ( Q U O T E I N T E R
0047000 L I S P ) ) ) ) ( \r " C o m m
0047020 o n L i s p " ( Q U O T E
0047040 ( \ A D D - E X E C ( Q U O T
0047060 E C O M M O N - L I S P ) ) )
0047100 ) ) ) ) \r ( P U T P R O P S C
0047120 M L E X E C F I L E T Y P E
0047140 C O M P I L E - F I L E ) \r ( A
0047160 D D T O V A R P R E T T Y D E
0047200 F M A C R O S ( C O M M A N D
0047220 S X ( P * ( M A P C A R
0047240 ( Q U O T E X ) ( F U N C
0047260 T I O N ( L A M B D A ( I T
0047300 E M ) ( C L : D O ( ( D E F
0047320 ( \r G E T I T E M ( Q U O
0047340 T E C O M M A N D S ) ) ) )
0047360 ( D E F D E F ) ( C E R R O
0047400 R " R e - f e t c h t h e
0047420 d e f i n i t i o n " " N o
0047440 ~ S d e f i n i t i o n f o
0047460 r ~ S " ( \r Q U O T E C O
0047500 M M A N D S ) I T E M ) ) ) )
0047520 ) ) ) ) \r ( A D D T O V A R P
0047540 R E T T Y T Y P E L S T ( C H
0047560 A N G E D C O M M A N D S L S T
0047600 C O M M A N D S " C o m m a
0047620 n d s t o L i s p E x e c
0047640 u t i v e " ) ) \r ( A D D T O V
0047660 A R F I L E P K G T Y P E S
0047700 C O M M A N D S ) \r ( P U T P R
0047720 O P S C O M M A N D S G E T
0047740 D E F \ D E F I N E - T Y P E
0047760 - G E T D E F ) \r ( P U T P R O
0050000 P S C O M M A N D S F I L E
0050020 P K G C O N T E N T S N I L L
0050040 ) \r ( P U T P R O P S C O M M
0050060 A N D S P R O P T Y P E C O
0050100 M M A N D S ) \r e x e c - ? D
0050120 1 \r ( L ( 1 $ $ M A C R O -
0050140 E N V 0 $ $ M A C R O - F O
0050160 R M ) F 1 * T E R M I N A
0050200 L - I O * F 2 * T H I S -
0050220 E X E C - C O M M A N D S * F
0050240 3 E X E C - C O M M A N D S
0050260 ) \0 217 001 003 \0 002 @ 002 265 W Q o \0 \0
0050300 \0 \n \0 \0 ` \0 \0 \t \0 \0 i \n \0 \0 Q o
0050320 \0 \0 \0 \n \0 \0 ` \0 \0 i \n \0 \0 Q o \0
0050340 \0 \0 \n \0 \0 ` \0 \0 \t \0 \0 i \n \0 \0 Q
0050360 o \0 \0 \0 \n \0 \0 ` \0 \0 i \n \0 \0 Q o
0050400 \0 \0 \0 \n \0 \0 Q o \0 \0 \0 021 020 \0 R 260
0050420 024 001 \t \0 \0 020 d 001 d 001 H 034 243 001 H 032
0050440 X 277 002 003 265 362 S 214 d 001 d 001 H 034 243 001
0050460 H 032 X 277 002 003 265 362 H 022 \v \0 \0 Q o \0
0050500 \0 \0 \n \0 \0 020 \0 ( 1 4 0 F O R M
0050520 A T 1 3 2 F O R M A T 9 2
0050540 I R M . L O O K U P 7 7 F
0050560 O R M A T 6 9 D S P F O N T
0050600 6 2 F O R M A T 5 4 D S
0050620 P F O N T 5 0 E X E C - F O
0050640 N T S - I N P U T 4 4 F O R
0050660 M A T 3 6 D S P F O N T 2
0050700 9 F O R M A T 2 1 D S P F
0050720 O N T 1 7 E X E C - F O N T
0050740 S - I N P U T 1 1 F O R M A
0050760 T ) \r ( 6 5 D E F A U L T F O
0051000 N T 4 7 * E X E C - F O N T
0051020 S * 3 2 D E F A U L T F O N
0051040 T 1 4 * E X E C - F O N T S
0051060 * ) \r ( 1 3 7 " ~ & ~ & ?
0051100 < n a m e > w i l l g
0051120 i v e m o r e i n f o r m a
0051140 t i o n a b o u t < n a m e
0051160 > ~ & " 8 2 " ~ & ~ & o
0051200 r o n e o f t h e f o l
0051220 l o w i n g : ~ & ~ A ~ & " \r
0051240 7 4 " t o a p p l y f u n
0051260 c t i o n t o t h e a r g
0051300 u m e n t s g i v e n ~ & "
0051320 5 9 " f u n c t i o n ( a r g
0051340 1 a r g 2 . . . ) " 4 1
0051360 " t o e v a l u
0051400 a t e a n e x p r e s s i o
0051420 n ~ & " \r 2 6 " < e x p r e
0051440 s s i o n > " 8 " Y o u a
0051460 r e t y p i n g a t a C
0051500 o m m o n L i s p E x e c .
0051520 E n t e r ~ & " ) \r ( S E T
0051540 Q E X E C - C O M M A N D S
0051560 ( A D J O I N ( Q U O T E (
0051600 ? e x e c - ? : E V A L N
0051620 I L ) ) E X E C - C O M M A N
0051640 D S ) ) \r b r e a k - ? = D 1
0051660 \r ( L ( 1 $ $ M A C R O - E
0051700 N V 0 $ $ M A C R O - F O R
0051720 M ) F 0 L A S T P O S )
0051740 \0 023 \0 001 \0 002 P \t \0 \0 i \n \0 \0 P \t
0051760 \0 \0 i j \f \0 \0 020 \0 ( 1 6 P R I
0052000 N T - A R G L I S T 1 1 S T
0052020 K A R G S 7 S M A R T A R G
0052040 L I S T 3 S T K N A M E ) \r
0052060 N I L \r ( ) \r ( S E T Q B R E
0052100 A K - C O M M A N D S ( A D J
0052120 O I N ( Q U O T E ( ? = b
0052140 r e a k - ? = : E V A L N I
0052160 L ) ) B R E A K - C O M M A N
0052200 D S ) ) \r e x e c - ? ? D 1 \r
0052220 ( L ( 1 $ $ M A C R O - E N
0052240 V 0 $ $ M A C R O - F O R M
0052260 ) ) \0 021 001 \0 \0 002 @ 002 021 001 \0 ` \0
0052300 \0 H \n \0 \0 \b \0 \0 020 \0 ( 1 4 V A
0052320 L U E S 1 1 P R I N T - H I
0052340 S T O R Y ) \r ( 7 L I S P X H
0052360 I S T O R Y ) \r ( ) \r ( S E T Q
0052400 E X E C - C O M M A N D S (
0052420 A D J O I N ( Q U O T E ( ?
0052440 ? e x e c - ? ? : Q U I E T
0052460 N I L ) ) E X E C - C O M M
0052500 A N D S ) ) \r e x e c - ? ? T
0052520 D 1 \r ( L ( 1 $ $ M A C R O
0052540 - E N V 0 $ $ M A C R O - F
0052560 O R M ) ) \0 022 001 \0 \0 002 @ 002 021 001
0052600 \0 ` \0 \0 H \n \0 \0 277 \b \0 \0 020 \0 ( 1
0052620 5 V A L U E S 1 1 H I S T
0052640 O R Y - P R I N T ) \r ( 7 L I
0052660 S P X H I S T O R Y ) \r ( ) \r (
0052700 S E T Q E X E C - C O M M A N
0052720 D S ( A D J O I N ( Q U O T
0052740 E ( ? ? T e x e c - ? ? T
0052760 : Q U I E T N I L ) ) E X E
0053000 C - C O M M A N D S ) ) \r e x e
0053020 c - A F T E R D 1 \r ( L ( 1
0053040 $ $ M A C R O - E N V 0 $
0053060 $ M A C R O - F O R M ) ) \0 \v
0053100 \0 \0 \0 002 @ 002 001 g \0 \0 \n \0 \0 020 \0 (
0053120 8 L I S P X S T A T E ) \r ( 5
0053140 A F T E R ) \r ( ) \r ( S E T Q
0053160 E X E C - C O M M A N D S (
0053200 A D J O I N ( Q U O T E ( A
0053220 F T E R e x e c - A F T E R
0053240 : E V A L N I L ) ) E X E C
0053260 - C O M M A N D S ) ) \r e x e c
0053300 - B E F O R E D 1 \r ( L ( 1
0053320 $ $ M A C R O - E N V 0 $
0053340 $ M A C R O - F O R M ) ) \0 \v
0053360 \0 \0 \0 002 @ 002 001 g \0 \0 \n \0 \0 020 \0 (
0053400 8 L I S P X S T A T E ) \r ( 5
0053420 B E F O R E ) \r ( ) \r ( S E T
0053440 Q E X E C - C O M M A N D S
0053460 ( A D J O I N ( Q U O T E (
0053500 B E F O R E e x e c - B E F O
0053520 R E : E V A L N I L ) ) E
0053540 X E C - C O M M A N D S ) ) \r e
0053560 x e c - C O N N D 1 \r ( L (
0053600 1 $ $ M A C R O - E N V 0
0053620 $ $ M A C R O - F O R M ) ) \0
0053640 \n \0 \0 \0 002 @ 002 d 220 001 \t \0 \0 020 \0 (
0053660 7 / C N D I R ) \r N I L \r ( )
0053700 \r ( S E T Q E X E C - C O M M
0053720 A N D S ( A D J O I N ( Q U
0053740 O T E ( C O N N e x e c - C
0053760 O N N : E V A L N I L ) )
0054000 E X E C - C O M M A N D S ) ) \r
0054020 e x e c - D A D 1 \r ( L ( 1
0054040 $ $ M A C R O - E N V 0 $
0054060 $ M A C R O - F O R M ) ) \0 005
0054100 \0 \0 \0 002 \b \0 \0 020 \0 ( 2 D A T E
0054120 ) \r N I L \r ( ) \r ( S E T Q E
0054140 X E C - C O M M A N D S ( A D
0054160 J O I N ( Q U O T E ( D A
0054200 e x e c - D A : E V A L N I
0054220 L ) ) E X E C - C O M M A N D
0054240 S ) ) \r e x e c - D I R D 1 \r
0054260 ( L ( 1 $ $ M A C R O - E N
0054300 V 0 $ $ M A C R O - F O R M
0054320 ) ) \0 \a \0 \0 \0 002 @ 002 \t \0 \0 020 \0
0054340 ( 4 D O D I R ) \r N I L \r ( )
0054360 \r ( S E T Q E X E C - C O M M
0054400 A N D S ( A D J O I N ( Q U
0054420 O T E ( D I R e x e c - D I
0054440 R : E V A L N I L ) ) E X
0054460 E C - C O M M A N D S ) ) \r e x
0054500 e c - D O - E V E N T S D 1 \r
0054520 ( L ( 1 $ $ M A C R O - E N
0054540 V 0 $ $ M A C R O - F O R M
0054560 ) F 4 * C U R R E N T - E
0054600 V E N T * F 5 A D D S P E
0054620 L L F L G F 6 E N V ) \0
0054640 Y 004 003 \0 002 @ 260 ' d 001 d 003 001 g \0 \0
0054660 360 221 002 201 h 032 021 1 003 U 224 H \t \0 \0 277
0054700 H d V h \f \0 \0 Y 222 T 265 016 023 002 003 265
0054720 331 h c \b \b \0 \0 020 002 002 002 g \0 \0 ' 265
0054740 027 T 273 g \0 \0 I T 002 002 002 032 032 272 K 002
0054760 002 J 031 277 260 330 I \n \0 \0 277 260 321 \0 ( 8
0055000 4 \ N C O N C 2 4 9 V A L
0055020 U E S 3 3 D O - E V E N T
0055040 2 5 H I S T O R Y - A D D - T
0055060 O - S P E L L I N G - L I S T S
0055100 ) \r ( 6 4 L I S P X V A L U E
0055120 S 5 6 L I S P X V A L U E S
0055140 1 0 E V E N T ) \r ( ) \r ( S
0055160 E T Q E X E C - C O M M A N D
0055200 S ( A D J O I N ( Q U O T E
0055220 ( D O - E V E N T S e x e c
0055240 - D O - E V E N T S : E V A L
0055260 N I L ) ) E X E C - C O M M
0055300 A N D S ) ) \r e x e c - F I X
0055320 D 1 \r ( L ( 1 $ $ M A C R O
0055340 - E N V 0 $ $ M A C R O - F
0055360 O R M ) P 1 L I S P X I D
0055400 F 6 C M L P R O M P T )
0055420 \0 X 006 001 \0 002 @ 002 265 006 o \0 \0 \0 ` \0
0055440 \0 \n \0 \0 V 021 022 002 H d 002 262 7 277 g \0
0055460 \0 021 0 005 H 260 & d 001 Z d \t \0 \0 002 231
0055500 277 g \0 \0 J \t \0 \0 032 203 \t \0 \0 001 273 L
0055520 265 \a K h 032 ] 201 K & 274 002 003 265 333 M 022
0055540 032 203 001 \t \0 \0 \t \0 \0 \t \0 \0 020 \0 ( 8
0055560 5 L I S P X F I X 8 2 C O
0055600 P Y 7 9 E V E N T - I N P U
0055620 T 5 4 E V E N T - I N P U T
0055640 4 9 E V E N T - I N P U T
0055660 3 9 E V E N T - I N P U T 1
0055700 3 F I N D - H I S T O R Y - E
0055720 V E N T S ) \r ( 4 5 E V E N T
0055740 2 6 D O - E V E N T S 1 0
0055760 L I S P X H I S T O R Y ) \r (
0056000 7 ( - 1 ) ) \r ( S E T Q E
0056020 X E C - C O M M A N D S ( A D
0056040 J O I N ( Q U O T E ( F I X
0056060 e x e c - F I X : H I S T O
0056100 R Y N I L ) ) E X E C - C O
0056120 M M A N D S ) ) \r e x e c - N D
0056140 I R D 1 \r ( L ( 1 $ $ M A
0056160 C R O - E N V 0 $ $ M A C R
0056200 O - F O R M ) ) \0 022 \0 \0 \0 002 @
0056220 002 o \0 \0 \0 g \0 \0 o \0 \0 \0 \f \0 \0 020
0056240 \0 ( 1 5 D O D I R ) \r ( 8 *
0056260 ) \r ( 1 2 " " 5 ( P C
0056300 O L U M N S 2 0 ) ) \r ( S E T
0056320 Q E X E C - C O M M A N D S
0056340 ( A D J O I N ( Q U O T E (
0056360 N D I R e x e c - N D I R :
0056400 E V A L N I L ) ) E X E C -
0056420 C O M M A N D S ) ) \r b r e a k
0056440 - O K D 1 \r ( L ( 1 $ $ M
0056460 A C R O - E N V 0 $ $ M A C
0056500 R O - F O R M ) ) \0 \b \0 \0 \0 002
0056520 g \0 \0 \t \0 \0 020 \0 ( 5 B R E A K
0056540 R E T F R O M ) \r ( 2 C M L E
0056560 X E C ) \r ( ) \r ( S E T Q B R
0056600 E A K - C O M M A N D S ( A D
0056620 J O I N ( Q U O T E ( O K
0056640 b r e a k - O K : E V A L N
0056660 I L ) ) B R E A K - C O M M A
0056700 N D S ) ) \r e x e c - P B D 1
0056720 \r ( L ( 1 $ $ M A C R O - E
0056740 N V 0 $ $ M A C R O - F O R
0056760 M ) ) \0 \v \0 \0 \0 002 @ 002 001 \t \0 \0
0057000 \b \0 \0 020 \0 ( 8 V A L U E S 5
0057020 P R I N T B I N D I N G S ) \r
0057040 N I L \r ( ) \r ( S E T Q E X E
0057060 C - C O M M A N D S ( A D J O
0057100 I N ( Q U O T E ( P B e x
0057120 e c - P B : E V A L N I L )
0057140 ) E X E C - C O M M A N D S )
0057160 ) \r e x e c - P L D 1 \r ( L
0057200 ( 1 $ $ M A C R O - E N V 0
0057220 $ $ M A C R O - F O R M ) )
0057240 \0 \v \0 \0 \0 002 @ 002 001 \t \0 \0 \b \0 \0 020
0057260 \0 ( 8 V A L U E S 5 P R I
0057300 N T P R O P S ) \r N I L \r ( ) \r
0057320 ( S E T Q E X E C - C O M M A
0057340 N D S ( A D J O I N ( Q U O
0057360 T E ( P L e x e c - P L :
0057400 E V A L N I L ) ) E X E C -
0057420 C O M M A N D S ) ) \r e x e c -
0057440 R E M E M B E R D 1 \r ( L (
0057460 1 $ $ M A C R O - E N V 0
0057500 $ $ M A C R O - F O R M ) ) \0
0057520 \r \0 \0 \0 002 @ 002 \t \0 \0 g \0 \0 \n \0 \0
0057540 020 \0 ( 1 0 M A R K A S C H A N
0057560 G E D 4 G E T E X P R E S S
0057600 I O N F R O M E V E N T S P E C
0057620 ) \r ( 7 E X P R E S S I O N S
0057640 ) \r ( ) \r ( S E T Q E X E C -
0057660 C O M M A N D S ( A D J O I N
0057700 ( Q U O T E ( R E M E M B E
0057720 R e x e c - R E M E M B E R
0057740 : E V A L N I L ) ) E X E C
0057760 - C O M M A N D S ) ) \r e x e c
0060000 - S H H D 1 \r ( L ( 1 $ $
0060020 M A C R O - E N V 0 $ $ M A
0060040 C R O - F O R M ) ) \0 D 003 \0 \0
0060060 002 @ 002 021 ! 002 H d 002 262 6 001 j 272 271 H
0060100 d 002 002 252 d 001 \t \0 \0 l 003 360 223 277 H 002
0060120 201 002 001 260 026 d 001 375 002 J k 330 Z n 002 \0
0060140 361 226 h l 4 \n \0 \0 277 265 354 J I 016 020 001
0060160 \t \0 \0 020 \0 ( 6 5 C L : E V A L
0060200 5 4 \ L I S P E R R O R 2
0060220 3 A R G T Y P E ) \r N I L \r (
0060240 ) \r ( S E T Q E X E C - C O M
0060260 M A N D S ( A D J O I N ( Q
0060300 U O T E ( S H H e x e c - S
0060320 H H : Q U I E T N I L ) )
0060340 E X E C - C O M M A N D S ) ) \r
0060360 e x e c - U N D O D 1 \r ( L
0060400 ( 1 $ $ M A C R O - E N V 0
0060420 $ $ M A C R O - F O R M ) F
0060440 3 * T E R M I N A L - I O *
0060460 ) \0 X 003 001 \0 002 @ 002 265 006 o \0 \0 \0
0060500 ` \0 \0 \n \0 \0 021 ! 002 H 003 265 017 I 265 032
0060520 S o \0 \0 \0 \n \0 \0 260 2 001 Z \t \0 \0 265
0060540 003 I 271 H 002 X 260 344 g \0 \0 360 231 S o \0
0060560 \0 \0 \n \0 \0 260 025 J \t \0 \0 001 271 S o \0
0060600 \0 \0 I d 003 220 001 \v \0 \0 023 \b \0 \0 020 \0
0060620 ( 8 5 V A L U E S 8 1 F O
0060640 R M A T 6 6 E V E N T - I N
0060660 P U T 6 0 F O R M A T 3 8
0060700 U N D O L I S P X 2 3 1 F
0060720 O R M A T 1 3 F I N D - H I
0060740 S T O R Y - E V E N T S ) \r ( 5
0060760 0 a l r e a d y 1 0 L I S
0061000 P X H I S T O R Y ) \r ( 7 3
0061020 " ~ A u n d o n e . ~ & " 5
0061040 7 " A l r e a d y u n d o n
0061060 e . ~ & " 2 8 " N o t h i n
0061100 g s a v e d . ~ & " 7 ( -
0061120 1 ) ) \r ( S E T Q E X E C - C
0061140 O M M A N D S ( A D J O I N
0061160 ( Q U O T E ( U N D O e x e
0061200 c - U N D O : E V A L N I L
0061220 ) ) E X E C - C O M M A N D S
0061240 ) ) \r e x e c - R E D O D 1 \r
0061260 ( L ( 1 $ $ M A C R O - E N
0061300 V 0 $ $ M A C R O - F O R M
0061320 ) P 1 L I S P X I D F
0061340 6 C M L P R O M P T ) \0 R 006
0061360 001 \0 002 @ 002 265 006 o \0 \0 \0 ` \0 \0 \n \0
0061400 \0 V 021 022 002 H d 002 262 7 277 g \0 \0 021 0
0061420 005 H 260 & d 001 Z d \t \0 \0 002 231 277 g \0
0061440 \0 J \t \0 \0 032 203 \t \0 \0 001 273 L 265 \a K
0061460 h 032 ] 201 K & 274 002 003 265 333 M 022 032 020 001
0061500 \t \0 \0 020 \0 ( 7 9 E V E N T - I
0061520 N P U T 5 4 E V E N T - I N
0061540 P U T 4 9 E V E N T - I N P
0061560 U T 3 9 E V E N T - I N P U
0061600 T 1 3 F I N D - H I S T O R
0061620 Y - E V E N T S ) \r ( 4 5 E V
0061640 E N T 2 6 D O - E V E N T S
0061660 1 0 L I S P X H I S T O R Y
0061700 ) \r ( 7 ( - 1 ) ) \r ( S E T
0061720 Q E X E C - C O M M A N D S
0061740 ( A D J O I N ( Q U O T E (
0061760 R E D O e x e c - R E D O :
0062000 H I S T O R Y N I L ) ) E X
0062020 E C - C O M M A N D S ) ) \r e x
0062040 e c - F O R G E T D 1 \r ( L
0062060 ( 1 $ $ M A C R O - E N V 0
0062100 $ $ M A C R O - F O R M ) F
0062120 1 * T E R M I N A L - I O *
0062140 ) \0 2 001 001 \0 002 @ 002 265 034 ` \0 \0 \t
0062160 \0 \0 021 001 \0 H 003 265 027 Q o \0 \0 \0 \n \0
0062200 \0 023 \b \0 \0 020 ` \0 \0 \n \0 \0 260 346 001 i
0062220 \n \0 \0 277 H 002 X 260 337 \0 ( 4 2 U N
0062240 D O L I S P X 2 3 5 F I N D
0062260 - H I S T O R Y - E V E N T S
0062300 2 8 V A L U E S 2 4 F O R
0062320 M A T 9 H I S T O R Y - E V
0062340 E N T S ) \r ( 3 2 L I S P X H
0062360 I S T O R Y 6 L I S P X H I
0062400 S T O R Y ) \r ( 2 1 " F o r
0062420 g o t t e n . ~ & " ) \r ( S E T
0062440 Q E X E C - C O M M A N D S
0062460 ( A D J O I N ( Q U O T E (
0062500 F O R G E T e x e c - F O R G
0062520 E T : E V A L N I L ) ) E
0062540 X E C - C O M M A N D S ) ) \r (
0062560 P U T P R O P S C O M M O N -
0062600 L I S P E X E C ( C M L E X
0062620 E C : T O P - L E V E L - P
0062640 T ) ) \r ( P U T P R O P S I N
0062660 T E R L I S P E X E C ( E V
0062700 A L Q T ) ) \r ( P U T P R O P S
0062720 C M L E X E C C O P Y R I G
0062740 H T ( " X e r o x C o r p o
0062760 r a t i o n " 1 9 8 5 1 9 8
0063000 6 ) ) \r S T O P \r
0063011