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