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