$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLSTEP.DCOM!16
0000000 ( F I L E C R E A T E D " 1 3
0000020 - A u g - 8 6 1 0 : 4 7 : 0 3
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 S T E
0000120 P . ; 2 1 ) \r " 4 - A u g -
0000140 8 6 1 7 : 4 3 : 1 4 " t c o
0000160 m p l ' d i n " X e r o x
0000200 L i s p 4 - A u g - 8 6 .
0000220 . . " d a t e d " 4 - A u
0000240 g - 8 6 2 2 : 1 7 : 5 2 " ) \r
0000260 ( F I L E C R E A T E D " 1 3
0000300 - A u g - 8 6 1 0 : 4 5 : 3 7
0000320 " { E R I S } < L I S P C O R
0000340 E > L I B R A R Y > C M L S T E
0000360 P . ; 2 1 6 6 8 5 4 c h a n
0000400 g e s t o : ( F N S \r % %
0000420 S T E P - A W A K E N % % S T
0000440 E P - C O M M A N D - L O O P
0000460 % % S T E P - B R E A K - L O O
0000500 P % % S T E P - I N I T % %
0000520 S T E P - W H E N S E L E C T E
0000540 D F N \r % % S T E P - R E A D
0000560 - E V A L - P R I N T % % S T
0000600 E P - C L O S E % % S T E P -
0000620 B R E A K - I N T E R R U P T
0000640 % % S T E P - A B O R T % % S
0000660 T E P - S T E P - F O R M % %
0000700 S T E P - P R I N T \r % % S T
0000720 E P - P R I N T - V A L U E S
0000740 % % S T E P - E V A L % % S T
0000760 E P - S P R E A D A P P L Y C
0001000 L : E V A L H O O K A P P L Y
0001020 H O O K % % S T E P - S P R E
0001040 A D A P P L Y * H O O K \r E
0001060 V A L - H O O K - F U N C T I O
0001100 N H O O K - T E S T % % S T
0001120 E P - . E V A L F O R M . % %
0001140 S T E P - A P P L Y * % % S T
0001160 E P - A P P L Y % % S T E P -
0001200 \ E V A L F O R M \r % % S T E
0001220 P - \ E V A L % % S T E P %
0001240 % S T E P - L I S P X % % S T
0001260 E P - E V A L Q T % % S T E P
0001300 - S L E E P % % S T E P - E V
0001320 A L - F O R M % % S T E P - P
0001340 A R S E - F U N C T I O N S \r
0001360 S T E P ) ( V A R S C M L S
0001400 T E P C O M S ) p r e v i o u
0001420 s d a t e : " 1 2 - A u g -
0001440 8 6 1 6 : 3 2 : 1 7 " { E R
0001460 I S } < R O A C H > L I S P C O
0001500 R E > C M L S T E P . ; 1 ) \r %
0001520 % S T E P - A W A K E N D 1 \r
0001540 ( P 1 S T E P M E N U W I N
0001560 D O W P 0 S T E P M A I N
0001600 W I N D O W F 2 % % * S T
0001620 E P - S T A T E * F 3 * E
0001640 V A L H O O K * F 4 % % S
0001660 T E P - M E N U F 5 % % *
0001700 S T E P - I N D E N T A T I O N
0001720 - L E V E L * F 6 \ T E R
0001740 M . O F D ) \0 h 002 005 \0 \0 021 001
0001760 i c 004 g \0 \0 c 006 j c \n V \t \0 \0 X
0002000 d g \0 \0 \n \0 \0 262 033 H g \0 \0 \n \0 \0
0002020 Y H g \0 \0 g \0 \0 \f \0 \0 277 I \t \0 \0
0002040 260 027 H g \0 \0 \n \0 \0 265 \r T H g \0 \0
0002060 g \0 \0 \f \0 \0 Y 277 H g \0 \0 I \v \0 \0
0002100 I g \0 \0 H \v \0 \0 g \0 \0 \t \0 \0 242 \b
0002120 \0 \0 h 020 \0 ( 1 4 4 Q % % S T E
0002140 P - R E A D - E V A L - P R I N
0002160 T 1 4 0 Q S T K P O S 1 3
0002200 2 Q P U T W I N D O W P R O P
0002220 1 2 2 Q P U T W I N D O W P
0002240 R O P 1 1 0 Q A T T A C H M
0002260 E N U 7 3 Q G E T W I N D O
0002300 W U S E R P R O P 6 2 Q O P
0002320 E N W 5 5 Q A T T A C H W I
0002340 N D O W 4 2 Q G E T W I N D
0002360 O W U S E R P R O P 3 1 Q G
0002400 E T W I N D O W U S E R P R O P
0002420 2 1 Q W F R O M D S ) \r ( 1
0002440 3 5 Q % % S T E P - R E A D -
0002460 E V A L - P R I N T 1 2 6 Q
0002500 S T E P M A I N W I N D O W 1
0002520 1 6 Q S T E P M E N U W I N D
0002540 O W 1 0 5 Q T O P 1 0 2 Q
0002560 R I G H T 7 0 Q S T E P M
0002600 E N U W I N D O W 5 2 Q T O
0002620 P 4 7 Q R I G H T 3 7 Q
0002640 S T E P M E N U W I N D O W 2
0002660 6 Q S T E P M E N U W I N D O
0002700 W 1 0 Q % % S T E P - C O M
0002720 M A N D - L O O P ) \r ( ) \r % %
0002740 S T E P - C L O S E D 1 \r ( P
0002760 1 S T E P M E N U W I N D O
0003000 W P 0 S T E P M A I N W I
0003020 N D O W F 2 % % * S T E P
0003040 - S T A T E * F 3 * E V A
0003060 L H O O K * F 4 \ T E R M
0003100 . O F D ) \0 ' 002 003 \0 \0 021 001 h
0003120 c 004 d c 006 T \t \0 \0 X d g \0 \0 \n \0
0003140 \0 Y d \t \0 \0 I \t \0 \0 g \0 \0 \t \0 \0
0003160 h 020 \0 ( 4 3 Q R E T F R O M
0003200 3 5 Q C L O S E W 3 1 Q D
0003220 E T A C H W I N D O W 2 4 Q
0003240 G E T W I N D O W U S E R P R O
0003260 P 1 4 Q W F R O M D S ) \r (
0003300 4 0 Q % % S T E P - R E A D -
0003320 E V A L - P R I N T 2 1 Q S
0003340 T E P M E N U W I N D O W ) \r (
0003360 ) \r % % S T E P - A B O R T D
0003400 1 \r ( P 1 S T E P M E N U W
0003420 I N D O W P 0 S T E P M A
0003440 I N W I N D O W F 2 % % *
0003460 S T E P - S T A T E * F 3
0003500 * E V A L H O O K * F 4 \
0003520 T E R M . O F D ) \0 ' 002 003 \0 \0
0003540 021 001 h c 004 d c 006 T \t \0 \0 X d g
0003560 \0 \0 \n \0 \0 Y d \t \0 \0 I \t \0 \0 g \0
0003600 \0 \t \0 \0 h 020 \0 ( 4 3 Q R E T F
0003620 R O M 3 5 Q C L O S E W 3
0003640 1 Q D E T A C H W I N D O W
0003660 2 4 Q G E T W I N D O W U S E
0003700 R P R O P 1 4 Q W F R O M D
0003720 S ) \r ( 4 0 Q % % S T E P - R
0003740 E A D - E V A L - P R I N T 2
0003760 1 Q S T E P M E N U W I N D O
0004000 W ) \r ( ) \r % % S T E P - S L E
0004020 E P D 1 \r ( L ( 0 F U N C
0004040 T I O N S ) F 0 % % * S T
0004060 E P - S T A T E * F 1 * E
0004100 V A L H O O K * F 2 % % *
0004120 S T E P - I N D E N T A T I O N
0004140 - L E V E L * ) \0 021 \0 003 \0 001 @
0004160 265 003 j c \0 g \0 \0 c 002 j c 004 h 020 \0
0004200 N I L \r ( 1 0 Q % % S T E P -
0004220 C O M M A N D - L O O P ) \r ( )
0004240 \r % % S T E P - S T E P - F O R
0004260 M D 1 \r ( P 0 R E S U L T
0004300 S I 1 E N V I R O N M E N
0004320 T I 0 F O R M ) \0 031 001 \0
0004340 \0 002 @ g \0 \0 h A \f \0 \0 \t \0 \0 021 001
0004360 \0 H \t \0 \0 H \t \0 \0 020 \0 ( 2 6 Q
0004400 V A L U E S - L I S T 2 2 Q
0004420 % % S T E P - P R I N T - V A L
0004440 U E S 1 3 Q \ M V L I S T
0004460 1 0 Q C L : E V A L H O O K )
0004500 \r ( 3 % % S T E P - C O M M A
0004520 N D - L O O P ) \r ( ) \r % % S T
0004540 E P - E V A L - F O R M D 1 \r
0004560 ( P 0 R E S U L T S I 1
0004600 E N V I R O N M E N T I 0
0004620 F O R M ) \0 027 001 \0 \0 002 @ h d
0004640 A \f \0 \0 \t \0 \0 021 001 \0 H \t \0 \0 H \t
0004660 \0 \0 020 \0 ( 2 4 Q V A L U E S -
0004700 L I S T 2 0 Q % % S T E P -
0004720 P R I N T - V A L U E S 1 1 Q
0004740 \ M V L I S T 6 C L : E V
0004760 A L H O O K ) \r N I L \r ( ) \r %
0005000 % S T E P - P R I N T D 1 \r (
0005020 P 2 I P 1 * P R I N T
0005040 - L E N G T H * P 0 * P R
0005060 I N T - L E V E L * I 0 F
0005100 O R M F 3 * S T A N D A R
0005120 D - O U T P U T * F 4 % %
0005140 * S T E P - P R I N T - L E V E
0005160 L * F 5 % % * S T E P - P
0005200 R I N T - L E N G T H * F 6
0005220 % % * S T E P - I N D E N T A
0005240 T I O N - L E V E L * F 7
0005260 % % * S T E P - M A X - I N D E
0005300 N T A T I O N * ) \0 033 003 005 \0 001
0005320 T U V W 016 \n \0 \0 021 003 002 S \t \0 \0 J
0005340 S \n \0 \0 @ S \n \0 \0 020 \0 ( 3 0 Q
0005360 C L : P R I N 1 2 3 Q S P A
0005400 C E S 1 6 Q F R E S H L I N
0005420 E 7 M I N ) \r N I L \r ( ) \r
0005440 % % S T E P - P R I N T - V A L
0005460 U E S D 1 \r ( P 2 V A L U
0005500 E P 1 * P R I N T - L E N
0005520 G T H P 0 * P R I N T - L
0005540 E V E L I 0 V A L U E - L
0005560 I S T F 3 * S T A N D A R
0005600 D - O U T P U T * F 4 % %
0005620 * S T E P - P R I N T - L E V E
0005640 L * F 5 % % * S T E P - P
0005660 R I N T - L E N G T H * ) \0 5
0005700 003 003 \0 001 S \t \0 \0 @ 265 \n T U 021 022 002
0005720 @ 260 033 001 \t \0 \0 277 260 363 d 001 272 o \0 \0
0005740 \0 S \n \0 \0 277 J S \n \0 \0 277 002 003 265 354
0005760 h 023 S \t \0 \0 h 020 \0 ( 6 1 Q T E
0006000 R P R I 4 6 Q C L : P R I N
0006020 1 4 0 Q P R I N C 2 2 Q
0006040 % % S T E P - P R I N T 3 F
0006060 R E S H L I N E ) \r N I L \r (
0006100 3 4 Q " " ) \r % % S T E P
0006120 - C O M M A N D - L O O P D 1
0006140 \r ( P 6 S Y S P R E T T Y F
0006160 L G P 5 A 0 1 3 1 P 4
0006200 T E M P P 2 % % * S T E
0006220 P - I N D E N T A T I O N - L E
0006240 V E L * I 1 E N V I R O N
0006260 M E N T I 0 F O R M F
0006300 7 * S T A N D A R D - O U T P
0006320 U T * F 1 0 Q % % * S T E
0006340 P - S T A T E * F 1 1 Q %
0006360 % * S T E P - I N D E N T A T I
0006400 O N - L E V E L * ) 001 @ \a 003 \0
0006420 002 W 020 265 \n @ h d A \f \0 \0 020 i 360 263
0006440 031 @ d 003 242 261 001 " 001 021 021 001 W 020 Y 003
0006460 265 ; h 022 242 261 001 021 W 022 k 324 021 021 003 @
0006500 d 004 l 004 360 245 \t \0 \0 262 - @ \t \0 \0 o
0006520 \0 \0 \0 W 016 \n \0 \0 @ h d A \f \0 \0 W
0006540 016 \n \0 \0 W 016 \t \0 \0 277 020 001 H : 222 I
0006560 260 303 I 002 260 272 @ \t \0 \0 021 020 004 \b \0 \0
0006600 021 001 005 M d g \0 \0 360 226 277 \b \0 \0 261 \0
0006620 266 g \0 \0 360 263 ( M d g \0 \0 360 262 & 277
0006640 @ 001 \t \0 \0 221 h 217 @ A \n \0 \0 \t \0 \0
0006660 [ 001 b \0 277 K 002 001 \ 222 261 \0 212 @ A \n
0006700 \0 \0 020 g \0 \0 360 225 @ A \n \0 \0 020 M d
0006720 g \0 \0 360 234 277 \b \0 \0 277 @ h d A \f \0
0006740 \0 020 g \0 \0 360 236 W 016 \t \0 \0 277 @ W 016
0006760 \n \0 \0 023 260 211 M d g \0 \0 360 262 030 277 W
0007000 016 \t \0 \0 277 i 021 001 006 @ W 016 \n \0 \0 023
0007020 023 261 377 l g \0 \0 360 236 o \0 \0 \0 \t \0 \0
0007040 277 W 016 \t \0 \0 260 036 M d g \0 \0 360 224 277
0007060 \b \0 \0 020 g \0 \0 360 264 \r g \0 \0 h \t \0
0007100 \0 \n \0 \0 h 020 @ g \0 \0 h A \f \0 \0 020
0007120 \0 ( 4 7 5 Q C L : E V A L H O
0007140 O K 4 6 2 Q \ D O - T H R O
0007160 W 4 5 7 Q \ M V L I S T 4
0007200 4 1 Q % % S T E P - R E T U R
0007220 N 4 2 4 Q T E R P R I 4 1
0007240 6 Q C L : B R E A K 3 7 5 Q
0007260 % % S T E P - P R I N T 3 6
0007300 2 Q F R E S H L I N E 3 4 1
0007320 Q % % S T E P - P R I N T 3
0007340 3 2 Q F R E S H L I N E 3 1
0007360 7 Q C L : E V A L H O O K 3
0007400 0 7 Q % % S T E P - A B O R T
0007420 2 7 3 Q % % S T E P - E V A
0007440 L - F O R M 2 6 0 Q % % S T
0007460 E P - S T E P - F O R M 2 3 6
0007500 Q \ M V L I S T 2 3 3 Q M
0007520 A C R O E X P A N D 2 2 3 Q
0007540 S P E C I A L - F O R M - P 1
0007560 7 4 Q % % S T E P - A B O R T
0007600 1 5 6 Q % % S T E P - B R E
0007620 A K - L O O P 1 5 0 Q % % S
0007640 T E P - P R I N T 1 2 7 Q T
0007660 E R P R I 1 2 2 Q C L : P R
0007700 I N 1 1 1 5 Q C L : E V A L
0007720 H O O K 1 0 6 Q P R I N C
0007740 7 5 Q % % S T E P - P R I N T
0007760 6 7 Q C O N S T A N T P 1
0010000 2 Q C L : E V A L H O O K ) \r
0010020 ( 4 7 0 Q % % S T E P - C O M
0010040 M A N D - L O O P 4 5 3 Q T
0010060 O P - L E V E L - C A T C H E R
0010100 4 4 5 Q ^ 4 3 3 Q R E T
0010120 U R N 4 0 5 Q B R E A K 3
0010140 5 1 Q P P R I N T 3 2 3 Q
0010160 P R I N T 3 0 1 Q Q U I T
0010200 2 6 4 Q S K I P 2 1 2 Q M
0010220 A C R O 2 0 2 Q S T E P 1
0010240 6 6 Q A B O R T ) \r ( 4 1 3
0010260 Q " S t e p " 1 0 1 Q "
0010300 = " ) \r % % S T E P - B R E A
0010320 K - L O O P D 1 \r ( I 0 A
0010340 N S W E R ) \0 \n \0 \0 \0 001 g \0 \0
0010360 \t \0 \0 277 260 371 \0 ( 5 E V A L Q T
0010400 ) \r ( 2 : ) \r ( ) \r % % S T E
0010420 P - B R E A K - I N T E R R U P
0010440 T D 1 \r ( I 0 C O M M A N
0010460 D ) \0 ) \0 \0 \0 001 g \0 \0 \t \0 \0 230
0010500 g \0 \0 @ \n \0 \0 260 030 g \0 \0 \t \0 \0 225
0010520 i o \0 \0 \0 204 i o \0 \0 \0 @ \v \0 \0 h
0010540 020 \0 ( 4 5 Q F O R M A T 2 5
0010560 Q S T K P O S 1 5 Q R E T
0010600 F R O M 5 S T K P O S ) \r (
0010620 2 2 Q % % S T E P - R E A D -
0010640 E V A L - P R I N T 1 1 Q %
0010660 % S T E P - B R E A K - L O O P
0010700 2 % % S T E P - B R E A K -
0010720 L O O P ) \r ( 4 1 Q " C a n
0010740 ' t ~ S . N o t s t e p
0010760 p i n g n o w . ~ & " 3 3 Q
0011000 " C a n ' t ~ S . N o t
0011020 i n S T E P b r e a k l
0011040 o o p n o w . ~ & " ) \r % % S
0011060 T E P - P A R S E - F U N C T I
0011100 O N S D 1 \r ( P 2 F N P
0011120 1 N O N - F U N C T I O N S
0011140 P 0 F U N C T I O N S I
0011160 0 L I S T F 3 * E R R
0011200 O R - O U T P U T * ) \0 2 003 001
0011220 \0 001 021 001 @ 260 035 d 001 021 001 002 J d 004
0011240 l 004 360 231 \t \0 \0 224 J H 032 270 203 J I 032
0011260 271 023 002 003 265 344 I 230 S o \0 \0 \0 I \v \0
0011300 \0 H 020 \0 ( 5 6 Q F O R M A T
0011320 2 4 Q F B O U N D P ) \r N I L
0011340 \r ( 5 2 Q " N o n - f u n c
0011360 t i o n s i g n o r e d -
0011400 ~ S " ) \r % % S T E P D 1 \r (
0011420 P 0 F U N C T I O N S I
0011440 0 F O R M S ) \0 = 001 \0 \0 001 @
0011460 o \0 \0 \0 364 224 \b \0 \0 i 020 @ o \0 \0 \0
0011500 364 227 ` \0 \0 \t \0 \0 h 020 @ 265 \a \b \0 \0
0011520 i 020 001 004 l 004 360 234 @ \t \0 \0 021 001 \0 H
0011540 \t \0 \0 H 020 @ 001 \t \0 \0 020 \0 ( 7 2 Q
0011560 T O Y . E V A L 6 3 Q % %
0011600 S T E P - S L E E P 5 4 Q %
0011620 % S T E P - P A R S E - F U N C
0011640 T I O N S 4 0 Q % % S T E P
0011660 - S L E E P 3 0 Q % % S T E
0011700 P - A B O R T 1 1 Q % % S T
0011720 E P - A W A K E N ) \r ( 2 5 Q
0011740 \ T T Y . P R O C E S S ) \r (
0011760 2 0 Q ( N I L ) 4 ( T ) )
0012000 \r S T E P D 1 \r ( P 0 $ E
0012020 X P R $ ) \0 + 006 \0 002 \0 e 021 001 \0
0012040 H k 021 2 005 J d I 363 226 277 K 022 \t \0 \0
0012060 020 a 275 L 265 \r M h 032 \ 273 J k 324 Z 260
0012100 347 M & 274 260 367 \0 ( 2 3 Q % % S T
0012120 E P ) \r N I L \r ( ) \r % % S T E
0012140 P - I N I T D 1 \r ( F 2 %
0012160 % S T E P - M E N U ) \0 C 002 001
0012200 \0 \0 ` \0 \0 037 d o \0 \0 \0 024 022 277 d o
0012220 \0 \0 \0 024 004 277 d g \0 \0 024 026 277 d g \0
0012240 \0 024 277 d g \0 \0 024 034 277 j d n 177 377
0012260 d h 032 032 032 032 021 002 001 H d I 024 \n 277 022
0012300 c 004 h 020 \0 N I L \r ( 4 5 Q D E
0012320 F A U L T M E N U H E L D F N
0012340 3 6 Q C L R P R O M P T 2 7
0012360 Q % % S T E P - W H E N S E L
0012400 E C T E D F N 2 004 003 M E N U
0012420 T Y P E # ) \r ( 2 0 Q ( ( A
0012440 W A K E N N I L " T u r n
0012460 s t e p p i n g o n . " ) (
0012500 C L O S E N I L " T u r n
0012520 s t e p p i n g o f f . C
0012540 l o s e t h i s m e n u . "
0012560 ) ( A B O R T N I L " A b
0012600 o r t s t e p p i n g m o d
0012620 e . " ) ( S T E P N I L "
0012640 E v a l u a t e c u r r e n t
0012660 e x p r e s s i o n i n s
0012700 t e p m o d e . " ) ( S K I
0012720 P N I L " E v a l u a t e
0012740 c u r r e n t e x p r e s s i
0012760 o n w i t h o u t s t e p p
0013000 i n g . " ) ( M A C R O N I
0013020 L " S t e p m a c r o e x p
0013040 a n s i o n . " ) ( Q U I T
0013060 N I L " F i n i s h e v a l
0013100 u a t i o n , b u t t u r n
0013120 s t e p p e r o f f . " )
0013140 ( P R I N T N I L " P r i n
0013160 t c u r r e n t e x p r e s
0013200 s i o n . " ) ( P P R I N T
0013220 N I L " P r e t t y - p r i n
0013240 t c u r r e n t e x p r e s
0013260 s i o n . " ) ( B R E A K N
0013300 I L " E n t e r b r e a k
0013320 l o o p . " ) ( E V A L N I
0013340 L " E v a l u a t e a n a
0013360 r b i t r a r y e x p r e s s
0013400 i o n i n c u r r e n t e
0013420 n v i r o n m e n t . " ) ( R
0013440 E T U R N N I L " P r o m p
0013460 t f o r v a l u e t o r
0013500 e t u r n a s r e s u l t
0013520 o f c u r r e n t e x p . "
0013540 ) ( ^ N I L " T h r o w
0013560 t o t o p l e v e l . " ) )
0013600 \r 1 0 Q " S T E P P E R " )
0013620 \r % % S T E P - W H E N S E L E
0013640 C T E D F N D 1 \r ( P 0 C
0013660 O M M A N D I 2 B U T T O
0013700 N I 1 M E N U I 0 I
0013720 T E M ) \0 6 001 \0 \0 003 021 020 \0 @ 001
0013740 X ` \0 \0 H d g \0 \0 360 227 277 g \0 \0 h
0013760 032 260 032 g \0 \0 360 225 g \0 \0 h 032 214 g \0
0014000 \0 g \0 \0 H h 032 032 h 032 032 \n \0 \0 h 020
0014020 \0 ( 6 2 Q P R O C E S S . E V
0014040 A L ) \r ( 5 0 Q Q U O T E 4
0014060 5 Q % % S T E P - B R E A K -
0014100 I N T E R R U P T 3 7 Q % %
0014120 S T E P - C L O S E 3 2 Q C
0014140 L O S E 2 3 Q % % S T E P -
0014160 A W A K E N 1 5 Q A W A K E
0014200 N 1 0 Q \ T T Y . P R O C E
0014220 S S ) \r ( ) \r C L : E V A L H O
0014240 O K D 1 \r ( P 1 * A P P L
0014260 Y H O O K * P 0 * E V A L
0014300 H O O K * I 3 E N V I
0014320 2 A P P L Y H O O K F N I
0014340 1 E V A L H O O K F N I 0
0014360 F O R M ) \0 \v 002 \0 \0 004 A B 021
0014400 002 001 @ \t \0 \0 020 \0 ( 1 0 Q % % S
0014420 T E P - \ E V A L ) \r N I L \r (
0014440 ) \r A P P L Y H O O K D 1 \r (
0014460 P 1 * A P P L Y H O O K *
0014500 P 0 * E V A L H O O K * I
0014520 4 E N V I 3 A P P L Y
0014540 H O O K F N I 2 E V A L H
0014560 O O K F N I 1 A R G S I
0014600 0 F U N C T I O N ) \0 \f 002
0014620 \0 \0 005 B C 021 002 001 @ A \n \0 \0 020 \0 (
0014640 1 1 Q % % S T E P - A P P L Y
0014660 ) \r N I L \r ( ) \r % % S T E P -
0014700 L I S P X A 0 0 0 2 D 1 \r ( N
0014720 A M E E R R O R S E T P 0
0014740 X F 1 E D I T Q U I E T
0014760 F L G F 2 L I S P Z F
0015000 3 L I S P Y F 4 L I S P
0015020 X T E M ) \0 8 001 004 002 \0 i c 002 277
0015040 R 260 + d 001 021 001 \0 S H i \n \0 \0 \n \0
0015060 \0 263 031 H i \n \0 \0 277 T i o \0 \0 \0 g
0015100 \0 \0 h d i \r \a \0 \0 277 023 002 003 265 326 h
0015120 h 032 020 \0 ( 5 4 Q M A P R I N T
0015140 3 3 Q L I S P X P R I N 1
0015160 2 4 Q H I S T O R Y M A T C H
0015200 2 1 Q E D I T F P A T ) \r (
0015220 4 5 Q % \r ) \r ( 4 2 Q "
0015240 d o e s n o t a p p e a r
0015260 i n " ) \r % % S T E P - L I S
0015300 P X A 0 0 0 3 D 1 \r ( N A M E
0015320 E R R O R S E T F 0 R E
0015340 A D B U F F 1 L I S P Y
0015360 F 2 L I S P X H I S T F
0015400 3 L I S P X I D ) \0 ! \0 004 002
0015420 \0 h c \0 277 Q R \n \0 \0 277 P \t \0 \0 c
0015440 \0 243 h h 032 020 i d \n \0 \0 S \n \0 \0 260
0015460 353 \0 ( 3 5 Q % % S T E P - L I
0015500 S P X 3 1 Q L I S P X R E A
0015520 D 1 5 Q L I S P X R E A D B
0015540 U F 1 0 Q L I S P X U N R E
0015560 A D ) \r N I L \r ( ) \r % % S T E
0015600 P - L I S P X D 1 \r ( P 2 3
0015620 Q T A I L P 2 2 Q X P
0015640 2 1 Q M A C R O Y P 2 0
0015660 Q M A C R O X P 1 7 Q L
0015700 I S P X L I N E P 1 6 Q X
0015720 P 1 3 Q L I S P X V A L U
0015740 E S P 1 2 Q D O N T S A V
0015760 E F L G P 1 1 Q L I S P X
0016000 T E M P 1 0 Q L I S P X V
0016020 A L U E P 7 L I S P Z P
0016040 6 L I S P Y P 5 L I S
0016060 P X L I N E P 4 L I S P X
0016100 L I S T F L G P 3 L I S P
0016120 X O P P 2 H E L P F L A G
0016140 P 1 L I S P X H I S T P
0016160 0 H E L P C L O C K I 4
0016200 L I S P X F L G I 3 L I
0016220 S P X X U S E R F N I 2 L
0016240 I S P X X M A C R O S I 1
0016260 L I S P X I D I 0 L I S P
0016300 X X F 2 4 Q R E S E T V A
0016320 R S L S T F 2 5 Q R E R E
0016340 A D F L G F 2 6 Q A R C H
0016360 I V E L S T F 2 7 Q D W I
0016400 M F L G F 3 0 Q A D D S P
0016420 E L L F L G F 3 1 Q E D I
0016440 T Q U I E T F L G F 3 2 Q
0016460 H I S T S T R 2 F 3 3 Q R
0016500 E A D B U F F 3 4 Q L I S
0016520 P X U S E R F N F 3 5 Q L
0016540 I S P X H I S T F 3 6 Q H
0016560 E L P F L A G F 3 7 Q C L
0016600 I S P F L G F 4 0 Q I T
0016620 F 4 1 Q R E D O C N T ) \t
0016640 035 024 016 \0 005 B 245 ` \0 \0 b 004 277 C 257 W
0016660 8 234 g \0 \0 \t \0 \0 225 g \0 \0 b 006 277 l
0016700 002 \t \0 \0 W : W < d g \0 \0 360 226 277 g
0016720 \0 \0 \t \0 \0 021 263 \r @ d 244 i \n \0 \0 020
0016740 003 263 i @ h 032 i \v \0 \0 ] 001 b \0 277
0016760 M 002 275 @ 003 262 > @ 001 273 @ 002 275 i 274 260
0017000 = W * 263 360 i \t \0 \0 \t \0 \0 _ 022 g \0
0017020 \0 i \v \0 \0 263 336 O 022 g \0 \0 i \v \0 \0
0017040 263 323 i @ h 032 i \v \0 \0 ] 002 262 307 M b
0017060 \0 260 303 @ d 004 l 004 360 262 b 273 W * 262 035
0017100 ` \0 \0 001 001 _ 030 277 g \0 \0 O 030 \n \0 \0
0017120 002 001 001 _ 022 g \0 \0 360 263 035 K B 026 ^ 235
0017140 L 221 h 275 N 002 001 h 360 _ 024 261 002 353 K `
0017160 \0 \0 026 ^ 265 \f K d g \0 \0 360 233 261 \0 230
0017200 002 001 h 360 _ 024 261 \0 217 g \0 \0 360 262 6 M
0017220 265 003 210 001 [ b \0 277 M 002 ] 277 K g \0 \0
0017240 \n \0 \0 ^ 242 261 001 322 M 222 261 001 244 A g \0
0017260 \0 360 246 A g \0 \0 360 262 ^ K \t \0 \0 262 X
0017300 261 001 235 K g \0 \0 360 263 N K g \0 \0 360 263
0017320 G K g \0 \0 360 263 @ K g \0 \0 360 263 9 K
0017340 g \0 \0 360 263 2 K g \0 \0 360 263 + K g \0
0017360 \0 360 263 $ K g \0 \0 360 263 035 K g \0 \0 360
0017400 263 026 K g \0 \0 360 255 K g \0 \0 360 247 K d
0017420 g \0 \0 360 233 277 L 242 261 003 J @ h 032 261 003
0017440 G g \0 \0 360 247 K d g \0 \0 360 226 277 M 263
0017460 347 261 002 # g \0 \0 360 250 K d g \0 \0 360 262
0017500 037 277 ` \0 \0 A h K M \r 005 \0 \0 Y 265 006
0017520 g \0 \0 020 002 002 M \t \0 \0 030 277 260 364 g \0
0017540 \0 360 250 K d g \0 \0 360 262 026 277 W * g \0
0017560 \0 360 223 \b \0 \0 277 g \0 \0 272 M 261 376 p g
0017600 \0 \0 360 250 K d g \0 \0 360 262 < 277 W * g
0017620 \0 \0 360 223 \b \0 \0 277 M 233 ` \0 \0 M g \0
0017640 \0 \v \0 \0 260 024 ` \0 \0 001 214 d 001 021 001 016
0017660 O 034 i \n \0 \0 023 002 003 265 362 g \0 \0 i d
0017700 \v \0 \0 277 260 214 g \0 \0 360 262 ) W * g \0
0017720 \0 360 223 \b \0 \0 277 M 001 g \0 \0 360 225 M 002
0017740 275 W , 202 ` \0 \0 M h d i \r 005 \0 \0 277
0017760 261 377 ` K g \0 \0 360 252 K d g \0 \0 360 242
0020000 261 376 235 277 W * g \0 \0 360 223 \b \0 \0 277 W
0020020 , 265 016 o \0 \0 \0 i \n \0 \0 277 261 377 4 `
0020040 \0 \0 M g \0 \0 \v \0 \0 _ 022 W , 001 \n \0
0020060 \0 030 277 W , 002 W , 002 001 O 022 \t \0 \0 330
0020100 030 277 g \0 \0 i d \v \0 \0 277 261 377 005 N 001
0020120 222 261 376 305 K o \0 \0 \0 \n \0 \0 277 h 276 L
0020140 262 y @ d 001 g \0 \0 360 262 037 277 i d \n \0
0020160 \0 h 032 275 261 \0 340 K ` \0 \0 034 262 343 L 242
0020200 261 \0 324 h 275 261 \0 317 001 004 l 004 360 262 ( @
0020220 001 \t \0 \0 263 026 @ 001 ` \0 \0 \n \0 \0 252 @
0020240 001 o \0 \0 \0 \n \0 \0 262 027 W 0 227 @ 001 l
0020260 002 \n \0 \0 277 L 242 261 \0 235 h 275 261 \0 230 W
0020300 . 262 364 @ 001 l F ` \0 \0 h @ \r 005 \0 \0
0020320 [ 262 344 @ 002 275 261 375 f M 263 E @ 004 l 004
0020340 360 262 s @ \t \0 \0 234 W 0 262 j @ l 003 \n
0020360 \0 \0 277 260 a W . 262 ] @ l F ` \0 \0 h
0020400 i \r 005 \0 \0 [ 262 N K d 003 234 002 h 032 275
0020420 K d 001 003 221 001 002 001 [ b \0 277 261 375 @
0020440 004 l 004 360 262 0 @ \t \0 \0 234 W 0 262 ' @
0020460 l 002 \n \0 \0 277 260 036 W . 262 032 @ o \0 \0
0020500 \0 \n \0 \0 256 @ l F ` \0 \0 h i \r 005 \0
0020520 \0 [ 265 033 O 024 253 ` \0 \0 A h @ M \r 005
0020540 \0 \0 271 N 262 1 L 262 026 @ 002 260 026 d 003 226
0020560 002 M 032 275 K 001 [ b \0 277 261 374 302 M \t \0
0020600 \0 021 001 017 N 002 001 265 006 N 002 002 001 A \n \0
0020620 \0 022 261 \0 236 C 262 034 @ M l 002 C 016 262 024
0020640 O 026 265 003 202 261 \0 220 O 020 h 032 _ 026 277 261
0020660 \0 212 M 265 017 @ d 003 222 \t \0 \0 A \n \0 \0
0020700 260 p 002 263 : W > 262 [ @ d 004 l 004 360 262
0020720 T 277 M 001 262 N M 001 004 l 004 360 262 F M 001
0020740 k \n \0 \0 _ 022 g \0 \0 360 263 8 O 022 ` \0
0020760 \0 034 262 0 @ \t \0 \0 l 003 360 263 ' @ \t \0
0021000 \0 l 003 360 263 023 o \0 \0 \0 i \n \0 \0 277 @
0021020 M 032 i \n \0 \0 277 @ M 032 \t \0 \0 A \n \0
0021040 \0 215 @ \t \0 \0 M 001 @ \n \0 \0 A \v \0 \0
0021060 \t \0 \0 _ 026 001 _ 020 277 I 230 I O 020 O 026
0021100 \v \0 \0 277 O 020 c @ O 026 215 d 001 021 001 016
0021120 O 034 i d \v \0 \0 023 002 003 265 361 O 026 \t \0
0021140 \0 020 @ M 032 b \0 277 O 024 263 033 ` \0 \0 A
0021160 h d d g \0 \0 @ g \0 \0 h h 032 032 032 032
0021200 \r 006 \0 \0 271 K d g \0 \0 360 227 277 M \t \0
0021220 \0 261 003 274 g \0 \0 360 231 M ` \0 \0 \n \0 \0
0021240 261 003 255 K g \0 \0 360 250 K d g \0 \0 360 262
0021260 030 277 g \0 \0 ` \0 \0 M g \0 \0 i \f \0 \0
0021300 \t \0 \0 032 261 003 211 g \0 \0 360 252 K d g \0
0021320 \0 360 242 261 001 \0 277 g \0 \0 M 034 265 016 g \0
0021340 \0 M 034 265 \a g \0 \0 M 034 _ 016 265 003 M 002
0021360 _ 022 277 O 016 241 h 216 M 002 O 016 \n \0 \0 d
0021400 002 244 d 001 003 220 001 _ 016 277 ` \0 \0 O 022 g
0021420 \0 \0 i \f \0 \0 276 g \0 \0 W 2 032 W ( 032
0021440 c ( 021 021 021 W ( _ " 277 o \0 \0 \0 g \0
0021460 \0 \n \0 \0 O 001 002 c 2 277 O " d W (
0021500 360 227 277 O 002 c ( 260 024 W ( \n \0 \0 234
0021520 W ( k O " \v \0 \0 O 002 031 277 243 \b \0
0021540 \0 277 023 M 001 g \0 \0 O 016 N \t \0 \0 ` \0
0021560 \0 O 022 g \0 \0 i \f \0 \0 032 032 \v \0 \0 277
0021600 M 001 g \0 \0 \n \0 \0 277 g \0 \0 M 001 h 032
0021620 ` \0 \0 \n \0 \0 \n \0 \0 277 g \0 \0 M 001 h
0021640 032 ` \0 \0 \n \0 \0 \n \0 \0 277 M 001 \t \0 \0
0021660 262 031 M 001 o \0 \0 \0 032 i o \0 \0 \0 g \0
0021700 \0 h d i \r \a \0 \0 277 M 001 i d \v \0 \0
0021720 261 002 ~ g \0 \0 360 263 032 K g \0 \0 360 263 023
0021740 K g \0 \0 360 252 K d g \0 \0 360 242 261 001 037
0021760 277 M 261 \0 324 d _ 032 001 O 032 021 002 023 O &
0022000 001 d g \0 \0 360 263 025 d g \0 \0 360 254 d g
0022020 \0 \0 360 246 d g \0 \0 360 262 p 277 O & 002 264
0022040 003 202 261 \0 241 M k O & \v \0 \0 _ 022 001 g
0022060 \0 \0 360 222 261 \0 216 O 022 264 \t M O 022 002 \n
0022100 \0 \0 275 O & 002 _ 022 002 002 263 ! O 022 d 001
0022120 003 263 026 001 \t \0 \0 254 O 022 001 i d d O 022
0022140 \r 005 \0 \0 245 O 022 001 _ 022 277 O & 001 g \0
0022160 \0 360 247 O & 001 g \0 \0 360 232 g \0 \0 O 022
0022200 h 032 032 _ 022 277 i 260 < d g \0 \0 360 246 d
0022220 g \0 \0 360 262 - 277 O & 002 263 ( M k O &
0022240 \v \0 \0 _ 022 d 262 035 001 g \0 \0 360 263 025 M
0022260 O 022 \n \0 \0 275 O 022 001 3 020 265 003 i _ 022
0022300 201 277 h 022 250 002 003 265 003 202 261 377 + h 256 K
0022320 g \0 \0 360 265 \a K g \0 \0 360 _ 022 277 ` \0
0022340 \0 M g \0 \0 i \f \0 \0 276 A g \0 \0 360 224
0022360 N \t \0 \0 203 N \t \0 \0 276 O 022 242 261 001 R
0022400 W 4 O 022 N h 032 032 032 261 001 D g \0 \0 360
0022420 250 K d g \0 \0 360 262 O 277 ` \0 \0 g \0 \0
0022440 M 034 _ 022 226 M O 022 \n \0 \0 200 M g \0 \0
0022460 i \f \0 \0 \t \0 \0 276 i \t \0 \0 g \0 \0 \n
0022500 \0 \0 262 032 i \t \0 \0 g \0 \0 \n \0 \0 i \t
0022520 \0 \0 N O 022 002 \f \0 \0 261 \0 364 N O 022 002
0022540 \n \0 \0 261 \0 352 g \0 \0 360 247 K d g \0 \0
0022560 360 233 277 M ` \0 \0 I \v \0 \0 261 \0 322 g \0
0022600 \0 360 242 261 \0 236 M 253 o \0 \0 \0 g \0 \0 i
0022620 \v \0 \0 277 ` \0 \0 h g \0 \0 i \f \0 \0 276
0022640 g \0 \0 N \n \0 \0 002 001 265 Y g \0 \0 N \n
0022660 \0 \0 002 001 _ 022 265 8 g \0 \0 N \n \0 \0 002
0022700 001 _ 022 265 036 ` \0 \0 h g \0 \0 i \f \0 \0
0022720 ^ d 002 230 d 002 001 ` \0 \0 360 262 032 001 002 260
0022740 002 001 O 022 d N 002 032 \n \0 \0 260 025 001 001
0022760 001 O 022 002 213 002 001 003 242 N 002 202 N 002 001 001
0023000 N 032 _ 022 277 I g \0 \0 O 022 h 032 032 \n \0
0023020 \0 277 M h 032 O 022 001 h 032 h 032 O 022 002 260
0023040 ) N d 001 K 360 235 002 001 265 006 N 002 002 001 A
0023060 \n \0 \0 260 032 001 246 N 002 001 \t \0 \0 216 M h
0023100 032 N 001 h 032 N 002 001 h 032 \v \0 \0 ^ 277 W
0023120 * 252 W 4 N 003 034 224 m 377 c B 277 I 223 I
0023140 N 030 277 K g \0 \0 360 263 W D 262 O g \0 \0
0023160 W 6 032 W ( 032 c ( 021 021 021 W ( _ " 277
0023200 o \0 \0 \0 g \0 \0 \n \0 \0 O 001 002 c 6
0023220 277 O " d W ( 360 227 277 O 002 c ( 260 024
0023240 W ( \n \0 \0 234 W ( k O " \v \0 \0 O
0023260 002 031 277 243 \b \0 \0 277 023 204 N I \n \0 \0 I
0023300 020 \0 ( 4 4 3 1 Q L I S P X U N
0023320 R E A D 4 4 2 1 Q E R R O R
0023340 ! 4 4 1 0 Q N L E F T 4 3
0023360 7 7 Q T A I L P 4 3 4 4 Q
0023400 % % S T E P - L I S P X A 0 0 0
0023420 3 4 2 4 7 Q L I S P X U S E
0023440 0 4 2 2 7 Q \ A P P E N D 2
0023460 4 2 1 5 Q % % S T E P - E V
0023500 A L 4 1 5 3 Q \ N C O N C 2
0023520 4 1 0 6 Q L I S P X G E T I
0023540 N P U T 4 0 5 2 Q L I S P X
0023560 F I N D 4 0 3 1 Q M E M B
0023600 4 0 1 4 Q M E M B 4 0 0 1 Q
0023620 M E M B 3 7 7 1 Q L I S P
0023640 X F I N D 3 7 5 5 Q E R R O
0023660 R 3 7 2 5 Q L I S P X U S E
0023700 3 6 7 5 Q L I S P X F I X
0023720 3 6 6 3 Q % % S T E P - A P P
0023740 L Y * 3 6 5 4 Q G E T S T R
0023760 E A M 3 6 5 0 Q S T R E A M
0024000 P R O P 3 6 4 2 Q G E T S T
0024020 R E A M 3 6 3 4 Q S T R E A
0024040 M P R O P 3 6 2 6 Q G E T S
0024060 T R E A M 3 6 2 1 Q C O P Y
0024100 3 6 1 6 Q L I S P X F I N D
0024120 3 6 0 5 Q L D I F F 3 5 2
0024140 3 Q \ A P P E N D 2 3 5 1 6
0024160 Q C O P Y 3 5 0 3 Q L I S
0024200 P X F I N D 3 4 1 7 Q L D I
0024220 F F 3 3 7 5 Q N L E F T 3
0024240 2 7 6 Q F N C H E C K 3 2 6
0024260 1 Q B O U N D P 3 2 3 4 Q
0024300 L D I F F 3 2 0 6 Q N L E F
0024320 T 3 0 5 2 Q P R I N T 3 0
0024340 4 2 Q M A P R I N T 3 0 1 2
0024360 Q \ D E F I N E D P 3 0 0 4
0024400 Q / S E T A T O M V A L 3 0
0024420 0 1 Q U N I O N 2 7 6 3 Q
0024440 / S E T A T O M V A L 2 7 6 0
0024460 Q U N I O N 2 7 4 2 Q / R
0024500 E M P R O P 2 7 3 1 Q / P U
0024520 T 2 7 2 4 Q L I S P X F I N
0024540 D 2 7 1 0 Q \ A P P E N D 2
0024560 2 6 7 3 Q E R R O R ! 2 6
0024600 6 2 Q N L E F T 2 6 5 1 Q
0024620 T A I L P 2 6 1 6 Q % % S T
0024640 E P - L I S P X A 0 0 0 2 2 5
0024660 6 0 Q L I S P X F I N D 2 5
0024700 3 1 Q L D I F F 2 4 3 5 Q
0024720 \ A P P E N D 2 2 4 3 2 Q L
0024740 I S P X F I N D 2 3 7 2 Q L
0024760 I S P X U S E C 2 3 5 3 Q \
0025000 A P P E N D 2 2 3 3 6 Q H I
0025020 S T O R Y S A V E 2 2 7 3 Q
0025040 V A L U E S - L I S T 2 2 6 1
0025060 Q S H O W P R I N T 2 2 3 5
0025100 Q L I S P X S T O R E V A L U
0025120 E 2 2 1 5 Q \ M V L I S T
0025140 2 2 1 2 Q % % S T E P - A P P
0025160 L Y 2 2 0 6 Q L I S P X /
0025200 2 2 0 0 Q L I S P X / 2 1 7
0025220 3 Q % % S T E P - E V A L 2
0025240 1 6 7 Q L I S P X / 2 1 6 0
0025260 Q P R I N T 2 1 5 0 Q P R
0025300 I N 1 2 1 3 3 Q A R G T Y P
0025320 E 2 1 2 2 Q A R G T Y P E
0025340 2 0 7 6 Q N T H C H A R 2 0
0025360 3 2 Q % % S T E P - E V A L
0025400 2 0 2 6 Q L I S P X / 1 7 5
0025420 3 Q % % S T E P - E V A L 1
0025440 7 3 3 Q N L A M B D A . A R G
0025460 S 1 6 7 4 Q H I S T O R Y S
0025500 A V E 1 6 5 3 Q F I X S P E
0025520 L L 1 6 3 6 Q G E T L I S
0025540 1 6 1 7 Q A D D S P E L L 1
0025560 6 0 4 Q \ D E F I N E D P 1
0025600 5 3 7 Q F I X S P E L L 1 5
0025620 1 4 Q A D D S P E L L 1 5 0
0025640 1 Q B O U N D P 1 4 5 2 Q
0025660 F I X S P E L L 1 4 1 6 Q A
0025700 D D S P E L L 1 4 0 2 Q G E
0025720 T L I S 1 3 7 0 Q G E T L I
0025740 S 1 3 5 6 Q \ D E F I N E D
0025760 P 1 3 1 3 Q L I S P X R E A
0026000 D 1 2 6 6 Q E R R O R 1 2
0026020 4 4 Q P R I N T 1 2 3 1 Q
0026040 F L E N G T H 1 2 1 3 Q \ N
0026060 C O N C 2 1 2 0 3 Q L I S P
0026100 X F I N D 1 1 6 5 Q P R I N
0026120 T 1 1 5 0 Q E R R O R ! 1
0026140 1 1 1 Q P R I N T H I S T O R
0026160 Y 1 0 6 0 Q E R R O R ! 1
0026200 0 3 5 Q P R I N T 1 0 2 0 Q
0026220 U N D O L I S P X 2 7 7 6 Q
0026240 L I S P X F I N D 7 6 1 Q
0026260 E R R O R ! 7 2 0 Q E R R O
0026300 R ! 6 6 4 Q U N D O L I S P
0026320 X 6 4 7 Q H I S T O R Y S A
0026340 V E 4 3 0 Q B O U N D P 3
0026360 7 5 Q G E T P R O P 2 5 2 Q
0026400 M E M B 2 0 4 Q R E A D L
0026420 I N E 1 7 2 Q S Y N T A X P
0026440 1 5 7 Q S Y N T A X P 1 4
0026460 6 Q C H C O N 1 1 4 3 Q L
0026500 A S T C 1 0 5 Q R E A D L I
0026520 N E 7 1 Q P R I N T 5 7 Q
0026540 G E T T O P V A L 3 6 Q C
0026560 L O C K 2 2 Q \ D E F I N E
0026600 D P ) \r ( 4 3 4 1 Q I N T E R
0026620 N A L 4 3 1 2 Q R E A D B U
0026640 F 4 3 0 1 Q N A M E 4 1 4
0026660 3 Q . . . A R G S 4 0 6 4 Q
0026700 H I S T S T R 0 4 0 4 6 Q
0026720 I N P U T 4 0 4 2 Q L I S P
0026740 X H I S T O R Y 4 0 2 5 Q *
0026760 H I S T O R Y * 4 0 1 0 Q U
0027000 S E - A R G S 3 7 7 5 Q . .
0027020 . A R G S 3 7 6 5 Q E N T R
0027040 Y 3 7 6 1 Q L I S P X H I S
0027060 T O R Y 3 7 5 1 Q \a 3 7 3
0027100 3 Q . . . 3 7 2 1 Q L I S
0027120 P X H I S T O R Y 3 7 1 2 Q
0027140 u s e 3 7 0 3 Q U S E 3 6
0027160 4 5 Q F I X F N 3 6 3 1 Q
0027200 F I X F N 3 6 1 2 Q I N P U
0027220 T 3 5 7 2 Q - 3 5 6 7 Q
0027240 L I S P X H I S T O R Y 3 5 6
0027260 0 Q f i x 3 5 5 1 Q F I X
0027300 3 5 1 0 Q * 3 4 7 7 Q I
0027320 N P U T 3 4 7 3 Q L I S P X
0027340 H I S T O R Y 3 4 6 4 Q r e
0027360 p e a t 3 4 5 5 Q R E P E A
0027400 T 3 4 0 6 Q F 3 3 5 5 Q
0027420 t i m e s 3 3 4 7 Q T I M E
0027440 S 3 3 3 0 Q N O T 3 3 2 3
0027460 Q u n t i l 3 3 1 3 Q U N
0027500 T I L 3 2 1 4 Q F 3 1 6 2
0027520 Q u n t i l 3 1 5 4 Q w h
0027540 i l e 3 1 4 6 Q U N T I L
0027560 3 1 3 7 Q W H I L E 3 1 0 5
0027600 Q r e p e a t 3 0 7 6 Q R
0027620 E P E A T 3 0 6 7 Q r e d o
0027640 3 0 6 0 Q R E D O 3 0 3 3
0027660 Q % \r 2 7 7 6 Q H I S T O
0027700 R Y C O M S 2 7 6 7 Q H I S
0027720 T O R Y C O M S 2 7 5 5 Q L
0027740 I S P X C O M S 2 7 4 6 Q L
0027760 I S P X C O M S 2 7 3 7 Q S
0030000 T A T E 2 7 2 0 Q C O P I E
0030020 S 2 7 1 3 Q L I S P X H I S
0030040 T O R Y 2 7 0 2 Q * H I S T
0030060 O R Y * 2 6 1 3 Q I N T E R
0030100 N A L 2 5 6 4 Q E D I T Q U
0030120 I E T F L G 2 5 5 4 Q I N P
0030140 U T 2 5 4 7 Q L I S P X H I
0030160 S T O R Y 2 5 0 2 Q i n 2
0030200 4 7 3 Q I N 2 4 6 4 Q :
0030220 2 4 5 3 Q N A M E 2 4 4 4 Q
0030240 n a m e 2 4 2 6 Q I N P U
0030260 T 2 4 2 2 Q L I S P X H I S
0030300 T O R Y 2 4 1 7 Q R E T R Y
0030320 : 2 4 1 0 Q R E T R Y 2 4
0030340 0 1 Q r e t r y 2 3 6 7 Q
0030360 L I S P X H I S T O R Y 2 3 6
0030400 1 Q 033 2 3 4 4 Q O R I G I
0030420 N A L 2 3 2 4 Q * G R O U P
0030440 * 2 3 2 0 Q * H I S T O R Y
0030460 * 2 3 1 1 Q L I S P X H I S
0030500 T O R Y 2 1 1 3 Q C L I S P
0030520 C H A R S 2 1 0 3 Q - 1 6
0030540 6 4 Q L I S P X H I S T O R Y
0030560 1 6 4 5 Q L I S P X C O M S
0030600 1 5 3 1 Q L I S P X C O M S
0030620 1 4 4 4 Q L I S P X C O M S
0030640 1 3 6 5 Q M A C R O P R O P
0030660 S 1 3 2 5 Q L I S P X C O M
0030700 S 1 3 0 2 Q L A M B D A 1
0030720 2 3 7 Q a r c h i v e d 1 2
0030740 0 0 Q C O P I E S 1 1 7 4 Q
0030760 L I S P X H I S T O R Y 1 1
0031000 4 3 Q A B O R T 1 1 3 0 Q
0031020 A R C H I V E 1 1 2 1 Q a r
0031040 c h i v e 1 1 0 1 Q L I S P
0031060 X H I S T O R Y 1 0 6 6 Q @
0031100 @ 1 0 5 3 Q A B O R T 1 0
0031120 4 3 Q ? ? 1 0 3 0 Q f o r
0031140 g o t t e n 1 0 0 3 Q L I S
0031160 P X H I S T O R Y 7 7 3 Q E
0031200 N T R I E S 7 6 7 Q L I S P
0031220 X H I S T O R Y 7 5 4 Q A B
0031240 O R T 7 4 3 Q F O R G E T
0031260 7 3 4 Q f o r g e t 7 2 4 Q
0031300 B R E A K ! 7 1 3 Q A B O
0031320 R T 7 0 2 Q R E T R Y : 6
0031340 7 3 Q r e t r y : 6 5 5 Q
0031360 \a 6 3 7 Q L I S P X H I S T
0031400 O R Y 6 3 0 Q u n d o 6 2
0031420 1 Q U N D O 6 0 5 Q N A M
0031440 E 5 7 6 Q n a m e 5 5 5 Q
0031460 r e t r y 5 4 6 Q f i x
0031500 5 4 0 Q u s e 5 3 1 Q r e
0031520 p e a t 5 2 2 Q r e d o 5
0031540 1 3 Q 033 5 0 4 Q . . . 4
0031560 7 5 Q U S E 4 6 6 Q F I X
0031600 4 5 7 Q R E P E A T 4 5 0
0031620 Q R E D O 4 4 1 Q R E T R
0031640 Y 4 2 1 Q : 4 1 3 Q _
0031660 3 7 2 Q * H I S T O R Y * 3
0031700 4 6 Q E 3 2 5 Q O R I G I
0031720 N A L 3 1 4 Q L I S P X H I
0031740 S T O R Y M A C R O S 2 6 2 Q
0031760 O R I G I N A L 2 4 5 Q *
0032000 H I S T O R Y * 2 3 5 Q L I
0032020 S P X H I S T O R Y 1 6 6 Q
0032040 R I G H T B R A C K E T 1 5 3
0032060 Q R I G H T P A R E N 5 4 Q
0032100 H E L P F L A G 4 6 Q B R
0032120 E A K ! 2 6 Q L I S P X U S
0032140 E R F N 1 7 Q L I S P X U S
0032160 E R F N 4 L I S P X M A C R
0032200 O S ) \r ( 4 3 3 6 Q ( % % S
0032220 T E P - L I S P X A 0 0 0 3 )
0032240 3 7 4 6 Q " . . . w h a t ?
0032260 ? " 3 0 3 0 Q " * * * * N o
0032300 t e : " 3 0 2 2 Q ( i s
0032320 a l s o t h e n a m e o f
0032340 a f u n c t i o n . W h e
0032360 n t y p e d i n , i t s
0032400 i n t e r p r e t a t i o n a
0032420 s a h i s t o r y c o m m
0032440 a n d w i l l t a k e p r
0032460 e c e d e n c e . ) \r 2 6 1 0
0032500 Q ( % % S T E P - L I S P X A
0032520 0 0 0 2 ) 2 1 4 4 Q " =
0032540 " 1 6 3 3 Q ( E X P R F I
0032560 L E D E F ) 1 3 7 7 Q ( E X
0032600 P R F I L E D E F C L I S P
0032620 W O R D ) 1 2 6 3 Q " d o e
0032640 s n ' t t a k e a n y a r
0032660 g u m e n t s " \r 1 1 6 1 Q
0032700 ( n o a r c h i v e l i s t
0032720 ) ) \r % % S T E P - E V A L Q T
0032740 A 0 0 0 1 D 1 \r ( N A M E E
0032760 R R O R S E T F 0 L I S P
0033000 X I D ) \0 \f \0 001 002 \0 i d \n \0 \0
0033020 P \n \0 \0 i 020 \0 ( 1 0 Q % % S T
0033040 E P - L I S P X 4 L I S P X
0033060 R E A D ) \r N I L \r ( ) \r % % S
0033100 T E P - E V A L Q T D 1 \r ( I
0033120 0 L I S P X I D F 0 T
0033140 O P L I S P X B U F S ) \0 5 \0
0033160 001 \0 001 @ 251 g \0 \0 b \0 277 \b \0 \0 277 i
0033200 \t \0 \0 277 @ i ` \0 \0 \v \0 \0 277 o \0 \0
0033220 \0 i \n \0 \0 263 357 i \t \0 \0 265 003 P c \0
0033240 277 i \t \0 \0 260 336 \0 ( 6 1 Q T E R
0033260 P R I 4 7 Q C L B U F S 4
0033300 1 Q % % S T E P - E V A L Q T
0033320 A 0 0 0 1 3 0 Q P R O M P T
0033340 C H A R 1 7 Q F R E S H L I
0033360 N E 1 2 Q E N T E R E V A L
0033400 Q T ) \r ( 2 5 Q L I S P X H I
0033420 S T O R Y 4 _ ) \r ( 3 5 Q
0033440 ( % % S T E P - E V A L Q T A
0033460 0 0 0 1 ) ) \r % % S T E P - R E
0033500 A D - E V A L - P R I N T D 1
0033520 \r N I L \0 \n \0 \0 \0 \0 g \0 \0 \t \0
0033540 \0 277 260 371 \0 ( 5 % % S T E P - E
0033560 V A L Q T ) \r ( 2 < ) \r ( ) \r
0033600 % % S T E P - S P R E A D A P P
0033620 L Y * D 1 \r ( P 0 A N S W
0033640 E R I 1 T A I L I 0
0033660 F N ) \0 037 001 \0 \0 002 021 020 \0 @ 004 l
0033700 004 360 264 021 @ 301 \n 312 \0 \0 j 360 244 A k @
0033720 016 020 h i \n \0 \0 020 \0 ( 3 4 Q B R
0033740 E A K 1 ) \r N I L \r ( ) \r % % S
0033760 T E P - S P R E A D A P P L Y
0034000 D 1 \r ( P 0 A N S W E R I
0034020 1 T A I L I 0 F N )
0034040 \0 : 002 \0 \0 002 021 001 @ 004 l 004 360 264 ,
0034060 @ 301 \n 312 \0 \0 j 360 263 ! j 271 A 260 026 d
0034100 001 375 002 I k 330 Y n 002 \0 361 226 h l 4 \n
0034120 \0 \0 277 265 354 I @ 016 020 h i \n \0 \0 020 \0
0034140 ( 6 7 Q B R E A K 1 5 3 Q
0034160 \ L I S P E R R O R ) \r N I L \r
0034200 ( ) \r % % S T E P - . E V A L F
0034220 O R M . D 1 \r ( P 3 E L E
0034240 M E N T I 1 T A I L I
0034260 0 F N ) \0 $ 004 \0 \0 002 @ 021 @ 003
0034300 A 260 025 d 001 [ \t \0 \0 270 I 265 \a H h 032
0034320 Z 201 H & 271 002 003 265 354 J 022 \n \0 \0 020 \0
0034340 ( 4 1 Q % % S T E P - A P P L
0034360 Y 1 4 Q % % S T E P - E V A
0034400 L ) \r N I L \r ( ) \r % % S T E P
0034420 - A P P L Y * D 1 \r ( P 1
0034440 D E F P 0 U ) 001 [ 021 \0 002
0034460 \0 e 021 001 \0 H j 361 264 004 k a 021 001 001 I
0034500 d 004 l 004 360 262 7 277 I 301 \n 312 \0 \0 j 360
0034520 256 I 301 \n 312 \0 ! l 003 360 242 261 \0 201 260 ^
0034540 I 301 \n 311 \0 003 265 004 260 035 Y 001 d g \0 \0
0034560 360 246 d g \0 \0 360 262 $ 277 260 b \t \0 \0 263
0034600 ] I 003 265 350 I H l 002 021 2 006 K d J 363
0034620 242 261 \0 302 277 L 022 \n \0 \0 020 d g \0 \0 360
0034640 226 277 I 002 001 Y 260 232 d g \0 \0 360 262 ) 277
0034660 I 002 003 001 262 ( I 002 001 003 263 " k a H l
0034700 002 021 2 \v O 020 d O 016 363 242 261 \0 236 277 O
0034720 022 022 \n \0 \0 020 g \0 \0 360 262 253 H d k 360
0034740 226 277 k a \t \0 \0 020 l 002 360 230 k a l 002
0034760 a \n \0 \0 020 H d l 003 360 234 277 k a l 002
0035000 a l 003 a \v \0 \0 020 l 004 360 236 k a l 002
0035020 a l 003 a l 004 a \f \0 \0 020 k a H l 002
0035040 021 2 020 O 032 d O 030 363 227 277 O 034 022 \n \0
0035060 \0 020 a _ 277 O 036 265 023 O h 032 _ 036
0035100 _ 034 277 O 032 k 324 _ 032 260 334 O & _ 036
0035120 277 260 362 a 276 M 265 016 N h 032 ] 274 K k 324
0035140 [ 261 377 , N & 275 260 366 a _ 026 277 O 024 265
0035160 024 O 026 h 032 _ 024 _ 022 277 O 020 k 324 _ 020
0035200 261 377 F O 026 & _ 024 277 260 361 \0 ( 3 7 7
0035220 Q % % S T E P - S P R E A D A
0035240 P P L Y 3 5 0 Q % % S T E P
0035260 - S P R E A D A P P L Y * 3 2
0035300 5 Q % % S T E P - S P R E A D
0035320 A P P L Y * 3 0 2 Q % % S T
0035340 E P - S P R E A D A P P L Y *
0035360 2 6 5 Q % % S T E P - S P R E
0035400 A D A P P L Y * 2 4 3 Q % %
0035420 S T E P - S P R E A D A P P L Y
0035440 * 1 5 0 Q F A U L T A P P L
0035460 Y 1 1 5 Q C C O D E P ) \r (
0035500 2 4 7 Q O P E N L A M B D A
0035520 1 7 2 Q N L A M B D A 1 5 5
0035540 Q F U N A R G 1 0 4 Q C L
0035560 : L A M B D A 7 6 Q L A M B
0035600 D A ) \r ( ) \r % % S T E P - A P
0035620 P L Y D 1 \r ( P 0 D E F
0035640 I 2 \ I N T E R N A L I
0035660 1 V I 0 U ) \0 ` 001 \0 \0
0035700 003 @ 021 001 \0 H d 004 l 004 360 262 023 277 H 301
0035720 \n 312 \0 \0 j 360 262 & H 301 \n 311 \0 X 003 262
0035740 3 H 001 d g \0 \0 360 262 037 277 H 002 001 003 263
0035760 + H 002 001 262 & @ A \n \0 \0 020 H 301 \n 312
0036000 \0 ! l 003 360 260 357 g \0 \0 360 235 H 002 001 X
0036020 260 266 H 245 @ A \n \0 \0 020 @ A \n \0 \0 020
0036040 \0 ( 1 3 5 Q % % S T E P - S P
0036060 R E A D A P P L Y 1 2 7 Q F
0036100 A U L T A P P L Y 7 1 Q % %
0036120 S T E P - S P R E A D A P P L Y
0036140 * ) \r ( 1 1 0 Q F U N A R G
0036160 4 5 Q N L A M B D A ) \r ( ) \r
0036200 % % S T E P - \ E V A L F O R M
0036220 D 1 \r ( I 1 T E M P I
0036240 0 F O R M ) \0 230 \0 \0 \0 002 @ 001
0036260 b 002 d 004 l 004 360 262 , 301 \n 312 \0 \0 j 360
0036300 263 034 A 301 \n 312 \0 ! d k 360 222 277 260 @ l
0036320 003 360 262 031 @ 001 @ 002 \n \0 \0 020 A 301 \n 311
0036340 \0 b 002 d 004 ` \0 \0 360 230 277 @ 001 @ 002 \n
0036360 \0 \0 020 004 l 005 360 262 4 A 001 d g \0 \0 360
0036400 262 025 277 A 002 001 b 002 003 242 A 263 311 @ 001 @
0036420 002 \n \0 \0 020 d g \0 \0 360 263 320 d g \0 \0
0036440 360 263 311 d g \0 \0 360 263 302 277 ` \0 \0 233 @
0036460 ` \0 \0 \n \0 \0 b 002 003 265 \a @ \t \0 \0 020
0036500 b \0 261 377 m \0 ( 2 2 0 Q F A U L
0036520 T E V A L 2 0 7 Q G E T H A
0036540 S H 1 4 5 Q % % S T E P - S
0036560 P R E A D A P P L Y 1 0 3 Q
0036600 % % S T E P - . E V A L F O R M
0036620 . 5 4 Q % % S T E P - S P R
0036640 E A D A P P L Y * ) \r ( 2 0 4 Q
0036660 C L I S P A R R A Y 1 7 7 Q
0036700 C L I S P A R R A Y 1 7 0 Q
0036720 O P E N L A M B D A 1 6 1 Q
0036740 L A M B D A 1 5 2 Q C L :
0036760 L A M B D A 1 2 0 Q N L A M
0037000 B D A 7 1 Q 004 003 C L O S U R
0037020 E T Y P E # ) \r ( ) \r % % S T E
0037040 P - \ E V A L D 1 \r ( I 0
0037060 F O R M ) \0 035 \0 \0 \0 001 @ d 003 223
0037100 \t \0 \0 020 004 l 004 360 224 @ \t \0 \0 020 @ d
0037120 3 020 263 373 \t \0 \0 020 \0 ( 3 2 Q \ E
0037140 V A L O T H E R 2 0 Q \ E V
0037160 A L V A R 6 % % S T E P - \
0037200 E V A L F O R M ) \r N I L \r ( )
0037220 \r % % S T E P - E V A L D 1 \r
0037240 ( P 1 * E V A L H O O K *
0037260 P 0 H O O K F N I 1 \
0037300 I N T E R N A L I 0 U F
0037320 2 * E V A L H O O K * ) \0
0037340 022 002 001 \0 002 R 265 \a @ \t \0 \0 020 021 021 001
0037360 H @ \n \0 \0 020 \0 ( 1 7 Q % % S T
0037400 E P - A P P L Y * 6 % % S T
0037420 E P - \ E V A L ) \r N I L \r ( )
0037440 \r H O O K D 1 \r ( P 0 * E
0037460 V A L H O O K * I 0 X )
0037500 \0 \f 001 \0 \0 001 g \0 \0 021 001 \0 @ \t \0 \0
0037520 020 \0 ( 1 1 Q % % S T E P - E V
0037540 A L ) \r ( 2 E V A L - H O O K
0037560 - F U N C T I O N ) \r ( ) \r E V
0037600 A L - H O O K - F U N C T I O N
0037620 D 1 \r ( P 1 V A L U E S
0037640 P 0 * H O O K L E V E L *
0037660 I 1 E N V I R O N M E N T
0037700 I 0 F O R M F 2 * T R
0037720 A C E - O U T P U T * F 3
0037740 * H O O K L E V E L * ) \0 5 002
0037760 002 \0 002 S k 324 021 001 \0 R o \0 \0 \0 H l
0040000 002 326 @ \f \0 \0 @ g \0 \0 h A \f \0 \0 \t
0040020 \0 \0 021 001 001 R o \0 \0 \0 H l 002 326 I \f
0040040 \0 \0 I \t \0 \0 020 \0 ( 6 2 Q V A L
0040060 U E S - L I S T 5 6 Q F O R
0040100 M A T 3 6 Q \ M V L I S T
0040120 3 3 Q C L : E V A L H O O K
0040140 2 2 Q F O R M A T ) \r ( 2 6 Q
0040160 E V A L - H O O K - F U N C T
0040200 I O N ) \r ( 4 6 Q " ~ % % ~
0040220 V @ T V a l u e : ~ S " 1 2
0040240 Q " ~ % % ~ V @ T F o r m :
0040260 ~ S " ) \r H O O K - T E S T D
0040300 1 \r N I L \0 \t \0 \0 \0 \0 o \0 \0 \0
0040320 \t \0 \0 020 \0 ( 6 H O O K ) \r N I
0040340 L \r ( 3 ( C O N S ( C L :
0040360 F L O O R * P R I N T - B A S
0040400 E * 3 ) ( Q U O T E B ) )
0040420 ) \r ( P R E T T Y C O M P R I N
0040440 T C M L S T E P C O M S ) \r (
0040460 R P A Q Q C M L S T E P C O M
0040500 S ( ( * * C M L S T E P
0040520 - - S i n g l e S t e p p e
0040540 r S T E P - - B y K e l
0040560 l y R o a c h * ) ( I N I
0040600 T V A R S ( \r % % * S T E P -
0040620 P R I N T - L E V E L * 4 )
0040640 ( % % * S T E P - P R I N T - L
0040660 E N G T H * 5 ) ( % % * S T
0040700 E P - M A X - I N D E N T A T I
0040720 O N * 4 0 ) ( % % * S T E P
0040740 - S T A T E * N I L ) ( \r %
0040760 % * S T E P - I N D E N T A T I
0041000 O N - L E V E L * 0 ) ) ( F
0041020 N S % % S T E P - A W A K E N
0041040 % % S T E P - C L O S E % %
0041060 S T E P - A B O R T % % S T E
0041100 P - S L E E P \r % % S T E P -
0041120 S T E P - F O R M % % S T E P
0041140 - E V A L - F O R M ) ( F N S
0041160 % % S T E P - P R I N T % %
0041200 S T E P - P R I N T - V A L U E
0041220 S % % S T E P - C O M M A N D
0041240 - L O O P \r % % S T E P - B R
0041260 E A K - L O O P % % S T E P -
0041300 B R E A K - I N T E R R U P T
0041320 % % S T E P - P A R S E - F U N
0041340 C T I O N S % % S T E P S T
0041360 E P ) ( F N S % % S T E P -
0041400 I N I T \r % % S T E P - W H E
0041420 N S E L E C T E D F N ) ( P
0041440 ( % % S T E P - I N I T ) ) (
0041460 C O M S ( * T h i s i s
0041500 a l l s t u f f t h a t s
0041520 h o u l d b e e l i m i n a
0041540 t e d o n c e t h e \r r e
0041560 a l E V A L H O O K m e c h
0041600 a n i s m i s i m p l e m e
0041620 n t e d . * ) ( F N S C L
0041640 : E V A L H O O K A P P L Y H
0041660 O O K ) ( F N S % % S T E P
0041700 - L I S P X \r % % S T E P - E
0041720 V A L Q T % % S T E P - R E A
0041740 D - E V A L - P R I N T ) ( F
0041760 N S % % S T E P - S P R E A D
0042000 A P P L Y * % % S T E P - S P
0042020 R E A D A P P L Y % % S T E P
0042040 - . E V A L F O R M . \r % % S
0042060 T E P - A P P L Y * % % S T E
0042100 P - A P P L Y % % S T E P - \
0042120 E V A L F O R M % % S T E P -
0042140 \ E V A L % % S T E P - E V A
0042160 L ) ( * S e e e x a m p l
0042200 e o n p a g e 3 2 3 * )
0042220 ( \r I N I T V A R S ( * H O
0042240 O K L E V E L * 0 ) ) ( F N
0042260 S H O O K E V A L - H O O K
0042300 - F U N C T I O N H O O K - T
0042320 E S T ) ) ( D E C L A R E :
0042340 D O N T E V A L @ L O A D \r D
0042360 O E V A L @ C O M P I L E D O
0042400 N T C O P Y C O M P I L E R V
0042420 A R S ( A D D V A R S ( N L
0042440 A M A ) ( N L A M L ) ( L A
0042460 M A % % S T E P - A P P L Y *
0042500 S T E P ) ) ) ) ) \r ( R P A Q
0042520 ? % % * S T E P - P R I N T -
0042540 L E V E L * 4 ) \r ( R P A Q ?
0042560 % % * S T E P - P R I N T - L
0042600 E N G T H * 5 ) \r ( R P A Q ?
0042620 % % * S T E P - M A X - I N D
0042640 E N T A T I O N * 4 0 ) \r ( R
0042660 P A Q ? % % * S T E P - S T A
0042700 T E * N I L ) \r ( R P A Q ?
0042720 % % * S T E P - I N D E N T A T
0042740 I O N - L E V E L * 0 ) \r ( %
0042760 % S T E P - I N I T ) \r ( R P A
0043000 Q ? * H O O K L E V E L * 0
0043020 ) \r ( P U T P R O P S C M L S
0043040 T E P C O P Y R I G H T ( "
0043060 X e r o x C o r p o r a t i o
0043100 n " 1 9 8 6 ) ) \r N I L \r
0043116