$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>packed-structure.dfasl!1 0000000 221 \0 005 X C L C o m p i l e r 0000020 o u t p u t f o r s o u r c 0000040 e f i l e { E R I N Y E S } 0000060 < L I S P U S E R S > L Y R I C 0000100 > P A C K E D - S T R U C T U R 0000120 E . ; 1 \r S o u r c e f i l e 0000140 c r e a t e d M o n d a y , 0000160 1 9 O c t o b e r 1 9 8 7 0000200 , 1 4 : 5 3 : 2 7 . \r F A S L 0000220 f i l e c r e a t e d M o 0000240 n d a y , 1 9 O c t o b e r 0000260 1 9 8 7 , 1 4 : 5 4 : 0 9 . 0000300 \r 377 235 226 002 031 o \0 \0 \0 g \0 \0 g \0 \0 0000320 \v \0 \0 021 021 001 o \0 \0 \0 \t \0 \0 020 \0 002 0000340 001 230 225 214 016 F I L E C R E A T E D 0000360 L O C 002 \0 230 217 214 020 * S T A N D A 0000400 R D - I N P U T * 230 214 020 1 t o 0000420 p - l e v e l f o r m 002 \0 \0 \0 0000440 230 220 214 \b F U N C T I O N 230 223 001 200 0000460 002 025 230 225 214 020 D E F I N E - F I L 0000500 E - I N F O \v 230 217 214 004 O P E N 002 0000520 \b 230 220 214 006 O U T P U T 005 230 220 214 \t 0000540 D I R E C T I O N 002 021 230 223 004 230 220 0000560 214 \t R E A D T A B L E 230 214 003 X C 0000600 L 230 220 214 \a P A C K A G E 230 214 \b X 0000620 C L - U S E R 001 230 214 006 { N u l l 0000640 } \0 235 226 \0 7 g \0 \0 g \0 \0 o \0 \0 \0 0000660 \v \0 \0 277 g \0 \0 g \0 \0 g \0 \0 \v \0 \0 0000700 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 301 002 311 0000720 \0 g \0 \0 ' \n \0 \0 \v \0 \0 020 \0 230 214 021 0000740 3 t o p - l e v e l f o r m 0000760 s \0 \0 \0 \0 231 003 230 223 001 200 004 3 230 225 214 0001000 \a P U T P R O P 0 230 217 214 006 A D J 0001020 O I N 030 231 021 \v 231 021 \n , 230 225 214 \n D 0001040 E F I N E D - B Y % 230 225 214 \n S T 0001060 R U C T U R E S " 230 222 214 024 D E F 0001100 - P A C K E D - S T R U C T U R 0001120 E 230 221 230 214 \b X C L - U S E R 037 231 0001140 023 034 231 024 025 231 024 022 230 225 214 \v D E F I 0001160 N E R - F O R 017 231 027 004 230 225 214 \t F 0001200 I L E D A T E S 001 230 225 214 020 P A C 0001220 K E D - S T R U C T U R E 001 \a 230 0001240 223 001 230 224 002 230 214 022 1 9 - O c t - 8 0001260 7 1 4 : 5 3 : 3 3 225 214 - { E R 0001300 I N Y E S } < L I S P U S E R S 0001320 > L Y R I C > P A C K E D - S T 0001340 R U C T U R E . ; 1 \0 235 226 001 7 g 0001360 \0 \0 o \0 \0 \0 \n \0 \0 277 g \0 \0 g \0 \0 0001400 \n \0 \0 277 o \0 \0 \0 P g \0 \0 g \0 \0 \f 0001420 \0 \0 c \0 277 g \0 \0 g \0 \0 g \0 \0 \t \0 0001440 \0 \v \0 \0 020 \0 003 \0 230 225 214 021 P R E T 0001460 T Y P R I N T M A C R O S 230 214 021 0001500 3 t o p - l e v e l f o r m 0001520 s \0 001 \0 \0 231 003 230 223 001 200 005 3 231 021 0 0001540 230 217 214 017 S Y M B O L - F U N C T 0001560 I O N ! 231 022 022 230 225 214 023 S E T F - 0001600 M A C R O - F U N C T I O N \b 230 0001620 225 214 024 S E T F - S Y M B O L - F 0001640 U N C T I O N \b - 230 217 214 006 S E C 0001660 O N D * 230 225 214 017 D E F I N I T I 0001700 O N - N A M E ' 231 027 036 230 225 214 005 E 0001720 Q U A L 033 230 220 214 004 T E S T 017 230 222 0001740 214 033 e x p a n d - D E F - P A C 0001760 K E D - S T R U C T U R E 231 026 \f 0002000 231 027 001 231 ( 002 026 230 224 002 231 027 225 214 016 P 0002020 P R I N T - D E F I N E R 004 226 \0 0002040 b @ 270 A 271 @ \t \0 \0 272 J 002 001 273 g \0 0002060 \0 g \0 \0 g \0 \0 o \0 \0 \0 J I h 032 032 0002100 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 o 0002120 \0 \0 \0 g \0 \0 g \0 \0 K h 032 032 o \0 \0 0002140 \0 g \0 \0 H h 032 032 h 032 032 032 032 h 032 032 0002160 032 h 032 032 032 g \0 \0 K h 032 032 h 032 032 032 0002200 032 020 \0 230 214 033 l a m b d a i n 0002220 3 t o p - l e v e l f o r m 0002240 s 004 \0 \0 002 231 003 230 223 001 230 223 002 230 214 \f 0002260 $ $ M A C R O - F O R M 230 214 023 $ 0002300 $ M A C R O - E N V I R O N M E 0002320 N T 001 006 230 222 214 017 R E M O V E - C 0002340 O M M E N T S 230 221 230 214 021 X E R O 0002360 X - C O M M O N - L I S P \t U 230 0002400 217 214 005 Q U O T E A 231 2 6 231 2 3 230 0002420 225 214 026 \ D E F I N E - T Y P E - 0002440 S A V E - D E F N , 230 217 214 006 U N 0002460 L E S S % 230 217 214 \t E V A L - W H 0002500 E N 024 230 222 214 \r M A C R O - F U N 0002520 C A L L 230 221 230 214 006 S Y S T E M 021 0002540 230 225 214 017 W I T H O U T - F I L E 0002560 P K G 016 230 217 214 005 P R O G N 004 = 230 0002600 223 002 231 2 231 024 / 230 223 002 230 217 214 004 N U 0002620 L L 230 225 214 \n F I L E P K G F L G 0002640 ( 230 223 001 230 217 214 004 E V A L 027 226 001 202 0002660 \0 \0 003 = n \0 \0 037 X 277 @ 002 271 I 001 272 0002700 I 002 273 K 274 J \t \0 \0 021 001 005 j 276 j _ 0002720 016 277 h H 375 024 \0 277 h H 375 024 002 277 h H 0002740 375 024 004 277 h H 375 024 006 277 h _ 020 277 h _ 0002760 022 277 h _ 024 277 h _ 026 277 o \0 \0 \0 H 375 0003000 024 002 277 o \0 \0 \0 H 375 024 004 277 o \0 \0 \0 0003020 H 375 024 006 277 n \0 \0 037 o \0 \0 \0 024 \0 H 0003040 024 002 _ 020 277 n \0 \0 037 o \0 \0 \0 024 \0 H 0003060 024 002 _ 022 277 n \0 \0 037 o \0 \0 \0 024 \0 H 0003100 024 002 _ 024 277 n \0 \0 037 o \0 \0 \0 024 \0 H 0003120 024 002 _ 026 277 K _ 030 277 O 030 220 201 260 B O 0003140 030 001 _ 032 277 O 032 002 002 g \0 \0 ' 221 j 276 0003160 O 032 k H 311 002 016 N 032 H 311 \0 032 H 375 024 0003200 \0 277 N O 032 k O 026 016 324 276 O 016 N 363 222 0003220 O 016 200 N _ 016 277 O 030 002 _ 030 277 260 274 g 0003240 \0 \0 g \0 \0 J h g \0 \0 g \0 \0 N h 032 0003260 032 h 032 032 h 032 032 032 032 L _ 030 277 h _ 032 0003300 277 h _ 034 277 h _ 036 277 O 030 220 204 O 032 261 0003320 \0 245 O 030 001 _ 277 g \0 \0 H 311 006 _ " 0003340 277 J O k H 311 002 016 l 002 O " 016 o \0 0003360 \0 \0 O k H 311 004 016 g \0 \0 360 262 036 g 0003400 \0 \0 o \0 \0 \0 g \0 \0 O k O 020 016 h 0003420 032 032 o \0 \0 \0 032 032 032 260 5 g \0 \0 g \0 0003440 \0 O k O 024 016 223 g \0 \0 202 g \0 \0 h 0003460 032 032 g \0 \0 O k O 026 016 O k O 020 0003500 016 \n \0 \0 h 032 032 o \0 \0 \0 032 032 032 h 032 0003520 032 032 032 _ 036 277 O 032 230 O 034 O 036 & _ 034 0003540 277 210 O 036 h 032 _ 034 _ 032 277 O 030 002 _ 030 0003560 277 261 377 X g \0 \0 o \0 \0 \0 J l 002 H 311 0003600 006 016 g \0 \0 L _ 030 277 h _ 032 277 h _ 034 0003620 277 h _ 036 277 O 030 220 203 O 032 260 = O 030 001 0003640 _ 277 O k H 311 002 016 O 002 001 O 0003660 k O 022 016 h 032 032 032 _ 036 277 O 032 230 O 034 0003700 O 036 & _ 034 277 210 O 036 h 032 _ 034 _ 032 277 0003720 O 030 002 _ 030 277 260 277 o \0 \0 \0 \n \0 \0 032 0003740 L _ 030 277 h _ 032 277 h _ 034 277 h _ 036 277 0003760 O 030 220 204 O 032 261 \0 350 O 030 001 _ 277 g 0004000 \0 \0 O k O 022 016 g \0 \0 g \0 \0 O 0004020 k H 311 004 016 g \0 \0 360 262 8 g \0 \0 o \0 0004040 \0 \0 g \0 \0 o \0 \0 \0 O k H 311 002 016 0004060 g \0 \0 k O k O 020 016 347 o \0 \0 \0 032 0004100 h 032 032 h 032 032 032 032 o \0 \0 \0 032 032 032 260 0004120 f O k O 024 016 262 / g \0 \0 o \0 \0 \0 0004140 O k H 311 002 016 g \0 \0 O k O 026 016 0004160 O k O 020 016 \n \0 \0 h 032 032 o \0 \0 \0 0004200 032 032 032 032 260 1 g \0 \0 o \0 \0 \0 g \0 \0 0004220 o \0 \0 \0 O k H 311 002 016 g \0 \0 O 0004240 k O 020 016 h 032 h 032 032 h 032 032 032 032 o \0 0004260 \0 \0 032 032 032 h 032 032 032 h 032 032 032 _ 036 277 0004300 O 032 230 O 034 O 036 & _ 034 277 210 O 036 h 032 0004320 _ 034 _ 032 277 O 030 002 _ 030 277 261 377 025 o \0 0004340 \0 \0 \n \0 \0 032 032 032 h 032 \n \0 \0 032 032 020 0004360 \0 002 005 230 217 214 \t * P A C K A G E * 0004400 230 214 % l a m b d a i n l a m 0004420 b d a i n 3 t o p - l e v 0004440 e l f o r m s 022 \0 \0 002 231 003 230 223 0004460 001 230 223 002 230 214 \f $ $ M A C R O - F 0004500 O R M 230 214 023 $ $ M A C R O - E N 0004520 V I R O N M E N T 006 202 \0 \0 003 7 230 0004540 217 214 006 A P P E N D 202 \0 \0 003 / 231 G 0004560 202 \0 \0 002 303 230 217 214 004 B Y T E 202 \0 \0 0004600 002 ) 231 G 202 \0 \0 001 216 231 H 023 230 217 214 016 0004620 S Y M B O L - P A C K A G E 034 202 0004640 \0 \0 002 350 231 2 202 \0 \0 002 332 230 217 214 005 L 0004660 I S T * 202 \0 \0 002 323 230 217 214 004 L I S 0004700 T 202 \0 \0 002 264 231 2 202 \0 \0 002 246 231 K 202 0004720 \0 \0 002 } 231 2 202 \0 \0 002 o 231 J 202 \0 \0 0004740 002 h 231 K 202 \0 \0 002 b 230 220 214 \a B O O 0004760 L E A N 202 \0 \0 002 X 230 222 214 005 V A L 0005000 U E 231 026 202 \0 \0 002 U 230 217 214 004 S E T 0005020 Q 202 \0 \0 002 L 230 217 214 004 W H E N 202 \0 0005040 \0 001 317 230 217 214 004 & K E Y 202 \0 \0 001 301 0005060 230 217 214 \b D E F M A C R O 202 \0 \0 001 0005100 177 231 2 202 \0 \0 001 y 230 217 214 003 L D B 202 0005120 \0 \0 001 u 230 222 214 \n S I G N E D - L 0005140 D B 231 026 202 \0 \0 001 k 231 2 202 \0 \0 001 h 0005160 231 K 202 \0 \0 001 S 231 2 202 \0 \0 001 L 231 K 0005200 202 \0 \0 001 F 231 L 202 \0 \0 001 % 231 Q 202 \0 0005220 \0 \0 367 230 217 214 \r U N S I G N E D - 0005240 B Y T E 202 \0 \0 \0 364 231 2 202 \0 \0 \0 357 0005260 230 217 214 \a D E F T Y P E 202 \0 \0 \0 354 0005300 231 : 202 \0 \0 \0 266 230 220 214 \a O V E R L 0005320 A Y 027 202 \0 \0 003 + 230 223 001 231 M 202 \0 \0 0005340 002 373 230 223 001 231 M 202 \0 \0 002 335 230 223 002 231 0005360 2 230 217 214 003 A S H 202 \0 \0 002 326 230 223 002 0005400 231 2 230 217 214 006 L O G I O R 202 \0 \0 002 0005420 311 230 223 001 231 M 202 \0 \0 002 251 230 223 002 231 2 0005440 230 217 214 003 D P B 202 \0 \0 002 225 230 223 001 231 0005460 M 202 \0 \0 002 210 230 223 001 \0 202 \0 \0 002 r 230 0005500 223 002 231 2 230 217 214 002 I F 202 \0 \0 002 k 230 0005520 223 002 231 2 231 [ 202 \0 \0 002 % 230 223 002 230 217 0005540 214 004 & A U X 230 223 002 231 M \0 202 \0 \0 001 0005560 304 230 214 004 M A K E 202 \0 \0 001 224 230 223 001 0005600 230 222 214 001 X 231 026 202 \0 \0 001 _ 230 223 001 231 0005620 i 202 \0 \0 001 O 230 223 002 231 2 230 217 214 \a L 0005640 O G B I T P 202 \0 \0 001 ; 230 223 001 231 i 0005660 202 \0 \0 \0 226 226 \0 5 @ k H 311 004 016 271 I 0005700 g \0 \0 360 221 k 020 I 001 272 J g \0 \0 360 273 0005720 K 221 K 204 J g \0 \0 360 223 I 002 001 020 h o 0005740 \0 \0 \0 J o \0 \0 \0 \f \0 \0 020 \0 230 214 / 0005760 l a m b d a i n l a m b d a 0006000 i n l a m b d a i n 3 0006020 t o p - l e v e l f o r m s 004 0006040 \0 \0 001 230 220 214 \a C L O S U R E 230 223 0006060 001 230 223 001 230 214 004 S L O T 001 1 230 225 214 0006100 \n E C A S E - F A I L 003 036 230 217 214 0006120 \v S I G N E D - B Y T E 024 231 T \t 0006140 231 L 002 - 230 223 002 231 T 231 u ( 230 223 002 230 0006160 217 214 003 C A R 230 217 214 004 T Y P E \0 202 0006200 \0 \0 \0 206 226 \0 ' @ k H 311 004 016 271 I 221 0006220 h 200 i 272 J 221 J 205 I 003 221 i 200 h 233 @ 0006240 k H 311 004 016 001 g \0 \0 360 020 h 020 \0 230 214 0006260 / l a m b d a i n l a m b d 0006300 a i n l a m b d a i n 3 0006320 t o p - l e v e l f o r m s 0006340 003 \0 \0 001 231 p 230 223 001 230 223 001 230 214 004 S 0006360 L O T \0 001 231 u \0 \0 v 226 \0 024 H 311 0006400 006 271 @ k H 311 002 016 o \0 \0 \0 l 002 I 016 0006420 020 \0 230 214 / l a m b d a i n l 0006440 a m b d a i n l a m b d a 0006460 i n 3 t o p - l e v e l f 0006500 o r m s 002 \0 \0 001 231 p 230 223 001 230 223 001 0006520 230 214 004 S L O T \0 \0 001 \v 230 214 \n S U 0006540 P P L I E D - P \0 f 226 \0 017 @ k H 0006560 311 002 016 H 311 \0 \n \0 \0 002 020 \0 230 214 / l 0006600 a m b d a i n l a m b d a 0006620 i n l a m b d a i n 3 t 0006640 o p - l e v e l f o r m s 001 \0 0006660 \0 001 231 p 230 223 001 230 223 001 230 214 004 S L O 0006700 T 001 \n 230 217 214 005 A S S O C \0 \0 \0 Y 0006720 226 \0 025 h o \0 \0 \0 @ \t \0 \0 A \t \0 \0 0006740 \f \0 \0 \t \0 \0 020 \0 230 214 / l a m b d 0006760 a i n l a m b d a i n l 0007000 a m b d a i n 3 t o p - l 0007020 e v e l f o r m s \0 \0 \0 002 231 003 0007040 230 223 001 230 223 002 230 214 001 X 230 214 001 Y 004 021 0007060 230 217 214 006 I N T E R N 016 230 217 214 006 F 0007100 O R M A T \v 230 217 214 006 S T R I N G 0007120 \a 231 202 \0 \0 \0 217 \0 001 002 230 214 005 ~ A - 0007140 ~ A \0 P 226 \0 033 @ 002 002 g \0 \0 i \v \0 0007160 \0 270 H o \0 \0 \0 \n \0 \0 223 g \0 \0 020 H 0007200 020 \0 230 214 / l a m b d a i n l 0007220 a m b d a i n l a m b d a 0007240 i n 3 t o p - l e v e l f 0007260 o r m s 001 \0 \0 001 231 003 230 223 001 230 223 001 0007300 230 214 004 S L O T 002 021 230 217 214 \b S U B 0007320 T Y P E P \b 230 217 214 004 G E T F 002 025 0007340 231 L 004 230 220 214 004 T Y P E 001 \r 230 223 003 0007360 230 217 214 006 M E M B E R 200 201 \0 G 226 \0 0007400 004 @ 001 020 \0 230 214 / l a m b d a i 0007420 n l a m b d a i n l a m b 0007440 d a i n 3 t o p - l e v e 0007460 l f o r m s \0 \0 \0 001 231 003 230 223 001 0007500 230 223 001 230 214 004 S L O T \0 \0 \0 \0 005 202 0007520 \0 \0 \0 222 230 225 214 020 C O M P I L E D 0007540 - C L O S U R E 202 \0 \0 \0 202 231 202 \0 0007560 \0 \0 236 r 231 202 \0 \0 \0 236 b 231 202 \0 \0 \0 0007600 236 001 230 225 214 \t \ P T R H U N K 4 \0 0007620 \0 234 231 S 226 \0 / @ A \n \0 \0 270 @ 005 001 0007640 224 @ m 370 347 201 @ 001 271 I k 325 272 k k H 0007660 j J 325 347 345 360 233 H I j \n \0 \0 m 377 \v 0007700 \0 \0 020 H 020 \0 231 S 003 \0 \0 002 231 003 230 223 0007720 001 230 223 002 230 214 \b B Y T E S P E C 230 0007740 214 \a I N T E G E R 003 ) 231 ^ $ 231 H 0007760 003 231 R \0 \0 \0 235 226 \0 \v g \0 \0 g \0 \0 0010000 \n \0 \0 020 \0 230 214 020 1 t o p - l e 0010020 v e l f o r m \0 \0 \0 \0 231 003 230 223 0010040 001 200 001 \a 230 217 214 030 S E T - S E T F 0010060 - M E T H O D - E X P A N D E R 0010100 002 004 230 217 214 025 s e t f - e x p a n 0010120 d e r - L O G B I T P 001 231 l \0 \0 0010140 234 231 202 \0 \0 \0 247 226 \0 202 \0 \0 \0 273 @ 002 0010160 \t \0 \0 l 002 377 242 261 \0 241 @ 002 270 H 001 271 0010200 H 002 001 \t \0 \0 \t \0 \0 272 J 001 273 J 002 274 0010220 L 001 275 L 002 276 N 001 _ 016 277 N 002 _ 020 277 0010240 O 020 001 _ 022 277 O 020 002 001 _ 024 277 \b \0 \0 0010260 _ 026 277 \b \0 \0 _ 030 277 O 026 K 032 I M 032 0010300 O 030 h 032 g \0 \0 O 016 001 g \0 \0 O 030 g 0010320 \0 \0 O 024 g \0 \0 k O 026 h 032 032 032 h 032 0010340 032 032 g \0 \0 O 024 g \0 \0 k O 026 h 032 032 0010360 032 h 032 032 032 h 032 032 032 032 h 032 032 h 032 O 0010400 022 O 030 h 032 032 032 032 g \0 \0 O 026 O 024 h 0010420 032 032 032 \r 005 \0 \0 020 o \0 \0 \0 g \0 \0 @ 0010440 002 \t \0 \0 \v \0 \0 020 \0 231 202 \0 \0 \0 247 \r 0010460 \0 \0 002 231 003 230 223 001 230 223 002 230 214 \r w h 0010500 o l e - L O G B I T P 230 214 \v e n 0010520 v - L O G B I T P \b 202 \0 \0 \0 267 230 0010540 217 214 005 E R R O R 202 \0 \0 \0 264 230 217 214 0010560 006 L E N G T H 202 \0 \0 \0 247 230 217 214 006 0010600 V A L U E S F 230 225 214 006 G E N S Y 0010620 M @ 231 202 \0 \0 \0 257 031 230 225 214 \a \ M V 0010640 L I S T 026 230 217 214 017 G E T - S E T 0010660 F - M E T H O D 003 231 202 \0 \0 \0 255 \b 0010700 202 \0 \0 \0 257 231 l 202 \0 \0 \0 233 231 l z 231 0010720 Y u 230 217 214 \b L O G A N D C 2 g 231 0010740 Y b 231 [ ] 231 b W 230 217 214 003 L E T 001 0010760 202 \0 \0 \0 253 230 214 3 S e t f e x p 0011000 a n d e r f o r ~ S c a n 0011020 n o t b e c a l l e d w i 0011040 t h ~ S a r g s . \0 235 226 \0 021 0011060 o \0 \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0 020 0011100 \0 230 214 021 2 t o p - l e v e l 0011120 f o r m s \0 \0 \0 \0 231 003 230 223 001 200 002 0011140 \r 230 225 214 \b P U T P R O P S 005 231 202 0011160 \0 \0 \0 267 \0 002 \t 230 223 003 231 032 230 225 214 \t 0011200 C O P Y R I G H T 230 223 002 230 214 021 X 0011220 e r o x C o r p o r a t i o n 0011240 202 \0 \0 \a 303 001 230 223 003 231 032 230 225 214 024 M 0011260 A K E F I L E - E N V I R O N M 0011300 E N T 230 223 004 231 \t 230 214 003 X C L 231 \v 0011320 230 214 \b X C L - U S E R \0 232 202 \0 \0 0011340 \0 301 377 377 0011344