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