$ 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