$ od -c -N 50000 [eris]<LispCore>Morgue>Lyric>ASSIST!3
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r 006 001 ( F I L E
0000100 C R E A T E D " 7 - N o v -
0000120 8 6 0 2 : 4 4 : 3 0 " 006 004 {
0000140 E R I S } < L I S P C O R E > S
0000160 O U R C E S > A S S I S T . \ ;
0000200 3 5 006 001 3 1 0 5 5 \r \r
0000220 | c h a n g e s | | t
0000240 o : | ( V A R S A S S I S
0000260 T C O M S ) \r \r | p
0000300 r e v i o u s | | d a t e : |
0000320 " 2 7 - A u g - 8 6 2 3 : 1
0000340 8 : 2 1 " { E R I S } < L I S
0000360 P C O R E > S O U R C E S > A S
0000400 S I S T . \ ; 3 4 ) \r \r \r ; C
0000420 o p y r i g h t ( c ) 1 9 7
0000440 8 , 1 9 8 2 , 1 9 8 3 , 1
0000460 9 8 4 , 1 9 8 5 , 1 9 8 6
0000500 b y X e r o x C o r p o r a
0000520 t i o n . A l l r i g h t
0000540 s r e s e r v e d . \r ; T h
0000560 e f o l l o w i n g p r o g
0000600 r a m w a s c r e a t e d
0000620 i n 1 9 7 8 b u t h a s
0000640 n o t b e e n p u b l i s h
0000660 e d \r ; w i t h i n t h e
0000700 m e a n i n g o f t h e c
0000720 o p y r i g h t l a w , i s
0000740 f u r n i s h e d u n d e r
0000760 l i c e n s e , \r ; a n d
0001000 m a y n o t b e u s e d ,
0001020 c o p i e d a n d / o r d
0001040 i s c l o s e d e x c e p t
0001060 i n a c c o r d a n c e \r ;
0001100 w i t h t h e t e r m s o
0001120 f s a i d l i c e n s e . \r
0001140 \r ( P R E T T Y C O M P R I N T
0001160 A S S I S T C O M S ) \r \r ( R
0001200 P A Q Q 006 002 A S S I S T C O M
0001220 S 006 001 ( ( C O M S ( F I L E
0001240 P K G C O M S C O N S T A N T
0001260 S ) ) \r
0001300 ( C O M S ( G L
0001320 O B A L V A R S S P E L L I N
0001340 G S 1 S P E L L I N G S 2 U
0001360 S E R W O R D S ) \r
0001400
0001420 ( F N S P R I N T P R O
0001440 P S P R I N T B I N D I N G S
0001460 ) \r
0001500 ( L I S P
0001520 X M A C R O S P L P B \ ;
0001540 ) ) \r
0001560 ( C O M S ( G L O
0001600 B A L V A R S S Y S P R E T T
0001620 Y F L G ) \r
0001640 (
0001660 F N S S H O W P R I N T S H
0001700 O W P R I N 2 ) \r
0001720
0001740 ( I N I T V A R S ( S Y S
0001760 P R E T T Y F L G ) ) ) \r
0002000
0002020 ( C O M S ( G L O B A L V A R
0002040 S L A S T ? L I S P X R E A
0002060 D F N ) \r
0002100 ( F
0002120 N S P R I N T - A R G L I S T
0002140 ) \r
0002160 ( V A R S
0002200 ( L A S T ? ) ) \r
0002220
0002240 ( P R O P A R G N A M E
0002260 S D E F I N E Q ) ) \r
0002300 (
0002320 C O M S ( * \ ; " C o r o
0002340 u t i n e p a c k a g e . " )
0002360 \r
0002400 ( I . S . O
0002420 P R S O U T O F ) \r
0002440
0002460 ( P R O P ( M A C R O
0002500 I N F O ) \r
0002520
0002540 C O R O U T I N E
0002560 G E N E R A T O R T R Y N E X
0002600 T P O S S I B I L I T I E S )
0002620 \r
0002640 ( D E C L A
0002660 R E \ : D O N T E V A L @ L O
0002700 A D D O E V A L @ C O M P I L
0002720 E D O N T C O P Y C O M P I
0002740 L E R V A R S \r
0002760
0003000 ( A D D V A R S
0003020 ( N L A M A ) \r
0003040
*
0003100 ( N L A M L T R Y N E X T P
0003120 O S S I B I L I T I E S G E N
0003140 E R A T O R C O R O U T I N E
0003160 B Q U O T E \r
0003200
*
0003240 A S K U S E R L O
0003260 O K U P ) \r
0003300
0003320 ( L A
0003340 M A A U - R E V O I R A D I
0003360 E U ) ) ) \r
0003400 (
0003420 F N S C O R O U T I N E G E
0003440 N E R A T O R G E N E R A T E
0003460 P R O D U C E G E N E R A T
0003500 E F N ) \r
0003520 ( F
0003540 N S A D I E U A U - R E V O
0003560 I R C L E A N P O S L S T N
0003600 O T E P O S S I B I L I T I E
0003620 S T R Y N E X T T R Y N E X
0003640 T 1 \r
0003660
0003700 P O S S I B I L I T Y F N )
0003720 \r
0003740 ( A D D V A
0003760 R S ( S Y S S P E C V A R S
0004000 C O M V A R # # P O S S L I S
0004020 T # # ) ) ) \r
0004040 ( C O M S
0004060 ( * \ ; " g a i n s p a c e
0004100 p a c k a g e " ) \r
0004120
0004140 ( D E C L A R E \ : D
0004160 O E V A L @ C O M P I L E D O
0004200 N T C O P Y ( R E C O R D S
0004220 G A I N S P A C E ) \r
0004240
0004260 ( G L O B
0004300 A L V A R S G A I N S P A C E
0004320 F O R M S S M A S H P R O P S
0004340 M E N U S M A S H P R O P S L
0004360 S T \r
0004400
0004420 S M A S H
0004440 P R O P S L S T 1 D W I M W A
0004460 I T A R C H I V E L S T L A
0004500 S T H I S T O R Y A R C H I V
0004520 E F L G \r
0004540
0004560 L I S
0004600 P X C O M S L I S P X H I S T
0004620 O R Y E D I T H I S T O R Y )
0004640 ) \r
0004660 ( F N S
0004700 G A I N S P A C E E R A S E P
0004720 R O P S P U R G E H I S T O R
0004740 Y P U R G E H I S T O R Y 1
0004760 P U R G E H I S T O R Y 2 ) \r
0005000
0005020 ( V A R S S M
0005040 A S H P R O P S M E N U ( S M
0005060 A S H P R O P S L S T ) ) \r
0005100
0005120 ( A D D V A R S
0005140 ( G A I N S P A C E F O R M S
0005160 ( ( C A R L I S P X H I S T O
0005200 R Y ) \r
0005220
*
0005260 " p u r g e h i
0005300 s t o r y l i s t s " \r
0005320
*
0005400 ( P U R G E H I S T O R Y R E
0005420 S P O N S E ) \r
0005440
*
0005500 ( ( Y "
0005520 e s " ) \r
0005540
*
0005600 ( N " o " )
0005620 \r
0005640
*
0005700 ( E . " v e r y t
0005720 h i n g " ) ) ) \r
0005740
*
0006000 ( T " d i s c a r d d e
0006020 f i n i t i o n s o n p r o
0006040 p e r t y l i s t s " \r
0006060
*
0006120 ( S E T Q S
0006140 M A S H P R O P S L S T 1 ( C
0006160 O N S ' E X P R \r
0006200
*
0006300 ( C O N S ' C O D E \r
0006320
*
0006420 ( C O N S
0006440 ' S U B R \r
0006460
*
0006560 S M A S H P
0006600 R O P S L S T 1 ) ) ) ) \r
0006620
*
0006660 ) \r
0006700
*
0006740 ( T " d i s c a r d
0006760 o l d v a l u e s o f v a
0007000 r i a b l e s " ( S E T Q \r
0007020
*
0007120 S M
0007140 A S H P R O P S L S T 1 \r
0007160
*
0007260 ( C O N
0007300 S ' V A L U E \r
0007320
*
0007420 S
0007440 M A S H P R O P S L S T 1 ) ) \r
0007460
*
0007520 ) \r
0007540
*
0007600 ( T " e r a s e
0007620 p r o p e r t i e s " ( E R
0007640 A S E P R O P S R E S P O N S
0007660 E ) \r
0007700
0007720 (
0007740 ( Y " e s " E X P L A I N S
0007760 T R I N G \r
0010000
*
0010040 " Y e s - y o u w i l l
0010060 b e a s k e d w h i c h
0010100 p r o p e r t i e s a r e t
0010120 o b e e r a s e d " \r
0010140
*
0010200 ) \r
0010220
*
0010260 ( N "
0010300 o " ) \r
0010320
*
0010360 ( A " l l " C O N F I R M
0010400 F L G T E X P L A I N S T R
0010420 I N G \r
0010440
*
0010500 " A l l - a l l
0010520 p r o p e r t i e s o n m e
0010540 n t i o n e d o n S M A S H
0010560 P R O P S M E N U " \r
0010600
*
0010640 ) \r
0010660
*
0010720 ( E " d i
0010740 t \r " E X P L A I N S T R I N
0010760 G " E d i t - y o u w i
0011000 l l b e a l l o w e d t o
0011020 e d i t a l i s t o f
0011040 p r o p e r t y n a m e s " )
0011060 ) ) \r
0011100
0011120 ( C L I
0011140 S P A R R A Y " e r a s e C
0011160 L I S P t r a n s l a t i o n
0011200 s " ( C L R H A S H C L I S
0011220 P A R R A Y ) ) \r
0011240
*
0011300 ( C H A N G E S A R R A Y
0011320 " e r a s e c h a n g e s a
0011340 r r a y " ( C L R H A S H C
0011360 H A N G E S A R R A Y ) ) \r
0011400
*
0011440 ( S Y S H A S H A
0011460 R R A Y " e r a s e s y s t
0011500 e m h a s h a r r a y " (
0011520 C L R H A S H ) ) \r
0011540
*
0011600 ( ( G E T P R O P ' E D
0011620 I T ' L A S T V A L U E ) \r
0011640
*
0011700 " d i s c a r
0011720 d c o n t e x t o f l a s
0011740 t e d i t " \r
0011760
*
0012020 ( R E M P R O P ' E D I T
0012040 ' L A S T V A L U E ) ) \r
0012060
*
0012120 ( G R E E T H I S
0012140 T \r
0012160
*
0012220 " d i s c a r d i n f o
0012240 r m a t i o n s a v e d f o
0012260 r u n d o i n g y o u r g
0012300 r e e t i n g " \r
0012320
*
0012360 ( S E T Q G
0012400 R E E T H I S T ) ) ) ) ) \r
0012420
0012440 ( D E C L A R E \ : D O N T
0012460 E V A L @ L O A D D O E V A L
0012500 @ C O M P I L E D O N T C O P
0012520 Y C O M P I L E R V A R S \r
0012540
0012560 ( A D D V A R
0012600 S ( N L A M A ) \r
0012620
0012640 ( N L A M
0012660 L T R Y N E X T P O S S I B
0012700 I L I T I E S G E N E R A T O
0012720 R C O R O U T I N E ) \r
0012740
0012760 ( L
0013000 A M A A U - R E V O I R A D
0013020 I E U ) ) ) ) ) \r ( P U T D E F
0013040 ( Q U O T E C O N S T A N T
0013060 S ) ( Q U O T E F I L E P K
0013100 G C O M S ) ' ( ( C O M M A
0013120 C R O ( X ( D E C L A R E \
0013140 : E V A L @ C O M P I L E (
0013160 V A R S . X ) \r
0013200
*
0013260 (
0013300 P ( C O N S T A N T S . X
0013320 ) ) ) ) ) ) ) \r ( D E C L A R E
0013340 \ : D O E V A L @ C O M P I L
0013360 E D O N T C O P Y \r \r ( G L O
0013400 B A L V A R S S P E L L I N G
0013420 S 1 S P E L L I N G S 2 U S
0013440 E R W O R D S ) \r ) \r ( D E F I
0013460 N E Q \r \r ( 006 004 P R I N T P R O
0013500 P S 006 001 \r ( L A M B D A (
0013520 A T ) 006 006 006 001
0013540
*
0013600 006 006 ( * | l m m |
0013620 " 7 - M a y - 8 4 1 5 : 3
0013640 5 " ) 006 001 \r ( R E S E T
0013660 F O R M ( P R I N T L E V E L
0013700 ' ( 2 . 3 ) ) \r
0013720 ( M A P ( O R (
0013740 G E T P R O P L I S T A T ) \r
0013760
0014000 ( G E T P R O P L I S T
0014020 ( O R ( M I S S P E L L E D
0014040 ? A T N I L U S E R W O R
0014060 D S ) \r
0014100
0014120 A T ) ) ) \r
0014140 (
0014160 F U N C T I O N ( L A M B D A
0014200 ( T L ) \r
0014220
0014240 ( P R I N 2 ( C A R T L
0014260 ) \r
0014300
0014320 T T ) \r
0014340
0014360 ( P R I N 1 " :
0014400 " T ) \r
0014420
0014440 ( 006 002 S H O W P R I N T 006 001
0014460 ( C A D R T L ) \r
0014500
0014520 T
0014540 T ) ) ) \r
0014560 ( F U N C T I O N C
0014600 D D R ) ) ) ) ) \r \r ( 006 004 P R I
0014620 N T B I N D I N G S 006 001 \r (
0014640 L A M B D A ( A T P O S F
0014660 L ) 006 006 006 001
0014700
0014720 006 006
0014740 ( * | l m m | " 1 4 - A u g
0014760 - 8 4 2 0 : 3 3 " ) 006 001 \r
0015000
*
0015060 006 006 ( *
0015100 | P r i n t | | o u t | | t
0015120 h e | | b i n d i n g s | |
0015140 o f | \r 006 001
0015160
*
0015240 006 006 | a n | | a t o m
0015260 | ) 006 001 \r ( R E S E T F
0015300 O R M ( P R I N T L E V E L
0015320 2 3 ) \r
0015340 ( P R O G ( N A M E V A L
0015360 E P O S ) \r
0015400 ( O R F L ( S
0015420 E T Q F L T ) ) \r
0015440 ( | p r
0015460 i n t o u t | F L " b i n d
0015500 i n g s f o r " A T " :
0015520 " T ) \r
0015540 ( S E T Q P O S
0015560 ( S T K N T H 0 ( O R P
0015600 O S ' P R I N T B I N D I N G
0015620 S ) ) ) \r
0015640 L P ( O R ( S E T Q
0015660 P O S ( S T K S C A N A T
0015700 P O S P O S ) ) \r
0015720 (
0015740 G O O U T ) ) \r
0015760 ( S E T Q
0016000 V A L ( S T K A R G A T P
0016020 O S ) ) \r
0016040 ( P R I N 1 ' "
0016060 @ " F L ) \r
0016100 ( P R I N 2
0016120 ( S T K N A M E P O S ) \r
0016140
0016160 F L T ) \r
0016200 ( C O
0016220 N D \r
0016240 ( ( N O T ( R E
0016260 A L F R A M E P P O S ) ) \r
0016300
0016320 ( P R I N 1 " / " F
0016340 L ) \r
0016360 ( P R O G N I
0016400 L \r
0016420 ( S E
0016440 T Q E P O S ( S T K N T H
0016460 1 P O S E P O S ) ) \r
0016500
0016520 L P ( C O N D \r
0016540
0016560 ( ( R E
0016600 A L F R A M E P E P O S ) \r
0016620
0016640 ( P
0016660 R I N 2 ( S T K N A M E E P
0016700 O S ) \r
0016720
0016740 F L T ) )
0016760 \r
0017000 (
0017020 ( S E T Q E P O S ( S T K N
0017040 T H 1 E P O S E P O S ) )
0017060 \r
0017100
0017120 ( G O L P ) ) \r
0017140
0017160 ( T ( P R I N 1
0017200 " ? " F L ) ) ) ) ) ) \r
0017220
0017240 ( P R I N 1 ' " : " F L
0017260 ) \r
0017300 ( 006 002 S H O W P R I N T 006
0017320 001 V A L F L T ) \r
0017340 ( A N
0017360 D ( S E T Q P O S ( S T K
0017400 N T H 1 P O S P O S ) ) \r
0017420
0017440 ( G O L P ) ) \r
0017460 O U T
0017500 ( R E L S T K E P O S ) \r
0017520 (
0017540 P R I N 1 " @ " F L ) \r
0017560 L A S
0017600 T \r
0017620 ( P R I N 1 ' " T O P
0017640 : " F L ) \r
0017660 ( 006 002 S H O W
0017700 P R I N T 006 001 ( G E T T O P V
0017720 A L A T ) \r
0017740 F
0017760 L T ) \r
0020000 ( R E T U R N ) ) )
0020020 ) ) \r ) \r \r ( A D D T O V A R
0020040 006 002 L I S P X H I S T O R Y M A
0020060 C R O S 006 001 ( P L ( C O N D
0020100 ( L I S P X L I N E ( M A P
0020120 C ( N L A M B D A . A R G S
0020140 L I S P X L I N E ) \r
0020160
*
0020240 ( F U N C T I O N P R I
0020260 N T P R O P S ) ) ) \r
0020300
*
0020340 ( T ' ( E P L ) ) ) ) \r
0020360
0020400 ( P B
0020420 ( C O N D ( L I S P X L I N
0020440 E ( M A P C ( N L A M B D A
0020460 . A R G S L I S P X L I N E )
0020500 \r
0020520
*
0020560 ( F U N C T I
0020600 O N ( L A M B D A \r
0020620
*
0020700 ( X
0020720 ) \r
0020740
*
0021020 ( P R I N T B I N D I
0021040 N G S \r
0021060
*
0021140 X \r
0021160
*
0021240 ( A
0021260 N D ( E Q L I S P X I D '
0021300 \ : ) \r
0021320
*
0021400 L A S
0021420 T P O S ) ) ) ) ) ) \r
0021440
*
0021500 ( T ' ( E P B ) ) ) ) \r
0021520
0021540 ( \ ;
0021560 N I L N I L ) ) \r \r ( A D D
0021600 T O V A R 006 002 H I S T O R Y C
0021620 O M S 006 001 \ ; ) \r ( D E C L A
0021640 R E \ : D O E V A L @ C O M P
0021660 I L E D O N T C O P Y \r \r ( G
0021700 L O B A L V A R S S Y S P R E
0021720 T T Y F L G ) \r ) \r ( D E F I N
0021740 E Q \r \r ( 006 004 S H O W P R I N T
0021760 006 001 \r ( L A M B D A ( X
0022000 F I L E R D T B L ) 006 006 006 001
0022020
*
0022060 006 006 ( * | l m m | "
0022100 1 4 - A u g - 8 4 2 0 : 4 0 "
0022120 ) 006 001 \r ( C O N D \r
0022140 ( S Y S P R E T T Y F
0022160 L G ( P R I N T D E F X T
0022200 N I L N I L N I L F I L
0022220 E ) \r
0022240 ( T E R P R I F I L E ) ) \r
0022260 ( T ( P R I N T
0022300 X F I L E R D T B L ) ) )
0022320 \r X ) ) \r \r ( 006 004 S H O
0022340 W P R I N 2 006 001 \r ( L A M B
0022360 D A ( X F I L E R D T B L
0022400 ) 006 006 006 001
0022420
0022440 006 006 ( * |
0022460 l m m | " 1 4 - A u g - 8 4
0022500 2 0 : 4 0 " ) 006 001 \r ( C
0022520 O N D \r ( S Y S P
0022540 R E T T Y F L G ( P R I N T D
0022560 E F X T N I L N I L N
0022600 I L F I L E ) ) \r
0022620 ( T ( P R I N 2 X F I L
0022640 E R D T B L ) ) ) \r X
0022660 ) ) \r ) \r \r ( R P A Q ? 006 002 S
0022700 Y S P R E T T Y F L G 006 001 ) \r
0022720 ( D E C L A R E \ : D O E V A
0022740 L @ C O M P I L E D O N T C O
0022760 P Y \r \r ( G L O B A L V A R S
0023000 L A S T ? L I S P X R E A D F
0023020 N ) \r ) \r ( D E F I N E Q \r \r (
0023040 006 004 P R I N T - A R G L I S T 006
0023060 001 \r ( L A M B D A ( A R G
0023100 S A C T U A L S F I L E L
0023120 E F T ) 006 006 006 001
0023140
0023160 006 006 ( * | l m m | " 2
0023200 1 - J u l - 8 6 0 6 : 0 1 " )
0023220 006 001 \r ( P R O G ( T Y
0023240 P E R E M A R G S ) \r
0023260 ( O R L E F T (
0023300 S E T Q L E F T 0 ) ) \r
0023320 \r
0023340 006 006 ( * | P r i n t s |
0023360 | a r g s | | t o | | f n
0023400 , | | m a s t c h i n g | |
0023420 u p | | w i t h | A C T U A
0023440 L S \ , | i f | \r 006 001
0023460 006 006 | s u p p l i
0023500 e d . | D \ o | t h i s |
0023520 | i n | \ a | w a y | | t
0023540 h a t | | l e t s | | u s |
0023560 | k e e p | | t r a c k |
0023600 | o f | \r 006 001
0023620 006 006 | w h e r e | | w e |
0023640 | a r e | ) 006 001 \r \r
0023660 ( 006 002 | i f | 006 001 (
0023700 A N D A R G S ( N L I S T P
0023720 A R G S ) ) \r
0023740 006 002 | t h e n | 006 001
0023760 ( S E T Q A R G S ( L I S
0024000 T ' & N R E S T A R G S ) )
0024020 ) \r ( C O N
0024040 D \r (
0024060 A C T U A L S ( C O N D \r
0024100
0024120 ( ( C D R A C T
0024140 U A L S ) \r
0024160
0024200 ( T A B 0 0 F I L E ) ) \r
0024220
0024240 ( T ( P R I
0024260 N 1 " " F I L E ) ) ) \r
0024300
0024320 ( 006 002 | b i n d | 006 001 M
0024340 O D E 006 002 | w h i l e | 006 001
0024360 A C T U A L S \r
0024400 006
0024420 002 | d o | 006 001 ( C O N D \r
0024440
0024460 ( ( N
0024500 U L L A R G S ) \r
0024520
0024540 ( T A B 0
0024560 0 F I L E ) \r
0024600
0024620 ( P R I N 1
0024640 " . . . + " F I L E ) ) \r
0024660
0024700 ( ( N
0024720 L I S T P A R G S ) \r
0024740
0024760 ( T A B
0025000 0 0 F I L E ) \r
0025020
0025040 ( P R I N
0025060 1 " . " F I L E ) \r
0025100
0025120 ( P
0025140 R I N 2 A R G S F I L E ) \r
0025160
*
0025220 ( S E T Q A R G S ) ) \r
0025240
0025260 ( T (
0025300 S E L E C T Q ( C A R A R G
0025320 S ) \r
0025340
0025360 ( ( & R E S T
0025400 & B O D Y ) \r
0025420
*
0025460 ( T A B 0 0 F I L
0025500 E ) \r
0025520
0025540 ( P
0025560 R I N 2 ( 006 002 | p o p | 006 001
0025600 A R G S ) \r
0025620
*
0025660 F I L E ) \r
0025700
*
0025740 ( P R I N 1
0025760 " " F I L E ) \r
0026000
*
0026040 ( P R I N 2 ( 006 002 |
0026060 p o p | 006 001 A R G S ) \r
0026100
*
0026140 F
0026160 I L E ) \r
0026200
*
0026240 ( P R O G N ( T A B 1 5 1
0026260 F I L E ) \r
0026300
*
0026340 ( P R I N 1
0026360 " = " F I L E ) ) \r
0026400
*
0026440 ( P R I N 2 A C
0026460 T U A L S F I L E ) \r
0026500
*
0026540 ( S E T Q A C T
0026560 U A L S ) \r
0026600
*
0026640 ( T E R P R I F I L E ) \r
0026660
*
0026720 ( R E T U R
0026740 N ) ) \r
0026760
0027000 ( & A L L O
0027020 W - O T H E R - K E Y S \r
0027040
*
0027100 ( S P A C E S
0027120 1 F I L E ) \r
0027140
*
0027200 ( P R I N 2 ( 006 002 | p
0027220 o p | 006 001 A R G S ) \r
0027240
*
0027300 F I
0027320 L E ) \r
0027340
0027360 (
0027400 T E R P R I F I L E ) \r
0027420
*
0027460 ( G O $ $ I T
0027500 E R A T E ) ) \r
0027520
0027540 ( &
0027560 O P T I O N A L ( P R I N 2
0027600 ( S E T Q M O D E ( 006 002 | p
0027620 o p | 006 001 A R G S ) ) \r
0027640
*
0027720 F I L E ) \r
0027740
*
0030000 ( P R I
0030020 N 1 " " F I L E ) \r
0030040
*
0030100 ( P
0030120 R I N 2 ( 006 002 | p o p | 006 001
0030140 A R G S ) \r
0030160
*
0030220 F I
0030240 L E ) ) \r
0030260
0030300 ( & K E Y
0030320 ( 006 002 | w h i l e | 006 001 A R
0030340 G S 006 002 | d o | 006 001 ( P R I
0030360 N 1 " " F I L E ) \r
0030400
*
0030460 ( P R I
0030500 N 2 ( 006 002 | p o p | 006 001 A R
0030520 G S ) \r
0030540
*
0030620 F I L E ) )
0030640 \r
0030660
0030700 ( 006 002
0030720 | w h i l e | 006 001 A C T U A L
0030740 S \r
0030760
*
0031020 006 002 | d o | 006 001 ( P R O G N
0031040 ( T A B 1 5 1 F I L E )
0031060 \r
0031100
*
0031140 ( P R I
0031160 N 1 " = " F I L E ) ) \r
0031200
*
0031260 ( P R I N 2 ( 006 002 | p o
0031300 p | 006 001 A C T U A L S ) \r
0031320
*
0031400 F I L E ) \r
0031420
*
0031500 ( P R I N 1 " " F I
0031520 L E ) \r
0031540
*
0031600 ( P R I N 2 (
0031620 006 002 | p o p | 006 001 A C T U A L
0031640 S ) \r
0031660
*
0031720 F I
0031740 L E ) \r
0031760
*
0032020 ( T E R P R I
0032040 F I L E ) ) \r
0032060
*
0032120 ( R E T U R N ) ) \r
0032140
*
0032200 ( P R I N 2 ( 006 002 | p o
0032220 p | 006 001 A R G S ) \r
0032240
*
0032300 F I L E ) ) ) )
0032320 \r
0032340 ( P R
0032360 O G N ( T A B 1 5 1 F I
0032400 L E ) \r
0032420
0032440 ( P R I N 1 " =
0032460 " F I L E ) ) \r
0032500
0032520 ( P R I N 2 ( C A
0032540 R A C T U A L S ) \r
0032560
0032600 F I
0032620 L E ) \r
0032640
0032660 ( S E T Q A C T U A L S ( C
0032700 D R A C T U A L S ) ) \r
0032720
0032740 ( T E R P R I
0032760 F I L E ) ) ) ) \r
0033000 ( 006 002 | w h i l e | 006 001
0033020 A R G S 006 002 | d o | 006 001 (
0033040 P R I N 2 ( 006 002 | p o p | 006 001
0033060 A R G S ) \r
0033100
0033120 F I L E )
0033140 \r
0033160 ( A
0033200 N D A R G S ( P R I N 1 "
0033220 " F I L E ) ) ) ) ) ) \r ) \r
0033240 \r ( R P A Q Q 006 002 L A S T ? 006
0033260 001 N I L ) \r \r ( P U T P R O P
0033300 S 006 002 D E F I N E Q A R G N
0033320 A M E S 006 001 ( N I L ( X 1
0033340 X I . . . X N ) . X ) )
0033360 \r \r \r \r 006 004 ( * \ ; " C o r
0033400 o u t i n e p a c k a g e . "
0033420 ) 006 001 \r \r ( D E C L A R E \ :
0033440 E V A L @ C O M P I L E \r ( I
0033460 . S . O P R ' O U T O F N I
0033500 L ' ( S U B S T ( G E N S Y
0033520 M ) \r
0033540 '
0033560 G E N V A R \r
0033600
0033620 ' ( B I N D G E N V A R
0033640 _ ( G E N E R A T O R B O
0033660 D Y ) \r
0033700
0033720 E A C H T I M E \r
0033740
*
0034000 ( C O N D ( ( E Q ( S
0034020 E T Q I . V . ( G E N E R A
0034040 T E G E N V A R ) ) \r
0034060
*
0034120 G E N V A R
0034140 ) \r
0034160
0034200 ( G O
0034220 $ $ O U T ) ) ) \r
0034240
0034260 F I N A
0034300 L L Y \r
0034320
0034340 ( R E L S T K (
0034360 C D R G E N V A R ) ) ) ) T
0034400 ) \r ) \r \r ( P U T P R O P S 006
0034420 002 C O R O U T I N E M A C R O
0034440 006 001 ( ( P 1 P 2 F 1 F 2
0034460 ) \r
0034500 ( P R
0034520 O G N ( O R ( S T A C K P
0034540 P 1 ) \r
0034560
0034600 ( S E T Q
0034620 P 1 ( S T K N T H 0 T ) )
0034640 ) \r
0034660
0034700 ( O R ( S T A C K P
0034720 P 2 ) \r
0034740
0034760 ( S E T Q
0035000 P 2 ( S T K N T H 0 T ) )
0035020 ) \r
0035040
0035060 ( ( L A M B D A ( . .
0035100 M A C R O X . ) \r
0035120
0035140 ( C
0035160 O N D \r
0035200
0035220 ( ( E Q
0035240 . . M A C R O X . P 2 ) \r
0035260
*
0035320 P 2 ) \r
0035340
*
0035400 ( T ( R E S U M E P
0035420 2 . . M A C R O X . P 2 ) \r
0035440
*
0035500 F 1 \r
0035520
*
0035560 ( R E T T O
0035600 P 1 F 2 T ) ) ) ) \r
0035620
0035640 (
0035660 S T K N T H - 1 ) ) ) ) ) \r \r
0035700 ( P U T P R O P S 006 002 G E N E
0035720 R A T O R M A C R O 006 001 ( (
0035740 F O R M C O M V A R ) \r
0035760
0036000 ( G E N E R A T
0036020 E F N ( F U N C T I O N ( L
0036040 A M B D A N I L F O R M ) )
0036060 \r
0036100
0036120 C O M V A R ) ) ) \r \r ( P
0036140 U T P R O P S 006 002 T R Y N E X
0036160 T M A C R O 006 001 ( ( P L S T
0036200 N O M O R E M S G ) \r
0036220
0036240 ( C O N D \r
0036260
0036300 ( ( S E T Q P
0036320 L S T ( T R Y N E X T 1 P L
0036340 S T M S G ) ) \r
0036360
0036400 ( P R O G 1 ( C A
0036420 R P L S T ) \r
0036440
0036460 ( S E T
0036500 Q P L S T ( C D R P L S T
0036520 ) ) ) ) \r
0036540
0036560 ( T ( S E T Q P L S T (
0036600 C D R P L S T ) ) \r
0036620
0036640 N O M O R E
0036660 ) ) ) ) \r \r ( P U T P R O P S
0036700 006 002 P O S S I B I L I T I E S
0036720 M A C R O 006 001 ( ( F O R M ) \r
0036740
0036760 (
0037000 P O S S I B I L I T Y F N ( F
0037020 U N C T I O N ( L A M B D A
0037040 N I L F O R M ) ) ) ) ) \r \r (
0037060 P U T P R O P S 006 002 C O R O U
0037100 T I N E I N F O 006 001 E V A L
0037120 ) \r \r ( P U T P R O P S 006 002 G
0037140 E N E R A T O R I N F O 006 001
0037160 E V A L ) \r \r ( P U T P R O P S
0037200 006 002 T R Y N E X T I N F O 006
0037220 001 E V A L ) \r \r ( P U T P R O
0037240 P S 006 002 P O S S I B I L I T I
0037260 E S I N F O 006 001 E V A L ) \r
0037300 ( D E C L A R E \ : D O N T E
0037320 V A L @ L O A D D O E V A L @
0037340 C O M P I L E D O N T C O P Y
0037360 C O M P I L E R V A R S \r \r
0037400 ( A D D T O V A R 006 002 N L A M
0037420 A 006 001 ) \r \r ( A D D T O V A R
0037440 006 002 N L A M L 006 001 T R Y N E
0037460 X T P O S S I B I L I T I E S
0037500 G E N E R A T O R C O R O U
0037520 T I N E B Q U O T E A S K U
0037540 S E R L O O K U P ) \r \r ( A D D
0037560 T O V A R 006 002 L A M A 006 001 A
0037600 U - R E V O I R A D I E U ) \r
0037620 ) \r ( D E F I N E Q \r \r ( 006 004 C
0037640 O R O U T I N E 006 001 \r ( N L
0037660 A M B D A ( C A L L P T R # #
0037700 C O R O U T P T R # # C O R
0037720 O U T F O R M # # E N D F O R
0037740 M # # ) 006 006 ( * | w t
0037760 : | 1 7 - A P R - 7 6 1 9
0040000 4 8 ) 006 001 \r
0040020 \r 006 006 ( *
0040040 C A L L P T R # # | a n d |
0040060 C O R O U T P T R # # A R E
0040100 | t h e | | n a m e s | | o
0040120 f | | c o m m u n i c a t i o
0040140 n | \r 006 001
0040160 006 006 | v a r i a b l e s | | i
0040200 n | | t h e | | f u n c t i
0040220 o n | | c a l l i n g | C O
0040240 R O U T I N E . \r 006 001
0040260 006 006 | T h e y | | w
0040300 i l l | | b e | | s e t |
0040320 | t o | | s t k p t r s | |
0040340 i f | | t h e y | A R E |
0040360 n o t | | a l r e a d y | |
0040400 o n e s . | \r 006 001
0040420 006 006 C O R O U T F O R M #
0040440 # | i s | | t h e | | f o
0040460 r m | | w h i c h | | s t a
0040500 r t s | | t h e | C O R O U
0040520 T I N E . \r 006 001
0040540 006 006 E N D F O R M # # | i
0040560 s | | e v a l u a t e d | |
0040600 i n | | t h e | | c o n t e
0040620 x t | | o f | | t h e | |
0040640 c a l l e r | | w h e n | \r
0040660 006 001 006 006 C O
0040700 R O U T F O R M # # | r e t u
0040720 r n s . | ) 006 001 \r \r ( S
0040740 E T Q C A L L P T R # # ( S
0040760 E T C A L L P T R # # ( O R
0041000 ( S T A C K P ( E V A L V
0041020 C A L L P T R # # ) ) \r
0041040
*
0041100 ( S T K N T H 0 T ) )
0041120 ) ) \r ( S E T Q C O R
0041140 O U T P T R # # ( S E T C O
0041160 R O U T P T R # # ( O R ( S
0041200 T A C K P ( E V A L V C O R
0041220 O U T P T R # # ) ) \r
0041240
*
0041300 ( S T K N T H 0
0041320 T ) ) ) ) \r ( R E S U M
0041340 E C O R O U T P T R # # ( S
0041360 T K N T H - 1 ' C O R O U T
0041400 I N E ) \r
0041420 C O R O U T P T R # # ) \r
0041440 ( E V A L C O R O U T F O R
0041460 M # # ) \r ( R E T T O
0041500 C A L L P T R # # ( E N V E V
0041520 A L E N D F O R M # # ( S T
0041540 K N T H - 1 ' C O R O U T I
0041560 N E ) \r
0041600
0041620 N I L T ) \r
0041640 T ) ) ) \r \r ( 006 004 G E N E R
0041660 A T O R 006 001 \r ( N L A M B D
0041700 A ( F O R M # # C O M V A R
0041720 # # ) \r ( C O N D \r
0041740 ( C O M V A R # # (
0041760 S E T Q C O M V A R # # ( E
0042000 V A L C O M V A R # # ) ) ) )
0042020 \r ( C O N D \r
0042040 ( ( N L I S T P C O M V A
0042060 R # # ) \r ( S E
0042100 T Q C O M V A R # # ( C O N
0042120 S ( S T K N T H 0 T ) \r
0042140
0042160 ( S T K
0042200 N T H 0 T ) ) ) ) \r
0042220 ( T ( C O N D \r
0042240 ( ( N O T (
0042260 S T A C K P ( C A R C O M V
0042300 A R # # ) ) ) \r
0042320 ( F R P L A C A C
0042340 O M V A R # # ( S T K N T H
0042360 0 T ) ) ) ) \r
0042400 ( C O N D \r
0042420 ( ( N O T ( S T A C
0042440 K P ( C D R C O M V A R # #
0042460 ) ) ) \r
0042500 ( F R P L A C D C O M V A
0042520 R # # ( S T K N T H 0 T )
0042540 ) ) ) ) ) \r ( R E S U M
0042560 E ( C D R C O M V A R # # )
0042600 \r ( S T K
0042620 N T H - 1 ' G E N E R A T O
0042640 R ( C A R C O M V A R # # )
0042660 ) \r C O M
0042700 V A R # # ) \r ( E V A L
0042720 F O R M # # ) \r ( R E
0042740 T T O ( C A R C O M V A R #
0042760 # ) \r C O
0043000 M V A R # # T ) ) ) \r \r ( 006 004
0043020 G E N E R A T E 006 001 \r ( L A
0043040 M B D A ( H A N D L E V A L
0043060 ) \r ( R E S U M E ( C
0043100 A R H A N D L E ) \r
0043120 ( C D R H A N D L
0043140 E ) \r V A
0043160 L ) ) ) \r \r ( 006 004 P R O D U C E
0043200 006 001 \r ( L A M B D A ( V A
0043220 L ) \r ( R E S U M E (
0043240 C D R C O M V A R # # ) \r
0043260 ( C A R C O
0043300 M V A R # # ) \r
0043320 V A L ) ) ) \r \r ( 006 004 G E
0043340 N E R A T E F N 006 001 \r ( L A
0043360 M B D A ( F N C O M V A R #
0043400 # ) \r ( 006 002 D E C L A R
0043420 E 006 001 ( S P E C V A R S C O
0043440 M V A R # # ) ) 006 006 006 001
0043460
0043500 006 006 ( * | l m
0043520 m : | " 1 1 - F E B - 7 7 1
0043540 5 : 5 1 : 3 4 " ) 006 001 \r
0043560 ( C O N D \r ( ( N
0043600 L I S T P C O M V A R # # ) \r
0043620 ( S E T Q C O
0043640 M V A R # # ( C O N S ( S T
0043660 K N T H 0 T ) \r
0043700
0043720 ( S T K N T H 0
0043740 T ) ) ) ) \r ( T
0043760 ( C O N D \r
0044000 ( ( N O T ( S T A C K
0044020 P ( C A R C O M V A R # # )
0044040 ) ) \r
0044060 ( F R P L A C A C O M V A R
0044100 # # ( S T K N T H 0 T ) )
0044120 ) ) \r ( C O
0044140 N D \r
0044160 ( ( N O T ( S T A C K P ( C
0044200 D R C O M V A R # # ) ) ) \r
0044220 ( F R
0044240 P L A C D C O M V A R # # (
0044260 S T K N T H 0 T ) ) ) ) ) )
0044300 \r ( R E S U M E ( C D
0044320 R C O M V A R # # ) \r
0044340 ( S T K N T H -
0044360 1 ' G E N E R A T E F N ( C
0044400 A R C O M V A R # # ) ) \r
0044420 C O M V A R #
0044440 # ) \r ( A P P L Y * F
0044460 N ) \r ( R E T T O ( C
0044500 A R C O M V A R # # ) \r
0044520 C O M V A R # #
0044540 T ) ) ) \r ) \r ( D E F I N E Q
0044560 \r \r ( 006 004 A D I E U 006 001 \r (
0044600 L A M B D A V A L # # \r
0044620 ( C O N D \r ( (
0044640 N O T ( Z E R O P V A L # #
0044660 ) ) \r ( 006 002 N O
0044700 T E 006 001 ( A R G V A L # #
0044720 1 ) ) ) ) \r ( R E T T O
0044740 ( C A R C O M V A R # # ) \r
0044760 ( P R O G
0045000 1 P O S S L I S T # # ( S E
0045020 T Q P O S S L I S T # # N I
0045040 L ) ) \r T
0045060 ) ) ) \r \r ( 006 004 A U - R E V O I
0045100 R 006 001 \r ( L A M B D A V A
0045120 L # # \r ( C O N D \r
0045140 ( ( N O T ( Z E R O
0045160 P V A L # # ) ) \r
0045200 ( 006 002 N O T E 006 001 ( A R G
0045220 V A L # # 1 ) ) ) ) \r
0045240 ( 006 002 N O T E 006 001 C O M V A
0045260 R # # ) \r ( R E S U M E
0045300 ( C D R C O M V A R # # ) \r
0045320 ( C A R
0045340 C O M V A R # # ) \r
0045360 ( P R O G 1 P O S S
0045400 L I S T # # ( S E T Q P O S
0045420 S L I S T # # N I L ) ) ) ) )
0045440 \r \r ( 006 004 C L E A N P O S L S T
0045460 006 001 \r ( L A M B D A ( P L
0045500 S T ) \r ( 006 002 | f o r |
0045520 006 001 X 006 002 | i n | 006 001 P L
0045540 S T 006 002 | d o | 006 001 ( C O N
0045560 D \r
0045600
0045620 ( ( A N D ( L I S T P X )
0045640 \r
0045660
0045700 ( S T A C K P ( C
0045720 A R X ) ) ) \r
0045740
0045760 ( R E L S T K
0046000 ( C A R X ) ) \r
0046020
0046040 ( R E L S T K
0046060 ( C D R X ) ) ) ) ) ) ) \r \r
0046100 ( 006 004 N O T E 006 001 \r ( L A M
0046120 B D A ( V A L L S T F L G )
0046140 \r ( S E T Q P O S S L
0046160 I S T # # ( N C O N C P O S
0046200 S L I S T # # ( C O N D \r
0046220
*
0046260 ( L S T F L G
0046300 V A L ) \r
0046320
0046340 (
0046360 T ( L I S T V A L ) ) ) ) )
0046400 ) ) \r \r ( 006 004 P O S S I B I L I
0046420 T I E S 006 001 \r ( N L A M B D
0046440 A ( F O R M # # ) 006 006 006 001
0046460
*
0046520 006 006 ( * D D \
0046540 : " 5 - O c t - 8 1 1 7 :
0046560 0 8 " ) 006 001 \r ( P R O G
0046600 ( C O M V A R # # P O S S L
0046620 I S T # # ) \r
0046640 ( 006 002 P R O D U C E 006 001 ( L
0046660 I S T ( S E T Q C O M V A R
0046700 # # ( C O N S ( S T K N T H
0046720 - 1 ' P O S S I B I L I T I
0046740 E S ) \r
0046760
*
0047020 ( S T K N T H 0 T ) ) )
0047040 ) ) \r ( E V
0047060 A L F O R M # # ) \r
0047100 ( 006 002 A D I E U 006 001 )
0047120 ) ) ) \r \r ( 006 004 T R Y N E X T 006
0047140 001 \r ( N L A M B D A ( P L
0047160 S T # # E N D F O R M # # V
0047200 A L # # ) \r ( P R O G
0047220 ( P L 1 # # ) \r
0047240 ( S E T P L S T # # ( C
0047260 D R ( S E T Q P L 1 # # (
0047300 006 002 T R Y N E X T 1 006 001 ( E V
0047320 A L P L S T # # ) \r
0047340
*
0047400 ( E V A L V
0047420 A L # # ) ) ) ) ) \r
0047440 ( C O N D \r
0047460 ( ( N U L L P L
0047500 1 # # ) \r
0047520 ( R E T E V A L ' T R Y
0047540 N E X T E N D F O R M # # ) )
0047560 \r ( T
0047600 ( R E T U R N ( C A R P L
0047620 1 # # ) ) ) ) ) ) ) \r \r ( 006 004 T
0047640 R Y N E X T 1 006 001 \r ( L A M
0047660 B D A ( P L S T # # M S G #
0047700 # ) \r ( P R O G ( P L
0047720 1 # # ) \r L P (
0047740 C O N D \r
0047760 ( ( N U L L P L S T # # )
0050000 \r (
0050020 R E T U R N N I L ) ) ) \r
0050040 ( S E T Q P L
0050060 1 # # ( C A R P L S T # # )
0050100 ) \r ( C O N
0050120 D \r (
0050140 ( O R ( N L I S T P P L 1 #
0050160 # ) \r
0050200 ( N O T ( S T A C K
0050220 P ( C A R P L 1 # # ) ) ) )
0050240 \r (
0050260 R E T U R N P L S T # # ) ) )
0050300 \r ( S E T Q
0050320 P L S T # # ( N C O N C (
0050340 R E S U M E ( C A R P L 1 #
0050360 # ) \r
0050400
0050420 ( C D R P L 1
0050440 # # ) \r
0050460
0050500 M S G # # ) \r
0050520
0050540 ( C
0050560 D R P L S T # # ) ) ) \r
0050600 ( G O L P ) ) )
0050620 ) \r \r ( 006 004 P O S S I B I L I T
0050640 Y F N 006 001 \r ( L A M B D A
0050660 ( F N C O M V A R # # P O S
0050700 S L I S T # # ) \r ( 006 002
0050720 D E C L A R E 006 001 ( L O C A L
0050740 V A R S F N ) \r
0050760 ( S P E C V A R S C O
0051000 M V A R # # P O S S L I S T #
0051020 # ) ) 006 006 006 001
0051040 006 006 ( * |
0051060 l m m : | " 1 1 - F E B - 7 7
0051100 1 5 : 5 8 : 4 8 " ) 006 001 \r
0051120 ( 006 002 P R O D U C E 006 001 (
0051140 L I S T ( S E T Q C O M V A
0051160 R # # ( C O N S ( S T K N T
0051200 H - 1 ' P O S S I B I L I T
0051220 Y F N ) \r
0051240
0051260 ( S T
0051300 K N T H 0 T ) ) ) ) ) \r
0051320 ( A P P L Y * F N ) \r
0051340 ( 006 002 A D I E U 006 001 ) ) ) \r
0051360 ) \r \r ( A D D T O V A R 006 002 S
0051400 Y S S P E C V A R S 006 001 C O M
0051420 V A R # # P O S S L I S T # #
0051440 ) \r \r \r \r 006 004 ( * \ ; " g a
0051460 i n s p a c e p a c k a g e "
0051500 ) 006 001 \r \r ( D E C L A R E \ :
0051520 D O E V A L @ C O M P I L E D
0051540 O N T C O P Y \r ( D E C L A R
0051560 E \ : E V A L @ C O M P I L E
0051600 \r \r ( R E C O R D 006 002 G A I N
0051620 S P A C E 006 001 ( P R E C H E C
0051640 K M E S S A G E F O R M K
0051660 E Y L S T ) \r
0051700 ( S Y S T E M
0051720 ) ) \r ) \r \r ( D E C L A R E \ :
0051740 D O E V A L @ C O M P I L E
0051760 D O N T C O P Y \r \r ( G L O B A
0052000 L V A R S G A I N S P A C E F
0052020 O R M S S M A S H P R O P S M
0052040 E N U S M A S H P R O P S L S
0052060 T S M A S H P R O P S L S T 1
0052100 D W I M W A I T A R C H I V
0052120 E L S T \r L A S
0052140 T H I S T O R Y A R C H I V E
0052160 F L G L I S P X C O M S L I
0052200 S P X H I S T O R Y E D I T H
0052220 I S T O R Y ) \r ) \r ) \r ( D E F
0052240 I N E Q \r \r ( 006 004 G A I N S P A
0052260 C E 006 001 \r ( L A M B D A N
0052300 I L
0052320
*
0052360 006 006 ( * | w t : | 3 0 -
0052400 J U L - 7 7 1 3 3 5 ) 006 001 \r
0052420 ( S E T Q S M A S H P
0052440 R O P S L S T 1 N I L ) \r
0052460 ( M A P C G A I N S P A C
0052500 E F O R M S ( F U N C T I O N
0052520 ( L A M B D A ( X ) \r
0052540
*
0052600 ( P R O G ( R E S P O N S
0052620 E ) \r
0052640
0052660 ( A
0052700 N D ( N E Q ( P O S I T I O
0052720 N T ) \r
0052740
*
0053000 0 ) \r
0053020
*
0053060 ( T E
0053100 R P R I T ) ) \r
0053120
*
0053160 ( E R S E T Q ( A N D
0053200 ( E V A L ( 006 002 | f e t c h
0053220 | 006 001 ( 006 002 G A I N S P A C E
0053240 006 001 P R E C H E C K ) \r
0053260
*
0053340 006 002
0053360 | o f | 006 001 X ) ) \r
0053400
*
0053460 ( N E Q ( S E T Q R E
0053500 S P O N S E \r
0053520
*
0053600 ( A S K U S E R D W
0053620 I M W A I T ' N \r
0053640
*
0053720 (
0053740 L I S T ( 006 002 | f e t c h | 006
0053760 001 ( 006 002 G A I N S P A C E 006 001
0054000 \r
0054020
*
0054120 M E S
0054140 S A G E ) \r
0054160
*
0054260 006 002 | o f | 006 001 X ) )
0054300 \r
0054320
*
0054400 ( 006 002 | f e t c h |
0054420 006 001 ( 006 002 G A I N S P A C E 006
0054440 001 K E Y L S T ) \r
0054460
*
0054560 006 002 | o f | 006 001 X ) \r
0054600
*
0054700 T ) ) \r
0054720
*
0055000 ' N ) \r
0055020
*
0055100 ( E V A L ( 006 002 | f e t c h |
0055120 006 001 ( 006 002 G A I N S P A C E 006
0055140 001 F O R M ) 006 002 | o f | 006 001
0055160 X ) ) ) ) ) ) ) \r
0055200 ) \r ( C O N D \r
0055220 ( S M A S H P R O
0055240 P S L S T 1 ( T E R P R I T
0055260 ) \r
0055300 ( P R I N 1 " m a p a t o m s
0055320 c a l l e d t o e r a s e
0055340 t h e i n d i c a t e d p
0055360 r o p e r t i e s . . . " T )
0055400 \r (
0055420 M A P A T O M S ( F U N C T I
0055440 O N ( L A M B D A ( A T M )
0055460 \r
0055500
0055520 ( R E M P R O P L I S
0055540 T A T M S M A S H P R O P S
0055560 L S T 1 ) ) ) ) \r
0055600 ( M A P C S M A
0055620 S H P R O P S L S T 1 ( F U N
0055640 C T I O N ( L A M B D A ( X
0055660 ) \r
0055700
*
0055740 ( A N D ( L I S T P X ) \r
0055760
*
0056040 ( E V A L X ) ) ) ) )
0056060 ) ) \r ' | d o n e | ) )
0056100 \r \r ( 006 004 E R A S E P R O P S 006
0056120 001 \r ( L A M B D A ( R E S
0056140 P O N S E )
0056160
0056200 006
0056220 006 ( * | w t : | 3 0 - J U L
0056240 - 7 7 1 2 4 3 ) 006 001 \r
0056260 ( S E T Q S M A S H P R O P
0056300 S L S T 1 ( U N I O N S M A
0056320 S H P R O P S L S T 1 S M A S
0056340 H P R O P S L S T ) ) \r
0056360 \r
0056400 006 006 ( * | s m a s h p r o p
0056420 s l s t | | l e t s | | u s
0056440 e r | | p r e s p e c i f y |
0056460 | p r o p e r t i e s | | t
0056500 o | | a l w a y s | | b e |
0056520 \r 006 001 006 006
0056540 | s m a s h e d , | | a n d |
0056560 | n o t | | t o | | a s k
0056600 | | h i m . | ) 006 001 \r \r
0056620 ( S E L E C T Q R E S P O N
0056640 S E \r ( Y ( T
0056660 E R P R I T ) \r
0056700 ( P R I N 1 " i n d i
0056720 c a t e w h i c h o n e s :
0056740 \r " T ) \r
0056760 ( M A P C S M A S H P R O P
0057000 S M E N U ( F U N C T I O N
0057020 ( L A M B D A ( X ) \r
0057040
*
0057100 ( A N D ( S O
0057120 M E ( C D R X ) \r
0057140
*
0057220 ( F U N C T I O N ( L A M
0057240 B D A ( X ) \r
0057260
*
0057340 ( A N D
0057360 ( L I T A T O M X ) \r
0057400
*
0057500 ( N O T ( M E M B X
0057520 S M A S H P R O P S L S T 1 )
0057540 ) \r
0057560
*
0057640 ) ) ) ) \r
0057660
*
0057740 ( E Q ( A S K U S E R N I L
0057760 N I L ( L I S T ( C A R
0060000 X ) ) \r
0060020
*
0060100 N I L T ) \r
0060120
*
0060160 ' Y ) \r
0060200
*
0060260 ( S E T Q S M A S H P R O P
0060300 S L S T 1 ( U N I O N ( C D
0060320 R X ) \r
0060340
*
0060440 S M A S H P R O P S L S T 1
0060460 ) ) ) ) ) ) ) \r
0060500 ( ( A E ) \r
0060520 ( S E T Q S M A S H
0060540 P R O P S L S T 1 ( M A P C O
0060560 N C S M A S H P R O P S M E N
0060600 U ( F U N C T I O N ( L A M
0060620 B D A ( X ) \r
0060640
*
0060720 ( A
0060740 P P E N D ( C D R X ) ) ) )
0060760 ) ) \r
0061000 ( A N D ( E Q R E S P O N S
0061020 E ' E ) \r
0061040 ( E D I T E (
0061060 S O R T S M A S H P R O P S L
0061100 S T 1 ) ) ) ) \r
0061120 ( H E L P ) ) ) ) \r \r ( 006 004 P U
0061140 R G E H I S T O R Y 006 001 \r (
0061160 L A M B D A ( T Y P E ) 006 006 006
0061200 001
0061220
0061240 006 006
0061260 ( * | w t : | " 1 4 - N O V
0061300 - 7 8 0 2 : 0 3 " ) 006 001 \r
0061320 ( R E S E T V A R S ( A R
0061340 C H I V E F L G ) \r
0061360 ( S E L E C T
0061400 Q T Y P E \r
0061420 ( E ( S E
0061440 T Q A R C H I V E F L G T )
0061460 ) \r
0061500 ( Y ( S E T Q T Y
0061520 P E ( A S K U S E R N I L
0061540 N I L \r
0061560
0061600 " p u r g e e v e r y t h i n
0061620 g , o r j u s t t h e p
0061640 r o p e r t i e s , e . g .
0061660 S I D E , L I S P X P R I N T
0061700 , e t c . ? " \r
0061720
*
0061760 ' ( ( Y " e s - e v
0062000 e r y t h i n g " R E T U R N
0062020 T ) \r
0062040
0062060 ( N
0062100 " o - j u s t t h e p
0062120 r o p e r t i e s " R E T U R
0062140 N ' N I L ) \r
0062160
*
0062220 ( E " v e r y t h i n g "
0062240 R E T U R N T ) \r
0062260
*
0062320 ( J " u s t t h e
0062340 p r o p e r t i e s " R E T
0062360 U R N ' N I L ) ) T ) ) \r
0062400
0062420 ( T E R P R I T ) \r
0062440
0062460 ( S E T Q A R C H
0062500 I V E F L G ( E Q ( A S K U
0062520 S E R N I L N I L " A R C
0062540 H I V E L S T a n d n a m e
0062560 d c o m m a n d s t o o ?
0062600 " \r
0062620
*
0062660 N I L T ) \r
0062700
*
0062740 ' Y ) ) ) \r
0062760
0063000 ( H E L P ) ) \r
0063020 ( 006 002 P U R G E
0063040 H I S T O R Y 1 006 001 L I S P X
0063060 H I S T O R Y T Y P E ) \r
0063100 ( 006 002
0063120 P U R G E H I S T O R Y 1 006 001
0063140 E D I T H I S T O R Y T Y P E
0063160 ) \r
0063200 ( 006 002 P U R G E H I S T O R Y
0063220 1 006 001 L A S T H I S T O R Y
0063240 T Y P E ) \r
0063260 ( C O N D \r
0063300 ( A R
0063320 C H I V E F L G ( 006 002 P U R G
0063340 E H I S T O R Y 1 006 001 A R C H
0063360 I V E L S T T Y P E ) \r
0063400
0063420 ( M A P C L I S P
0063440 X C O M S ( F U N C T I O N
0063460 ( L A M B D A ( C O M ) \r
0063500
*
0063560 ( A N D ( L I T A T O M
0063600 C O M ) \r
0063620
*
0063700 ( C O N D \r
0063720
*
0064000 ( T Y P E ( R E M P R O
0064020 P C O M ' * H I S T O R Y *
0064040 ) ) \r
0064060
*
0064140 ( T ( 006 002 P U R G E H I S T O
0064160 R Y 2 006 001 \r
0064200
*
0064260 ( C A D D R ( G
0064300 E T P R O P C O M ' * H I S
0064320 T O R Y * ) ) ) ) ) ) \r
0064340
*
0064420 ) ) ) ) ) \r
0064440 ( R E T U R N ) ) )
0064460 ) \r \r ( 006 004 P U R G E H I S T O
0064500 R Y 1 006 001 \r ( L A M B D A
0064520 ( L S T F L G ) 006 006 006 001
0064540
*
0064600 006 006 ( * D D \ :
0064620 " 2 6 - O c t - 8 1 1 2 : 4
0064640 8 " ) 006 001 \r ( C O N D \r
0064660 ( ( N L I S T P
0064700 L S T ) ) \r ( F L
0064720 G ( R P L A C A L S T N I
0064740 L ) ) \r ( ( E Q
0064760 L S T E D I T H I S T O R Y )
0065000 \r ( M A P C (
0065020 C A R L S T ) \r
0065040 ( F U N C T I O N
0065060 ( L A M B D A ( E N T R Y )
0065100 \r \r
0065120 006 006 ( * C A D D R
0065140 | o f | | t h e | | e n t
0065160 r y | | i s | | u s e d |
0065200 | f o r | | s a v i n g | |
0065220 s i d e | | i n f o r m a t i
0065240 o n | \r 006 001
0065260 006 006 | o n | | t h e | | e
0065300 d i t o | | h i s t o r y |
0065320 | l i s t . | | h o w e v e r
0065340 , | | c a n ' t | | j u s t
0065360 | | r p l a c d | C D R \r
0065400 006 001 006 006 | b
0065420 e c a u s e | | t h a t | |
0065440 n o d e | | i s | | r e u s
0065460 e d | | b y | | h i s t o r
0065500 y s a v e . | ) 006 001 \r \r
0065520
0065540 ( R P L N O D E (
0065560 C D D R E N T R Y ) \r
0065600
0065620 ( C O
0065640 N S T A N T ( C H A R A C T E
0065660 R ( C H A R C O D E B E L L
0065700 ) ) ) ) ) ) ) ) \r
0065720 ( T ( M A P C ( C A R L S
0065740 T ) \r
0065760 ( F U N C T I O N P U R
0066000 G E H I S T O R Y 2 ) ) ) ) ) )
0066020 \r \r ( 006 004 P U R G E H I S T O R
0066040 Y 2 006 001 \r ( L A M B D A (
0066060 E N T R Y )
0066100
*
0066140 006 006 ( * | w t : | 2 - D
0066160 E C - 7 5 1 5 4 6 ) 006 001 \r
0066200 ( P R O G ( T E M ) \r
0066220 ( C O N D \r
0066240 ( ( S E
0066260 T Q T E M ( L I S T G E T 1
0066300 E N T R Y ' * G R O U P * )
0066320 ) \r
0066340 ( R P L A C D ( C D D R E N
0066360 T R Y ) \r
0066400 ( L I S T
0066420 ' * G R O U P * T E M ' * H
0066440 I S T O R Y * ( L I S T G E T
0066460 1 E N T R Y ' * H I S T O R
0066500 Y * ) ) ) \r
0066520 ( M A P C T E M ( F
0066540 U N C T I O N P U R G E H I S
0066560 T O R Y 2 ) ) ) \r
0066600 ( T ( R P L A C D
0066620 ( C D D R E N T R Y ) \r
0066640
0066660 N I L ) ) ) ) ) ) \r )
0066700 \r \r ( R P A Q Q 006 002 S M A S H
0066720 P R O P S M E N U 006 001 \r
0066740 ( ( " o l d v a l u e
0066760 s o f v a r i a b l e s "
0067000 V A L U E ) \r (
0067020 " f u n c t i o n d e f i n i
0067040 t i o n s o n p r o p e r t
0067060 y l i s t s " E X P R C O
0067100 D E ) \r ( " a d
0067120 v i c e i n f o r m a t i o n
0067140 " A D V I S E D A D V I C E
0067160 R E A D V I C E ( S E T Q
0067200 A D V I S E D F N S N I L ) )
0067220 \r ( " f i l e m
0067240 a p s " F I L E M A P ) \r
0067260 ( " c l i s p i n
0067300 f o r m a t i o n ( w a r n i
0067320 n g : t h i s w i l l d i
0067340 s a b l e c l i s p ! ) " A
0067360 C C E S S F N B R O A D S C O
0067400 P E C L I S P C L A S S \r
0067420 C L
0067440 I S P C L A S S D E F C L I S
0067460 P F O R M C L I S P I F Y I S
0067500 P R O P C L I S P I N F I X
0067520 C L I S P I S F O R M C L I S
0067540 P I S P R O P C L I S P N E G
0067560 \r
0067600 C L I S P T Y P E C L I S P
0067620 W O R D C L M A P S I . S .
0067640 O P R I . S . T Y P E L I S
0067660 P F N S E T F N U N A R Y O
0067700 P ) \r ( " c o m
0067720 p i l e r i n f o r m a t i o
0067740 n ( w a r n i n g : t h i s
0067760 w i l l d i s a b l e t h
0070000 e c o m p i l e r ! ) " A M
0070020 A C B L K L I B R A R Y D E F
0070040 C R O P S \r
0070060 C T Y P E G L O
0070100 B A L V A R M A C R O M A K
0070120 E O P D U B O X ) \r
0070140 ( " d e f i n i t i o n
0070160 s o f n a m e d h i s t o
0070200 r y c o m m a n d s " * H I
0070220 S T O R Y * ) \r
0070240 ( " c o n t e x t o f e d i
0070260 t s e x i t e d v i a s a
0070300 v e c o m m a n d " E D I T
0070320 - S A V E ) ) ) \r \r ( R P A Q Q
0070340 006 002 S M A S H P R O P S L S T
0070360 006 001 N I L ) \r \r ( A D D T O V
0070400 A R 006 002 G A I N S P A C E F O
0070420 R M S 006 001 ( ( C A R L I S P
0070440 X H I S T O R Y ) \r
0070460
0070500 " p u r g e h i s t o
0070520 r y l i s t s " \r
0070540
0070560 ( P U R G E H I S T O R
0070600 Y R E S P O N S E ) \r
0070620
0070640 ( ( Y " e s " ) \r
0070660
0070700 ( N " o
0070720 " ) \r
0070740 ( E
0070760 . " v e r y t h i n g " ) )
0071000 ) \r
0071020 ( T " d
0071040 i s c a r d d e f i n i t i o
0071060 n s o n p r o p e r t y l
0071100 i s t s " \r
0071120
0071140 ( S E T Q S M A S H P R O
0071160 P S L S T 1 ( C O N S ' E X
0071200 P R ( C O N S ' C O D E (
0071220 C O N S ' S U B R S M A S H
0071240 P R O P S L S T 1 ) ) \r
0071260
*
0071340 ) ) ) \r
0071360
0071400 ( T " d i s c a r d o l d
0071420 v a l u e s o f v a r i a b
0071440 l e s " ( S E T Q S M A S H
0071460 P R O P S L S T 1 \r
0071500
*
0071560 ( C
0071600 O N S ' V A L U E S M A S H
0071620 P R O P S L S T 1 ) ) ) \r
0071640
0071660 ( T " e r a s e
0071700 p r o p e r t i e s " ( E R A
0071720 S E P R O P S R E S P O N S E
0071740 ) \r
0071760 ( (
0072000 Y " e s " E X P L A I N S T
0072020 R I N G \r
0072040
0072060 " Y e s - y o u
0072100 w i l l b e a s k e d w
0072120 h i c h p r o p e r t i e s
0072140 a r e t o b e e r a s e d
0072160 " ) \r
0072200
0072220 ( N " o " ) \r
0072240
0072260 ( A " l l " C O N
0072300 F I R M F L G T E X P L A I
0072320 N S T R I N G \r
0072340
0072360 " A l l -
0072400 a l l p r o p e r t i e s o
0072420 n m e n t i o n e d o n S
0072440 M A S H P R O P S M E N U " ) \r
0072460
0072500 ( E
0072520 " d i t \r " E X P L A I N S T
0072540 R I N G " E d i t - y o u
0072560 w i l l b e a l l o w e d
0072600 t o e d i t a l i s t
0072620 o f p r o p e r t y n a m e
0072640 s " ) ) ) \r
0072660 (
0072700 C L I S P A R R A Y " e r a s
0072720 e C L I S P t r a n s l a t
0072740 i o n s " ( C L R H A S H C
0072760 L I S P A R R A Y ) ) \r
0073000
0073020 ( C H A N G E S A R R
0073040 A Y " e r a s e c h a n g e
0073060 s a r r a y " ( C L R H A S
0073100 H C H A N G E S A R R A Y ) )
0073120 \r
0073140 ( S Y S H A
0073160 S H A R R A Y " e r a s e s
0073200 y s t e m h a s h a r r a y
0073220 " ( C L R H A S H ) ) \r
0073240
0073260 ( ( G E T P R O P
0073300 ' E D I T ' L A S T V A L U E
0073320 ) \r
0073340 " d i s
0073360 c a r d c o n t e x t o f
0073400 l a s t e d i t " \r
0073420
0073440 ( R E M P R O P ' E
0073460 D I T ' L A S T V A L U E ) )
0073500 \r
0073520 ( G R E E T
0073540 H I S T " d i s c a r d i n
0073560 f o r m a t i o n s a v e d
0073600 f o r u n d o i n g y o u r
0073620 g r e e t i n g " ( S E T Q
0073640 \r
0073660
*
0073760 G R E E
0074000 T H I S T ) \r
0074020
0074040 ) ) \r ( D E C L A
0074060 R E \ : D O N T E V A L @ L O
0074100 A D D O E V A L @ C O M P I L
0074120 E D O N T C O P Y C O M P I
0074140 L E R V A R S \r \r ( A D D T O
0074160 V A R 006 002 N L A M A 006 001 ) \r
0074200 \r ( A D D T O V A R 006 002 N L A
0074220 M L 006 001 T R Y N E X T P O S
0074240 S I B I L I T I E S G E N E R
0074260 A T O R C O R O U T I N E ) \r
0074300 \r ( A D D T O V A R 006 002 L A M
0074320 A 006 001 A U - R E V O I R A D
0074340 I E U ) \r ) \r ( P U T P R O P S
0074360 A S S I S T C O P Y R I G H
0074400 T ( " X e r o x C o r p o r
0074420 a t i o n " T 1 9 7 8 1 9
0074440 8 2 1 9 8 3 1 9 8 4 1 9 8
0074460 5 1 9 8 6 ) ) \r ( D E C L A R
0074500 E \ : D O N T C O P Y \r (
0074520 F I L E M A P ( N I L ( 5 9
0074540 3 1 8 2 1 2 ( P R I N T P R
0074560 O P S 5 9 4 1 . 6 5 3 6 )
0074600 ( P R I N T B I N D I N G S
0074620 6 5 3 8 . 8 2 1 0 ) ) ( 9
0074640 1 7 8 9 6 5 2 ( S H O W P R
0074660 I N T \r 9 1 8 8 . 9 4 3 2
0074700 ) ( S H O W P R I N 2 9 4 3
0074720 4 . 9 6 5 0 ) ) ( 9 7 4 9
0074740 1 3 9 8 3 ( P R I N T - A R
0074760 G L I S T 9 7 5 9 . 1 3 9
0075000 8 1 ) ) ( 1 6 2 7 4 1 8 7 9
0075020 1 ( \r C O R O U T I N E 1 6
0075040 2 8 4 . 1 7 3 1 8 ) ( G E
0075060 N E R A T O R 1 7 3 2 0 .
0075100 1 7 9 3 1 ) ( G E N E R A T E
0075120 1 7 9 3 3 . 1 8 0 3 6 )
0075140 ( P R O D U C E 1 8 0 3 8 .
0075160 1 8 1 3 7 ) ( \r G E N E R A
0075200 T E F N 1 8 1 3 9 . 1 8 7
0075220 8 9 ) ) ( 1 8 7 9 2 2 1 2 3
0075240 3 ( A D I E U 1 8 8 0 2 .
0075260 1 8 9 9 5 ) ( A U - R E V O
0075300 I R 1 8 9 9 7 . 1 9 2 3 2
0075320 ) ( C L E A N P O S L S T \r
0075340 1 9 2 3 4 . 1 9 5 1 8 ) (
0075360 N O T E 1 9 5 2 0 . 1 9 7
0075400 1 4 ) ( P O S S I B I L I T I
0075420 E S 1 9 7 1 6 . 2 0 0 5 1
0075440 ) ( T R Y N E X T 2 0 0 5 3
0075460 . 2 0 3 7 8 ) ( T R Y N E
0075500 X T 1 \r 2 0 3 8 0 . 2 0 8
0075520 8 1 ) ( P O S S I B I L I T Y
0075540 F N 2 0 8 8 3 . 2 1 2 3 1
0075560 ) ) ( 2 1 6 6 0 2 8 0 9 6
0075600 ( G A I N S P A C E 2 1 6 7 0
0075620 . 2 3 6 1 6 ) ( E R A S E
0075640 P R O P S 2 3 6 1 8 \r . 2
0075660 5 1 7 7 ) ( P U R G E H I S T
0075700 O R Y 2 5 1 7 9 . 2 6 9 2
0075720 9 ) ( P U R G E H I S T O R Y
0075740 1 2 6 9 3 1 . 2 7 6 6 4 )
0075760 ( P U R G E H I S T O R Y 2
0076000 2 7 6 6 6 . 2 8 0 9 4 ) ) )
0076020 ) \r ) \r S T O P \r
0076031