$ od -c -N 50000 [eris]<LispUsers>PERFORMTRAN.DCOM!2
0000000 ( F I L E C R E A T E D " 1 4
0000020 - F E B - 8 3 2 3 : 0 4 : 1 1
0000040 " ( " c o m p i l e d o n
0000060 " < L I S P U S E R S > P E R
0000100 F O R M T R A N . ; 9 ) " 1 4
0000120 - F E B - 8 3 0 9 : 4 7 : 1 4
0000140 " \r t c o m p l ' d i n A
0000160 B C . S A V d a t e d " 1 4
0000200 - F E B - 8 3 1 0 : 1 1 : 4 2
0000220 " ) \r ( F I L E C R E A T E D
0000240 " 1 4 - F E B - 8 3 2 3 : 0 1
0000260 : 5 4 " < L I S P U S E R S >
0000300 P E R F O R M T R A N . ; 9 5
0000320 1 1 7 c h a n g e s t o :
0000340 ( F N S P E R F O R M T R A N
0000360 ) \r p r e v i o u s d a t e
0000400 : " 4 - S E P - 8 1 2 1 :
0000420 4 4 : 3 6 " < L I S P U S E R
0000440 S > P E R F O R M T R A N . ; 8
0000460 ) \r P E R F O R M O P S T R A N
0000500 D 1 \r ( L ( 0 D E C L ) )
0000520 \0 l 005 \0 \0 001 g \0 \0 @ 002 001 004 l 004
0000540 360 264 \t @ 002 b \0 001 h 032 032 g \0 \0 g \0
0000560 \0 h 032 032 g \0 \0 g \0 \0 021 P 004 @ 260 3
0000600 d 001 \ 001 L 002 [ d 262 032 d i 360 263 025 d
0000620 005 001 245 d 005 002 241 005 003 265 \t g \0 \0 K h
0000640 032 032 h 032 032 270 I 265 \a H h 032 Z 201 H &
0000660 271 002 003 265 315 J 022 h 032 032 032 h 032 032 \n \0
0000700 \0 020 \0 ( 1 5 1 Q \ N C O N C 2
0000720 ) \r ( 1 0 6 Q Q U O T E 4 2
0000740 Q P E R F O R M O P S 3 7 Q
0000760 A C C E S S F N S 3 1 Q D
0001000 A T U M 2 6 Q P E R F O R M
0001020 O P S 2 A C C E S S F N S )
0001040 \r N I L \r P E R F O R M T R A N
0001060 A 0 0 0 5 A 0 0 0 6 D 1 \r ( N
0001100 A M E E R R O R S E T L (
0001120 2 E R R O R S E T . W 1 E
0001140 R R O R S E T . V 0 E R R O
0001160 R S E T . U ) F 0 P A T H
0001200 ) \0 \b \0 001 \0 003 P \t \0 \0 h 032 020 \0
0001220 ( 3 R E C O R D A C C E S S )
0001240 \r N I L \r N I L \r P E R F O R M
0001260 T R A N A 0 0 0 5 D 1 \r ( N A
0001300 M E E R R O R S E T L ( 2
0001320 E R R O R S E T . W 1 E R
0001340 R O R S E T . V 0 E R R O R
0001360 S E T . U ) P 0 P A T H
0001400 F 1 0 Q F O R M F 1 1 Q
0001420 M A S T E R S C O P E F L A G
0001440 F 1 2 Q F A U L T F N F
0001460 1 3 Q P E R F O R M O P S
0001500 F 1 4 Q L C A S E F L G )
0001520 001 \f \b 005 \0 003 W 022 265 005 ` \0 \0 027 \0 \0
0001540 277 W 020 002 001 021 1 003 H 003 265 003 202 261 \0 256
0001560 j 021 1 \a L 265 003 202 261 \0 251 M 022 X \t \0
0001600 \0 Z 001 271 g \0 \0 J \n \0 \0 277 o \0 \0 \0
0001620 \t \0 \0 001 [ 263 # I W 026 \n \0 \0 002 [ 262
0001640 031 ` \0 \0 262 031 o \0 \0 \0 W 024 o \0 \0 \0
0001660 \v \0 \0 i \n \0 \0 277 ` \0 \0 263 # K 003 263
0001700 037 o \0 \0 \0 W 024 o \0 \0 \0 \v \0 \0 i \n
0001720 \0 \0 277 W 020 i \n \0 \0 277 \b \0 \0 277 W 022
0001740 257 W 020 002 002 W 020 h d d W 024 \r 006 \0 \0
0001760 277 K 001 W 020 002 002 K 002 \t \0 \0 \v \0 \0 273
0002000 W 022 262 K g \0 \0 H g \0 \0 K 003 265 \a g
0002020 \0 \0 h 032 h 032 032 032 032 260 D \t \0 \0 261 377
0002040 _ k 330 274 H L o \0 \0 \0 H L \v \0 \0 \
0002060 d 221 k 331 \v \0 \0 _ 016 277 N 265 \v O 016 h
0002100 032 ^ 275 261 377 1 O 016 & 276 261 377 * W 030 226
0002120 W 020 g \0 \0 030 277 W 020 K \n \0 \0 022 h 032
0002140 020 \0 ( 4 0 6 Q C L I S P T R A
0002160 N 3 4 0 Q S U B A T O M 3
0002200 3 0 Q S T R P O S 3 0 7 Q
0002220 \ A P P E N D 2 2 5 0 Q S U
0002240 B P A I R 2 4 5 Q M K P R O
0002260 G N 2 3 1 Q D W I M I F Y 0
0002300 ? 2 0 6 Q E R R O R ! 2 0
0002320 2 Q L I S P X P R I N T 1 7
0002340 3 Q L I S P X P R I N 1 1 6
0002360 7 Q C O N C A T 1 4 0 Q L
0002400 I S P X P R I N 1 1 3 4 Q C
0002420 O N C A T 1 0 6 Q A S S O C
0002440 7 4 Q P E R F O R M T R A N
0002460 A 0 0 0 5 A 0 0 0 6 6 4 Q A
0002500 T T A C H 5 2 Q L A S T ) \r
0002520 ( 3 7 6 Q p e r f o r m 2 7
0002540 3 Q p p e 2 6 4 Q o f 2
0002560 6 0 Q f e t c h 1 4 4 Q D
0002600 W I M E S S G A G 1 1 5 Q D
0002620 W I M E S S G A G 6 0 Q P E
0002640 R F O R M O P S 1 1 Q D W I
0002660 M E S S G A G 6 D W I M E S
0002700 S G A G ) \r ( 3 2 3 Q " . "
0002720 1 6 4 Q " } U n d e f i n
0002740 e d P E R F O R M o p e r a
0002760 t o r i n f o r m \r \t " 1
0003000 5 6 Q " { i n " 1 3 1 Q
0003020 " } U s i n g g l o b a
0003040 l p e r f o r m d e f i n i
0003060 t i o n \r " 1 2 3 Q " { i n
0003100 " 7 1 Q ( D U M M Y . F O
0003120 R . E R R O R S E T ) ) \r P E R
0003140 F O R M T R A N D 1 \r ( I 1
0003160 M A S T E R S C O P E F L A G
0003200 I 0 F O R M F 2 R E
0003220 S E T V A R S L S T ) \0 M 002 001
0003240 \0 002 A 227 g \0 \0 @ 032 b \0 277 g \0 \0 `
0003260 \0 \0 032 R 032 c 004 021 021 001 R Y o \0 \0 \0
0003300 g \0 \0 \n \0 \0 H 001 002 027 \0 \0 277 I d R
0003320 360 225 277 H 002 c 004 215 R \n \0 \0 231 R k I
0003340 \v \0 \0 H 002 031 277 265 005 \b \0 \0 001 020 \0 (
0003360 1 1 1 Q E R R O R ! 1 0 0 Q
0003400 N L E F T 7 1 Q T A I L P
0003420 4 3 Q P E R F O R M T R A N
0003440 A 0 0 0 5 ) \r ( 5 1 Q D W I M
0003460 E S S G A G 4 0 Q I N T E R
0003500 N A L 1 7 Q D W I M E S S G
0003520 A G 1 4 Q D W I M E S S G A
0003540 G 4 p e r f o r m ) \r ( 3 5
0003560 Q ( D U M M Y . F O R . E R R
0003600 O R S E T ) ) \r P T . R E C R E
0003620 D E C L A R E 1 D 1 \r ( L (
0003640 1 O R I G 0 T R A N ) )
0003660 \0 \0 \0 \0 002 A 001 d g \0 \0 360 245 d g
0003700 \0 \0 360 231 277 A h ` \0 \0 \v \0 \0 020 277 @
0003720 A \n \0 \0 020 \0 ( 3 5 Q P T . O L
0003740 D R E C R E D E C L A R E 1 2
0003760 6 Q / P U T H A S H ) \r ( 2 3
0004000 Q C L I S P A R R A Y 1 3 Q
0004020 P E R F O R M 5 p e r f o
0004040 r m ) \r N I L \r ( P R E T T Y C
0004060 O M P R I N T P E R F O R M T
0004100 R A N C O M S ) \r \n ( R P A Q Q
0004120 P E R F O R M T R A N C O M S
0004140 ( ( L O C A L V A R S . T
0004160 ) ( F N S P E R F O R M O P
0004200 S T R A N P E R F O R M T R A
0004220 N P T . R E C R E D E C L A R
0004240 E 1 ) ( P ( M O V D ? ( \r
0004260 \n Q U O T E R E C R E D E C L
0004300 A R E 1 ) ( Q U O T E P T .
0004320 O L D R E C R E D E C L A R E 1
0004340 ) ) ( M O V D ( Q U O T E
0004360 P T . R E C R E D E C L A R E 1
0004400 ) ( Q U O T E R E C R E D E
0004420 C L A R E 1 ) \r \n ) ) ( P R O
0004440 P C L I S P W O R D P E R F
0004460 O R M p e r f o r m ) ( A D
0004500 D V A R S ( C L I S P R E C O
0004520 R D T Y P E S P E R F O R M O
0004540 P S ) ( P E R F O R M O P S )
0004560 ) ( P ( M O V D ( \r \n Q U
0004600 O T E R E C O R D ) ( Q U O
0004620 T E P E R F O R M O P S ) )
0004640 ( S E T T E M P L A T E ( Q U
0004660 O T E P E R F O R M ) ( Q U
0004700 O T E ( M A C R O A R G S
0004720 ( P E R F O R M T R A N A R G
0004740 S T ) \r \n ) ) ) ( S E T T E
0004760 M P L A T E ( Q U O T E p e
0005000 r f o r m ) ( G E T T E M P L
0005020 A T E ( Q U O T E P E R F O
0005040 R M ) ) ) ( S E T S Y N O N Y
0005060 M ( Q U O T E P E R F O R M
0005100 ) ( Q U O T E \r \n F E T C H
0005120 ) T ) ( S E T S Y N O N Y M
0005140 ( Q U O T E P E R F O R M S
0005160 ) ( Q U O T E F E T C H E S
0005200 ) T ) ( S E T S Y N O N Y M
0005220 ( Q U O T E P E R F O R M I
0005240 N G ) ( Q U O T E \r \n F E T
0005260 C H I N G ) T ) ( S E T S Y
0005300 N O N Y M ( Q U O T E P E R
0005320 F O R M E D ) ( Q U O T E F
0005340 E T C H E D ) T ) ) ( P R O
0005360 P U S E R R E C O R D T Y P E
0005400 P E R F O R M O P S ) ) ) \r \n
0005420 ( M O V D ? ( Q U O T E R E
0005440 C R E D E C L A R E 1 ) ( Q U
0005460 O T E P T . O L D R E C R E D
0005500 E C L A R E 1 ) ) \r \n ( M O V D
0005520 ( Q U O T E P T . R E C R E
0005540 D E C L A R E 1 ) ( Q U O T E
0005560 R E C R E D E C L A R E 1 ) )
0005600 \r \n ( P U T P R O P S P E R F
0005620 O R M C L I S P W O R D ( P
0005640 E R F O R M T R A N . p e r
0005660 f o r m ) ) \r \n ( P U T P R O P
0005700 S p e r f o r m C L I S P W
0005720 O R D ( P E R F O R M T R A N
0005740 . p e r f o r m ) ) \r \n ( A
0005760 D D T O V A R C L I S P R E C
0006000 O R D T Y P E S P E R F O R M
0006020 O P S ) \r \n ( A D D T O V A R
0006040 P E R F O R M O P S ) \r \n ( M O
0006060 V D ( Q U O T E R E C O R D
0006100 ) ( Q U O T E P E R F O R M
0006120 O P S ) ) \r \n ( S E T T E M P L
0006140 A T E ( Q U O T E P E R F O
0006160 R M ) ( Q U O T E ( M A C R
0006200 O A R G S ( P E R F O R M T
0006220 R A N A R G S T ) ) ) ) \r \n
0006240 ( S E T T E M P L A T E ( Q U
0006260 O T E p e r f o r m ) ( G E
0006300 T T E M P L A T E ( Q U O T E
0006320 P E R F O R M ) ) ) \r \n ( S E
0006340 T S Y N O N Y M ( Q U O T E
0006360 P E R F O R M ) ( Q U O T E
0006400 F E T C H ) T ) \r \n ( S E T S
0006420 Y N O N Y M ( Q U O T E P E
0006440 R F O R M S ) ( Q U O T E F
0006460 E T C H E S ) T ) \r \n ( S E T
0006500 S Y N O N Y M ( Q U O T E P
0006520 E R F O R M I N G ) ( Q U O T
0006540 E F E T C H I N G ) T ) \r \n
0006560 ( S E T S Y N O N Y M ( Q U O
0006600 T E P E R F O R M E D ) ( Q
0006620 U O T E F E T C H E D ) T )
0006640 \r \n ( P U T P R O P S P E R F
0006660 O R M O P S U S E R R E C O R
0006700 D T Y P E P E R F O R M O P S
0006720 T R A N ) \r \n N I L \r \n
0006734