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