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