$ 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