$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>TSET.DCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - D e c - 8 5 0 9 : 0 0 : 3 4
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > K O T O > T S E T . ; 1 )
0000120 " 1 2 - N o v - 8 5 1 4 : 5
0000140 9 : 2 3 " \r b c o m p l ' d
0000160 i n " I N T E R L I S P - D
0000200 2 2 - N o v - 8 5 . . . " d
0000220 a t e d " 2 2 - N o v - 8 5
0000240 1 1 : 3 2 : 5 8 " ) \r ( F I L E
0000260 C R E A T E D " 3 - J U N -
0000300 7 9 0 9 : 4 9 : 5 7 " < N E
0000320 W L I S P > T S E T . ; 2 1 8
0000340 7 1 5 c h a n g e s t o :
0000360 T R A N S O R S E T L I S P X
0000400 U S E R F N T S E T C O M S
0000420 \r T S E T F N S T R A N S O R
0000440 S E T U S E R F N p r e v i o
0000460 u s d a t e : " 8 - J u l
0000500 - 7 6 2 3 : 2 2 : 2 1 " < L
0000520 I S P > T S E T . ; 6 ) \r T R A
0000540 N S O R S E T D 1 \r ( P 0
0000560 C U R R E N T F N ) \0 2 001 \0 \0
0000600 \0 021 020 \0 g \0 \0 \t \0 \0 263 027 g \0 \0 \t
0000620 \0 \0 277 g \0 \0 \t \0 \0 277 g \0 \0 \t \0 \0
0000640 277 g \0 \0 h g \0 \0 \v \0 \0 277 i \t \0 \0
0000660 260 360 \0 ( 5 6 Q C L E A R B U F
0000700 5 1 Q U S E R E X E C 3 6
0000720 Q R P A Q 2 7 Q R P A Q
0000740 2 0 Q R P A Q 1 0 Q B O U
0000760 N D P ) \r ( 4 6 Q T R A N S O
0001000 R S E T U S E R F N 4 2 Q +
0001020 3 3 Q U D R S 2 4 Q U S
0001040 E R N O T E S 1 5 Q T R A N
0001060 S F O R M A T I O N S 5 T R
0001100 A N S F O R M A T I O N S ) \r (
0001120 ) \r T R A N S O R I N P U T P
0001140 D 1 \r ( L ( 1 B 0 A )
0001160 F 0 E D I T C O M S L F
0001200 1 E D I T C O M S A ) \0 = \0
0001220 002 \0 002 @ 265 \a A 241 h 020 @ g \0 \0 360 263
0001240 371 @ d 005 001 263 ) d 004 l 004 360 233 Q 034 265
0001260 037 A 224 @ P 034 265 030 @ 003 264 024 @ 001 005 001
0001300 265 016 @ 001 004 l 004 360 264 006 @ 001 P 034 020 \0
0001320 N I L \r ( 1 2 Q P P ) \r ( ) \r
0001340 T R A N S O R S E T U S E R F N
0001360 D 1 \r ( P 0 I N L I N E
0001400 I 1 B I 0 A F 1
0001420 C U R R E N T F N F 2 E D
0001440 I T C O M S A F 3 E D I T
0001460 C O M S L F 4 L I S P X H
0001500 I S T ) \0 X 001 004 \0 002 021 020 \0 @ A
0001520 \n \0 \0 264 N @ \t \0 \0 A \t \0 \0 032 X @
0001540 004 l 004 360 233 @ R 034 247 @ S 034 223 d h 032
0001560 270 Q 254 o \0 \0 \0 o \0 \0 \0 i \v \0 \0 277
0001600 H Q \n \0 \0 Q g \0 \0 Q g \0 \0 033 H \n
0001620 \0 \0 \v \0 \0 T Q \n \0 \0 g \0 \0 \t \0 \0
0001640 h 020 \0 ( 1 2 4 Q R E T F R O M
0001660 1 1 6 Q L I S P X S T O R E
0001700 V A L U E 1 1 1 Q / P U T
0001720 1 0 6 Q / N C O N C 7 1 Q
0001740 R U M A R K 6 3 Q E R R O R
0001760 2 1 Q C O P Y 1 5 Q C O
0002000 P Y 7 T R A N S O R I N P U
0002020 T P ) \r ( 1 2 1 Q L I S P X
0002040 1 0 1 Q X F O R M 7 5 Q X
0002060 F O R M ) \r ( 5 7 Q " b e f
0002100 o r e t r a n s f o r m a t i
0002120 o n s c a n b e s t o r e
0002140 d " 5 3 Q " Y o u m u s t
0002160 s p e c i f y a f u n c t
0002200 i o n w i t h t h e ' f n
0002220 ' c o m m a n d " ) \r R U M A
0002240 R K D 1 \r ( I 1 F N I
0002260 0 X F O R M ) \0 033 \0 \0 \0 002 @
0002300 003 264 027 @ o \0 \0 \0 i \v \0 \0 264 \f @ h
0002320 032 o \0 \0 \0 \n \0 \0 020 \0 ( 3 0 Q E
0002340 D I T E 1 4 Q E D I T F I N
0002360 D P ) \r N I L \r ( 2 5 Q ( (
0002400 L P Q F ( R E M A R K - -
0002420 ) ( E ( R U M A R K 1 ) T
0002440 ) ) ) 1 0 Q ( R E M A R K
0002460 - - ) ) \r R U M A R K 1 D 1 \r
0002500 ( P 2 T E X T P 1 R N
0002520 A M E P 0 C A L L F 3
0002540 C O M M E N T F L G F 4
0002560 L F 5 F N F 6 U S E
0002600 R N O T E S ) \0 \ 003 004 \0 \0 T 001
0002620 021 ! 002 H d 002 003 263 024 277 o \0 \0 \0 i \n
0002640 \0 \0 277 H i d \v \0 \0 260 > 002 002 251 H 002
0002660 001 Y 004 l 004 360 263 1 H 002 Z 002 003 246 H 002
0002700 001 Z 003 264 % H U \t \0 \0 Y h 032 \n \0 \0
0002720 277 J 001 S 360 243 S J 032 272 g \0 \0 I J h
0002740 032 032 V 032 \n \0 \0 h 020 \0 ( 1 3 0 Q
0002760 / S E T A T O M V A L 1 0 1 Q
0003000 / R P L A C D 7 3 Q G E N
0003020 R E M N A M 3 2 Q P R I N T
0003040 2 3 Q P R I N 1 ) \r ( 1 1 6
0003060 Q U S E R N O T E S ) \r ( 1
0003100 7 Q " \r W a r n i n g - b
0003120 a d l y f o r m e d r e m a
0003140 r k : " ) \r T R A N S U N D E
0003160 R D 1 \r ( P 0 X I 1
0003200 F L G I 0 T S E T F N F
0003220 1 L I S P X L I N E ) \0 ;
0003240 001 001 001 002 g \0 \0 - g \0 \0 360 252 o \0 \0
0003260 \0 \t \0 \0 \b \0 \0 020 A 263 037 Q 260 031 d 001
0003300 021 001 \0 H 004 l 004 360 251 o \0 \0 \0 H i \v
0003320 \0 \0 277 023 002 003 265 350 Q k @ 017 016 020 \0 (
0003340 5 5 Q E R R O R 2 2 Q T R
0003360 A N S O R S E T 1 7 Q L I S
0003400 P X U N R E A D ) \r ( 6 + 2
0003420 L I S P X I D ) \r ( 5 0 Q
0003440 " A r g n o t l i t a t o m
0003460 : " 1 4 Q ( R E D O - 1 )
0003500 ) \r T X F N D 1 \r ( P 0 X
0003520 I 0 L I N F 1 C U R
0003540 R E N T F N ) \0 033 001 001 \0 001 @ 265
0003560 020 Q 020 d 001 021 001 \0 H i \n \0 \0 023 002 003
0003600 265 363 @ \t \0 \0 001 020 \0 ( 2 7 Q L A
0003620 S T 1 6 Q T X F N 1 ) \r N I
0003640 L \r ( ) \r T X F N 1 D 1 \r ( I
0003660 1 O L D M E S S I 0 F
0003700 N F 0 C U R R E N T F N
0003720 F 1 T R A N S F O R M A T I
0003740 O N S ) \0 F \0 002 \0 002 P 262 024 P g
0003760 \0 \0 033 253 g \0 \0 P Q \n \0 \0 \n \0 \0 277
0004000 A 262 026 @ 262 # @ d g \0 \0 033 232 277 o \0
0004020 \0 \0 i \n \0 \0 277 @ 235 @ Q 034 251 g \0 \0
0004040 @ Q 032 \n \0 \0 277 o \0 \0 \0 \t \0 \0 h 020
0004060 \0 ( 1 0 2 Q S A V E S E T Q
0004100 7 2 Q / S E T A T O M V A L
0004120 5 2 Q P R I N 1 2 3 Q / S
0004140 E T A T O M V A L 2 0 Q / D
0004160 R E M O V E ) \r ( 6 4 Q T R A
0004200 N S F O R M A T I O N S 3 7 Q
0004220 X F O R M 1 3 Q T R A N S
0004240 F O R M A T I O N S 6 X F O
0004260 R M ) \r ( 7 7 Q ( C U R R E
0004300 N T F N F N ) 4 6 Q " Y o
0004320 u ' r e a d d i n g t o o
0004340 l d x f o r m s . " ) \r T X D
0004360 U M P D 1 \r ( P 1 F P
0004400 0 F I L E I 0 L I N F
0004420 2 X F O R M S V A R S F
0004440 3 X F O R M S F N S F 4
0004460 D U M P F I L E F 5 T R A
0004500 N S F O R M A T I O N S F 6
0004520 U S E R N O T E S ) \0 214 002 005
0004540 \0 001 @ 001 021 021 001 \b \0 \0 U \t \0 \0 V i
0004560 \n \0 \0 H 265 030 T g \0 \0 360 241 T 215 o \0
0004600 \0 \0 i \n \0 \0 277 i d \n \0 \0 Y \t \0 \0
0004620 X 251 o \0 \0 \0 I i \v \0 \0 277 g \0 \0 I
0004640 \n \0 \0 I \t \0 \0 Y g \0 \0 R 026 256 g \0
0004660 \0 g \0 \0 h 032 R 003 032 \n \0 \0 277 S d g
0004700 \0 \0 360 230 277 g \0 \0 \t \0 \0 277 S 262 026 g
0004720 \0 \0 R \n \0 \0 253 g \0 \0 g \0 \0 R 032 \n
0004740 \0 \0 277 S H g \0 \0 \v \0 \0 H 020 \0 ( 2
0004760 1 0 Q P R E T T Y D E F 1 7
0005000 7 Q / S E T A T O M V A L 1
0005020 6 3 Q M E M B 1 5 0 Q / S
0005040 E T A T O M V A L 1 3 1 Q /
0005060 S E T A T O M V A L 1 0 4 Q
0005100 N A M E F I E L D 1 0 0 Q /
0005120 S E T A T O M V A L 7 0 Q E
0005140 R R O R 5 5 Q O U T F I L E
0005160 P 5 1 Q R A T O M 4 3 Q
0005200 P R I N 1 2 0 Q S O R T 1
0005220 3 Q S O R T 7 T X F N 1 )
0005240 \r ( 2 0 5 Q X F O R M S V A R
0005260 S 1 7 2 Q X F O R M S F N S
0005300 1 6 7 Q X F O R M S V A R S
0005320 1 5 7 Q X F O R M S F N S
0005340 1 4 5 Q X F O R M S F N S 1
0005360 3 7 Q N O B I N D 1 2 1 Q
0005400 T R A N S A V E 1 1 6 Q X F
0005420 O R M S V A R S 1 1 0 Q T R
0005440 A N S A V E 7 4 Q D U M P F
0005460 I L E 2 7 Q N O B I N D ) \r
0005500 ( 6 3 Q " C a n n o t o p
0005520 e n f i l e : " 3 7 Q " \r
0005540 F i l e t o d u m p o n :
0005560 " ) \r T X E R A S E D 1 \r (
0005600 I 0 L I N F 3 C U R R
0005620 E N T F N ) \0 . 003 001 \0 001 @ 003 265
0005640 \a S \t \0 \0 020 \t \0 \0 001 \t \0 \0 021 0 002
0005660 @ 260 024 d 001 \t \0 \0 270 I 265 \a H h 032 Z
0005700 201 H & 271 002 003 265 355 J 020 \0 ( 3 2 Q
0005720 T X E R A S E 1 1 7 Q T X F
0005740 N 1 1 3 Q L A S T 7 T X
0005760 E R A S E 1 ) \r N I L \r ( ) \r T
0006000 X E R A S E 1 D 1 \r ( I 0
0006020 F N F 0 T R A N S F O R M
0006040 A T I O N S ) \0 ) \0 001 \0 001 @ d
0006060 P 034 235 277 g \0 \0 @ P \n \0 \0 \n \0 \0 277
0006100 @ g \0 \0 033 230 @ g \0 \0 \n \0 \0 @ 020 @
0006120 o \0 \0 \0 032 020 \0 ( 3 6 Q / R E M
0006140 P R O P 2 0 Q / S E T A T O
0006160 M V A L 1 5 Q / D R E M O V
0006200 E ) \r ( 3 3 Q X F O R M 2 5
0006220 Q X F O R M 1 0 Q T R A N
0006240 S F O R M A T I O N S ) \r ( 4
0006260 5 Q ( - - N O T H I N G F
0006300 O U N D . ) ) \r T X T E S T D
0006320 1 \r ( P 1 O L D O P 0
0006340 T E S T R A N I 0 L I N
0006360 F 2 T E S T F O R M ) \0 F
0006400 002 001 \0 001 i d \t \0 \0 021 002 001 @ 001 003 230
0006420 g \0 \0 @ 001 \n \0 \0 215 R 254 o \0 \0 \0 o
0006440 \0 \0 \0 i \v \0 \0 277 g \0 \0 \t \0 \0 254 o
0006460 \0 \0 \0 o \0 \0 \0 i \v \0 \0 277 R \t \0 \0
0006500 \t \0 \0 I \t \0 \0 277 020 \0 ( 1 0 2 Q
0006520 O U T P U T 7 6 Q T R A N S
0006540 O R F O R M 7 3 Q C O P Y
0006560 6 6 Q E R R O R 5 1 Q \ D
0006600 E F I N E D P 4 2 Q E R R O
0006620 R 2 3 Q / S E T A T O M V A
0006640 L 4 O U T P U T ) \r ( 4 6 Q
0006660 T R A N S O R F O R M 1 6 Q
0006700 T E S T F O R M ) \r ( 6 2 Q
0006720 " " 5 6 Q " Y o u m u s
0006740 t l o a d < L I S P > T R A
0006760 N S O R . C O M b e f o r e
0007000 u s i n g t h e T E S T c
0007020 o m m a n d . " 3 6 Q " + T
0007040 E S T ( S A M P L E S - E X
0007060 P R E S S I O N T O B E T
0007100 R A N S O R ' E D ) " 3 2 Q
0007120 " C o r r e c t f o r m a t
0007140 i s : " ) \r T X S H O W D 1 \r
0007160 ( P 2 F N P 1 F L G
0007200 P 0 O L D O I 0 L I N
0007220 F 3 C U R R E N T F N )
0007240 \0 M 003 001 \0 001 i \t \0 \0 @ h 360 265 004 @
0007260 002 021 002 001 @ 265 0 S h 032 b \0 260 ) d 001
0007300 021 001 002 J \t \0 \0 277 I 226 J h i \v \0 \0
0007320 277 J g \0 \0 033 265 006 o \0 \0 \0 \t \0 \0 277
0007340 \b \0 \0 023 002 003 265 330 H \t \0 \0 @ \t \0 \0
0007360 001 020 \0 ( 1 1 1 Q L A S T 1 0
0007400 5 Q O U T P U T 7 4 Q T E
0007420 R P R I 7 0 Q P R I N T D E
0007440 F 5 1 Q P R I N T 4 0 Q
0007460 T X F N 1 3 O U T P U T ) \r
0007500 ( 5 6 Q X F O R M ) \r ( 6 5
0007520 Q ( N o t r a n s f o r m a
0007540 t i o n s ) ) \r T X E D I T D
0007560 1 \r ( P 0 F N I 0 L I
0007600 N F 1 C U R R E N T F N )
0007620 \0 @ 001 001 \0 001 @ 265 5 Q h 032 b \0 260
0007640 . d 001 021 001 \0 H \t \0 \0 277 H g \0 \0 H
0007660 g \0 \0 033 265 \v H o \0 \0 \0 i \v \0 \0 h
0007700 H \v \0 \0 \v \0 \0 H \n \0 \0 023 002 003 265 323
0007720 @ \t \0 \0 001 020 \0 ( 7 4 Q L A S T
0007740 6 3 Q R U M A R K 5 7 Q
0007760 P U T 5 4 Q E D I T E 4 7
0010000 Q E R R O R 2 2 Q T X F N
0010020 1 ) \r ( 3 3 Q X F O R M 2 7
0010040 Q X F O R M ) \r ( 4 3 Q "
0010060 n o t e d i t a b l e . " ) \r
0010100 T X E X I T D 1 \r N I L \0 016
0010120 \0 \0 \0 \0 g \0 \0 \t \0 \0 g \0 \0 \t \0 \0
0010140 020 \0 ( 1 3 Q R E T F R O M 5
0010160 S E T T O P V A L ) \r ( 1 0 Q
0010200 T R A N S O R S E T 2 U S
0010220 E R I N P U T P ) \r ( ) \r T X N
0010240 O T E D 1 \r ( P 1 T E X T
0010260 P 0 N A M E I 0 L I
0010300 N F 2 U S E R N O T E S
0010320 F 3 C O M M E N T F L G )
0010340 \0 | 002 002 \0 001 @ 001 021 021 001 H 227 H d 004
0010360 l 004 360 253 277 o \0 \0 \0 H i \v \0 \0 260 033
0010400 R 026 002 001 Y 265 3 @ 002 Y 003 265 \b \0 \0
0010420 250 o \0 \0 \0 i \n \0 \0 277 i d \n \0 \0 Y
0010440 d 003 263 ( \b \0 \0 032 Y 260 ! 001 003 262 034 I
0010460 d 002 263 030 001 Y 260 024 d 002 001 g \0 \0 360 222
0010500 277 I 002 002 \t \0 \0 H 020 I 001 S 360 243 S I
0010520 032 271 g \0 \0 H I h 032 032 R 032 \n \0 \0 H
0010540 020 \0 ( 1 7 0 Q / S E T A T O M
0010560 V A L 1 4 0 Q E D I T E 1
0010600 0 0 Q R E A D L I N E 7 0 Q
0010620 R E A D 6 2 Q P R I N 1
0010640 5 1 Q L I S P X R E A D P 2
0010660 7 Q E R R O R ) \r ( 1 5 6 Q
0010700 U S E R N O T E S 1 2 7 Q %
0010720 % ) \r ( 5 6 Q " T e x t :
0010740 " 2 2 Q " A r g n o t l
0010760 i t a t o m : " ) \r G E N R E M
0011000 N A M D 1 \r ( P 1 N A M
0011020 P 0 N I 0 F N F 2
0011040 U S E R N O T E S ) \0 ' 002 001
0011060 \0 001 j @ g \0 \0 h 032 032 \t \0 \0 021 002 001
0011100 I R 026 241 I 020 @ H k 330 X g \0 \0 h 032
0011120 032 032 \t \0 \0 Y 260 353 \0 ( 4 2 Q P A
0011140 C K 1 2 Q P A C K ) \r ( 3 3
0011160 Q : 4 : ) \r ( ) \r T X D E
0011200 L N O T E D 1 \r ( P 4 T M
0011220 P P 3 R 1 I 0 L I N
0011240 F 5 U S E R N O T E S )
0011260 \0 6 005 001 \0 001 021 P 004 @ 260 , d 001 h 274
0011300 [ U 026 \ 246 K o \0 \0 \0 032 214 g \0 \0 L
0011320 U \n \0 \0 \n \0 \0 277 K 270 I 265 \a H h 032
0011340 Z 201 H & 271 002 003 265 325 J 020 \0 ( 4 0 Q
0011360 / S E T A T O M V A L 3 5 Q
0011400 / D R E M O V E ) \r ( 3 0 Q
0011420 U S E R N O T E S ) \r ( 2 3 Q
0011440 ( N O T F O U N D ) ) \r ( P
0011460 R E T T Y C O M P R I N T T S
0011500 E T C O M S ) \r ( R P A Q Q T
0011520 S E T C O M S ( ( F N S *
0011540 T S E T F N S ) T S E T M A C
0011560 R O S ( V A R S ( L I S P X
0011600 M A C R O S ( U N I O N T S
0011620 E T M A C R O S L I S P X M A
0011640 C R O S ) ) ( \r T E S T F O R
0011660 M ) ( L I S P X C O M S ( U
0011700 N I O N L I S P X C O M S (
0011720 M A P C A R T S E T M A C R O
0011740 S ( F U N C T I O N C A R )
0011760 ) ) ) ( M E R G E ) ( P R E
0012000 T T Y D E F M A C R O S ( \r C
0012020 O N S ( Q U O T E ( T R A N
0012040 S A V E N I L D U M P F I L
0012060 E U S E R N O T E S N L I S
0012100 T P C O M S L A M B D A C O M
0012120 S ( P R O P X F O R M *
0012140 T R A N S F O R M A T I O N S )
0012160 ( P ( \r C O N D ( ( E Q
0012200 ( E V A L V ( Q U O T E M E
0012220 R G E ) ) T ) ( R P A Q T
0012240 R A N S F O R M A T I O N S (
0012260 U N I O N T R A N S F O R M A
0012300 T I O N S ( L I S T P ( G E
0012320 T P ( Q U O T E \r T R A N S
0012340 F O R M A T I O N S ) ( Q U O
0012360 T E V A L U E ) ) ) ) ) ( M
0012400 A P C ( G E T P ( Q U O T E
0012420 U S E R N O T E S ) ( Q U O
0012440 T E V A L U E ) ) ( F U N C
0012460 T I O N ( L A M B D A ( \r N
0012500 O T E ) ( O R ( A S S O C
0012520 ( C A R N O T E ) U S E R N
0012540 O T E S ) ( S E T Q U S E R
0012560 N O T E S ( C O N S N O T E
0012600 U S E R N O T E S ) ) ) ) ) )
0012620 ) ( T ( M A P C ( G E T P
0012640 ( \r Q U O T E T R A N S F O
0012660 R M A T I O N S ) ( Q U O T E
0012700 V A L U E ) ) ( F U N C T I
0012720 O N ( L A M B D A ( X ) (
0012740 A N D ( N O T ( M E M B X
0012760 T R A N S F O R M A T O N S )
0013000 ) ( \r / R E M P R O P X (
0013020 Q U O T E X F O R M ) ) ) ) )
0013040 ) ) ) ) ) ) P R E T T Y D E F
0013060 M A C R O S ) ) ( L C A S E L
0013100 S T ( A P P E N D ( Q U O T
0013120 E ( D O T R A N S F O R M A
0013140 T I O N S ) ) \r L C A S E L S
0013160 T ) ) ) ( P R O P U C A S E
0013200 B B N L I S P S R I M I
0013220 T Q A 3 P L A N N E R U C
0013240 I I N T E R L I S P ) ( P R
0013260 O P F I L E G R O U P T S E
0013300 T ) ( D E C L A R E : \r D O
0013320 N T E V A L @ L O A D D O E V
0013340 A L @ C O M P I L E D O N T C
0013360 O P Y C O M P I L E R V A R S
0013400 ( A D D V A R S ( N L A M A
0013420 ) ( N L A M L T R A N S U N
0013440 D E R ) ( L A M A ) ) ) ) ) \r
0013460 ( R P A Q Q T S E T F N S (
0013500 T R A N S O R S E T T R A N S
0013520 O R I N P U T P T R A N S O R
0013540 S E T U S E R F N R U M A R K
0013560 R U M A R K 1 T R A N S U N
0013600 D E R T X F N T X F N 1 T
0013620 X D U M P \r T X E R A S E T
0013640 X E R A S E 1 T X T E S T T
0013660 X S H O W T X E D I T T X E
0013700 X I T T X N O T E G E N R E
0013720 M N A M T X D E L N O T E ) )
0013740 \r ( R P A Q Q T S E T M A C R
0013760 O S ( ( S H O W ( T R A N S
0014000 U N D E R T X S H O W ) ) (
0014020 E X I T ( T R A N S U N D E R
0014040 T X E X I T ) ) ( N O T E
0014060 ( T R A N S U N D E R T X N O
0014100 T E T ) ) \r ( T E S T ( T
0014120 R A N S U N D E R T X T E S T
0014140 T ) ) ( E R A S E ( T R A
0014160 N S U N D E R T X E R A S E )
0014200 ) ( E D I T ( T R A N S U N
0014220 D E R T X E D I T ) ) ( D U
0014240 M P ( T R A N S U N D E R \r
0014260 T X D U M P ) ) ( F N ( T R
0014300 A N S U N D E R T X F N ) )
0014320 ( D E L N O T E ( T R A N S U
0014340 N D E R T X D E L N O T E ) )
0014360 ) ) \r ( R P A Q L I S P X M A
0014400 C R O S ( U N I O N T S E T
0014420 M A C R O S L I S P X M A C R
0014440 O S ) ) \r ( R P A Q T E S T F
0014460 O R M N I L ) \r ( R P A Q L
0014500 I S P X C O M S ( U N I O N
0014520 L I S P X C O M S ( M A P C A
0014540 R T S E T M A C R O S ( F U
0014560 N C T I O N C A R ) ) ) ) \r (
0014600 R P A Q M E R G E N I L ) \r
0014620 ( R P A Q P R E T T Y D E F M
0014640 A C R O S ( C O N S ( Q U O
0014660 T E ( T R A N S A V E N I L
0014700 D U M P F I L E U S E R N O
0014720 T E S N L I S T P C O M S L
0014740 A M B D A C O M S ( P R O P
0014760 X F O R M \r * T R A N S F O
0015000 R M A T I O N S ) ( P ( C O
0015020 N D ( ( E Q ( E V A L V (
0015040 Q U O T E M E R G E ) ) T )
0015060 ( R P A Q T R A N S F O R M
0015100 A T I O N S ( U N I O N T R
0015120 A N S F O R M A T I O N S \r (
0015140 L I S T P ( G E T P ( Q U O
0015160 T E T R A N S F O R M A T I O
0015200 N S ) ( Q U O T E V A L U E
0015220 ) ) ) ) ) ( M A P C ( G E T
0015240 P ( Q U O T E U S E R N O T
0015260 E S ) ( Q U O T E V A L U E
0015300 ) ) ( \r F U N C T I O N ( L
0015320 A M B D A ( N O T E ) ( O R
0015340 ( A S S O C ( C A R N O T
0015360 E ) U S E R N O T E S ) ( S
0015400 E T Q U S E R N O T E S ( C
0015420 O N S N O T E U S E R N O T
0015440 E S ) ) ) ) ) ) ) ( \r T ( M
0015460 A P C ( G E T P ( Q U O T E
0015500 T R A N S F O R M A T I O N S
0015520 ) ( Q U O T E V A L U E ) )
0015540 ( F U N C T I O N ( L A M B
0015560 D A ( X ) ( A N D ( N O T
0015600 ( M E M B X \r T R A N S F
0015620 O R M A T O N S ) ) ( / R E M
0015640 P R O P X ( Q U O T E X F
0015660 O R M ) ) ) ) ) ) ) ) ) ) ) P
0015700 R E T T Y D E F M A C R O S ) )
0015720 \r ( R P A Q L C A S E L S T
0015740 ( A P P E N D ( Q U O T E (
0015760 D O T R A N S F O R M A T I O
0016000 N S ) ) L C A S E L S T ) ) \r
0016020 ( P U T P R O P S B B N U C
0016040 A S E T ) \r ( P U T P R O P S
0016060 L I S P U C A S E T ) \r (
0016100 P U T P R O P S S R I U C A
0016120 S E T ) \r ( P U T P R O P S
0016140 M I T U C A S E T ) \r ( P U
0016160 T P R O P S Q A 3 U C A S E
0016200 T ) \r ( P U T P R O P S P L
0016220 A N N E R U C A S E T ) \r (
0016240 P U T P R O P S U C I U C A
0016260 S E T ) \r ( P U T P R O P S
0016300 I N T E R L I S P U C A S E
0016320 T ) \r ( P U T P R O P S T S E
0016340 T F I L E G R O U P ( T R A
0016360 N S O R T S E T ) ) \r N I L \r
0016400