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