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