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