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