$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PCL>COMPILE-DEFINER-PATCH.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 { P H Y L U M } < 0000060 P C L > C O M P I L E - D E F I 0000100 N E R - P A T C H . ; 1 \r S o u 0000120 r c e f i l e c r e a t e d 0000140 T h u r s d a y , 9 J u l 0000160 y 1 9 8 7 , 1 7 : 2 4 : 2 4 0000200 . \r F A S L f i l e c r e a 0000220 t e d T h u r s d a y , 9 0000240 J u l y 1 9 8 7 , 1 7 : 2 4 0000260 : 5 2 . \r 377 235 226 002 031 o \0 \0 \0 g \0 0000300 \0 g \0 \0 \v \0 \0 021 021 001 o \0 \0 \0 \t \0 0000320 \0 020 \0 002 001 230 225 214 016 F I L E C R E 0000340 A T E D L O C 002 \0 230 217 214 020 * S T 0000360 A N D A R D - I N P U T * 230 214 020 0000400 1 t o p - l e v e l f o r m 0000420 002 \0 \0 \0 230 220 214 \b F U N C T I O N 0000440 230 223 001 200 002 025 230 225 214 020 D E F I N E 0000460 - F I L E - I N F O \v 230 217 214 004 O 0000500 P E N 002 \b 230 220 214 006 O U T P U T 005 0000520 230 220 214 \t D I R E C T I O N 002 021 230 0000540 223 004 230 220 214 \a P A C K A G E 230 214 \b 0000560 X C L - U S E R 230 220 214 \t R E A D 0000600 T A B L E 230 214 003 X C L 001 230 214 006 { 0000620 N u l l } \0 235 226 \0 \t o \0 \0 \0 \t \0 0000640 \0 020 \0 230 214 020 1 t o p - l e v e 0000660 l f o r m \0 \0 \0 \0 231 003 230 223 001 200 0000700 001 005 230 225 214 \v F I L E C R E A T E 0000720 D \0 001 001 230 223 006 230 214 022 9 - J u l 0000740 - 8 7 1 7 : 2 4 : 2 4 230 214 % { 0000760 P H Y L U M } < P C L > C O M P 0001000 I L E - D E F I N E R - P A T C 0001020 H . ; 1 202 \0 \0 021 212 230 225 214 \a c h a 0001040 n g e s 230 225 214 003 t o : 230 223 003 230 225 0001060 214 \t F U N C T I O N S 230 222 214 017 P 0001100 R O C E S S - D E F I N E R 230 221 0001120 230 214 \b C O M P I L E R 230 222 214 020 P 0001140 R O C E S S - O N E - F O R M 231 0001160 030 \0 234 231 031 226 \0 2 h o \0 \0 \0 @ 001 301 0001200 002 311 \0 g \0 \0 ' @ 001 301 002 311 \0 g \0 \0 0001220 ' 270 @ k H 016 \f \0 \0 g \0 \0 h @ h 032 0001240 032 032 g \0 \0 \v \0 \0 020 \0 231 031 001 \0 \0 001 0001260 231 003 230 223 001 230 223 001 230 214 004 F O R M 002 0001300 . 230 222 214 020 C O M P I L E - A N D 0001320 - D U M P 231 030 037 230 217 214 006 F O R M 0001340 A T 004 + 230 220 214 \b O N E - S H O T 0001360 " 230 217 214 006 L A M B D A 026 230 225 214 017 0001400 D E F I N I T I O N - N A M E \f 0001420 230 225 214 \v D E F I N E R - F O R 001 0001440 002 230 214 024 ~ A d e f i n i t i o 0001460 n f o r ~ A \0 234 231 032 226 002 202 \0 0001500 \0 001 216 @ 003 242 261 001 210 @ 001 270 H g \0 \0 0001520 360 271 I 221 I 216 H g \0 \0 360 272 J 221 J 204 0001540 H g \0 \0 360 221 h 020 H g \0 \0 360 230 \b \0 0001560 \0 277 @ \t \0 \0 020 H g \0 \0 360 224 @ \t \0 0001600 \0 020 H g \0 \0 360 231 \b \0 \0 277 @ 002 \t \0 0001620 \0 020 H g \0 \0 360 224 @ \t \0 \0 020 H g \0 0001640 \0 360 232 @ g \0 \0 \t \0 \0 \n \0 \0 020 H g 0001660 \0 \0 360 232 @ g \0 \0 \t \0 \0 \n \0 \0 020 H 0001700 g \0 \0 360 262 027 @ 002 271 I 272 J 220 201 I 020 0001720 J 001 \t \0 \0 277 J 002 272 260 362 H g \0 \0 360 0001740 225 @ h \n \0 \0 020 H g \0 \0 360 271 I 222 I 0001760 260 [ H g \0 \0 360 272 J 222 J 260 P H g \0 0002000 \0 360 273 K 222 K 260 E H g \0 \0 360 274 L 222 0002020 L 260 : H g \0 \0 360 275 M 222 M 260 / H g 0002040 \0 \0 360 276 N 222 N 260 $ H g \0 \0 360 _ 016 0002060 277 O 016 223 O 016 260 025 H g \0 \0 360 _ 020 277 0002100 O 020 222 O 020 204 H g \0 \0 360 262 024 W 022 220 0002120 204 @ \t \0 \0 277 @ \t \0 \0 277 \b \0 \0 020 H 0002140 g \0 \0 360 233 @ W 024 032 c 024 277 @ \t \0 \0 0002160 020 H g \0 \0 360 230 \b \0 \0 277 @ \t \0 \0 020 0002200 H g \0 \0 360 271 I 221 I 204 H g \0 \0 360 224 0002220 @ \t \0 \0 020 @ 001 301 002 311 \0 g \0 \0 ' 221 0002240 i 200 h 230 \b \0 \0 277 @ \t \0 \0 020 W 022 224 0002260 @ \t \0 \0 020 @ \t \0 \0 \t \0 \0 271 I 002 001 0002300 227 I 001 b \0 277 261 376 } @ \t \0 \0 020 h 020 0002320 \0 003 \t 230 222 214 024 * M A K I N G - S 0002340 E C O N D - P A S S * 231 030 003 \n 230 0002360 222 214 031 * O U T S T A N D I N G - 0002400 L O O S E - F O R M S * 231 030 231 032 0002420 \t 002 \0 001 231 003 230 223 001 230 223 001 230 214 004 F 0002440 O R M 031 202 \0 \0 001 210 230 222 214 022 P R O 0002460 C E S S - L O O S E - F O R M 231 0002500 030 202 \0 \0 001 w 230 225 214 \a \ M V L I S 0002520 T 202 \0 \0 001 t 230 222 214 032 O P T I M I 0002540 Z E - A N D - M A C R O E X P A 0002560 N D - 1 231 030 202 \0 \0 001 o 231 , 202 \0 \0 0002600 001 g 231 031 202 \0 \0 001 b 230 222 214 037 P R O 0002620 C E S S - O U T S T A N D I N G 0002640 - L O O S E - F O R M S 231 030 202 \0 0002660 \0 001 O 230 222 214 020 P R O C E S S - M 0002700 A C R O L E T 231 030 202 \0 \0 001 : 230 222 0002720 214 024 P R O C E S S - C O M P I L 0002740 E R - L E T 231 030 202 \0 \0 001 5 231 / 202 0002760 \0 \0 001 + 230 222 214 024 P R O C E S S - 0003000 P R O C L A M A T I O N 231 030 202 \0 0003020 \0 001 031 231 / 202 \0 \0 001 025 231 , 202 \0 \0 001 0003040 020 230 217 214 004 E V A L 202 \0 \0 \0 241 230 222 0003060 214 030 P R O C E S S - D E F I N E 0003100 - F I L E - I N F O 231 030 202 \0 \0 \0 0003120 220 231 032 y 230 222 214 020 P R O C E S S - 0003140 D E C L A R E : 231 030 v 230 217 214 017 S 0003160 Y M B O L - F U N C T I O N h 230 0003200 222 214 021 P R O C E S S - E V A L - 0003220 W H E N 231 030 e 231 6 W 230 222 214 023 P R 0003240 O C E S S - D E F C O N S T A N 0003260 T 231 030 L 230 222 214 017 P R O C E S S - 0003300 D E F I N E Q 231 030 F 231 / < 230 222 214 0003320 034 P R O C E S S - S E T F - S Y 0003340 M B O L - F U N C T I O N 231 030 1 0003360 230 222 214 020 P R O C E S S - D E F M 0003400 A C R O 231 030 , 231 / 033 202 \0 \0 001 Y 231 0003420 % 202 \0 \0 001 I 230 222 214 \t % M A C R O 0003440 L E T 230 221 230 214 006 S Y S T E M 202 \0 0003460 \0 001 ? 230 217 214 \b M A C R O L E T 202 0003500 \0 \0 001 0 230 217 214 \f C O M P I L E R 0003520 - L E T 202 \0 \0 001 036 230 217 214 \b P R O 0003540 C L A I M 202 \0 \0 001 005 230 217 214 006 I M 0003560 P O R T 202 \0 \0 \0 367 230 217 214 \r U N U 0003600 S E - P A C K A G E 202 \0 \0 \0 350 230 0003620 217 214 \v U S E - P A C K A G E 202 \0 0003640 \0 \0 335 230 217 214 \b U N E X P O R T 202 0003660 \0 \0 \0 322 230 217 214 006 E X P O R T 202 \0 0003700 \0 \0 307 230 217 214 020 S H A D O W I N G 0003720 - I M P O R T 202 \0 \0 \0 274 230 217 214 006 0003740 S H A D O W 202 \0 \0 \0 261 230 217 214 \n I 0003760 N - P A C K A G E 202 \0 \0 \0 246 230 217 0004000 214 \f M A K E - P A C K A G E 202 \0 0004020 \0 \0 232 231 005 ~ 230 217 214 005 P R O G N s 0004040 231 032 m 230 225 214 \b D E C L A R E : b 0004060 231 032 \ 230 217 214 \t E V A L - W H E N 0004100 Q 230 217 214 \v D E F C O N S T A N T 0004120 A 230 225 214 \a D E F I N E Q 6 230 225 214 0004140 024 S E T F - S Y M B O L - F U N 0004160 C T I O N ' 230 217 214 \b D E F M A C 0004200 R O 037 230 217 214 005 Q U O T E 025 230 217 214 0004220 \b F U N C T I O N \v 230 225 214 \b F U 0004240 N C T I O N \0 \0 235 226 \0 \t o \0 \0 \0 0004260 \t \0 \0 020 \0 230 214 020 1 t o p - l e 0004300 v e l f o r m \0 \0 \0 \0 231 003 230 223 0004320 001 200 001 005 230 225 214 \b P U T P R O P S 0004340 \0 001 001 230 223 003 230 225 214 025 C O M P I L 0004360 E - D E F I N E R - P A T C H 230 0004400 225 214 \t C O P Y R I G H T 230 223 002 230 0004420 214 021 X e r o x C o r p o r a t 0004440 i o n 202 \0 \0 \a 303 \0 232 ] 377 377 0004455