$ od -c -N 50000 [phylum]<3-LISP>course>koto>KERNEL.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 : 1 6
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 . ; 1 ) \r " 1 2 - N o
0000140 v - 8 5 1 4 : 5 9 : 2 3 " b
0000160 c o m p l ' d i n " I N T E
0000200 R L I S P - D 1 1 - M a y - 8
0000220 6 . . . " d a t e d " 1 1
0000240 - M a y - 8 6 1 5 : 1 9 : 0 8
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 1 4 - A u g - 8 4 0 1 : 0 2
0000320 : 0 3 " { P H Y L U M } < 3 -
0000340 L I S P > A U G > K E R N E L .
0000360 ; 1 1 3 6 7 9 p r e v i o u
0000400 s d a t e : \r " 6 - J u n
0000420 - 8 4 0 6 : 3 2 : 2 1 " { P
0000440 H Y L U M } < 3 - L I S P > G U
0000460 M B Y > K E R N E L . ; 1 ) \r B
0000500 E G I N - C L O S U R E D 1 \r
0000520 N I L \0 \b \0 \0 \0 \0 g \0 \0 \t \0 \0
0000540 020 \0 ( 5 G L O B A L - B I N D
0000560 I N G ) \r ( 2 B E G I N ) \r (
0000600 ) \r C A R G S - S K E L E T O N
0000620 D 1 \r N I L \0 # \0 \0 \0 \0 ` \0
0000640 \0 265 036 o \0 \0 \0 \b \0 \0 006 \0 \0 311 \b h
0000660 032 o \0 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020
0000700 \0 ( 3 5 Q M A K E - S K E L E
0000720 T O N - F R O M - L A M B D A -
0000740 E X P R 3 1 Q E D I T L 1
0000760 3 Q C P R O C - S K E L E T O
0001000 N ) \r ( 4 0 Q C A C H E D - C
0001020 A R G S - S K E L E T O N 1 6
0001040 Q S K E L E T O N 2 C A C
0001060 H E D - C A R G S - S K E L E T
0001100 O N ) \r ( 2 6 Q ( ( F ( &
0001120 L A M B D A ( ( A R G S - N
0001140 F ! . ) - - ) - - ) 1 )
0001160 ) 1 0 Q " n o r m a l i z e
0001200 ' s a r g s - n f c o n t i
0001220 n u a t i o n " ) \r C B E G I N
0001240 - A R G S - S K E L E T O N D
0001260 1 \r N I L \0 2 \0 \0 \0 \0 ` \0 \0 265
0001300 - o \0 \0 \0 g \0 \0 \t \0 \0 006 \0 \0 311 002
0001320 006 \0 \0 311 \0 311 002 006 \0 \0 311 \b h 032 o \0
0001340 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0 ( 5
0001360 4 Q M A K E - S K E L E T O N
0001400 - F R O M - L E T - E X P R 5
0001420 0 Q E D I T L 1 6 Q G L O
0001440 B A L - B I N D I N G ) \r ( 5 7
0001460 Q C A C H E D - C B E G I N -
0001500 A R G S - S K E L E T O N 3 5
0001520 Q S K E L E T O N 2 6 Q N
0001540 L I S P - S T A C K - O B J E C
0001560 T 2 1 Q R E F L E C T I V E
0001600 - C L O S U R E 1 3 Q B E G
0001620 I N 2 C A C H E D - C B E G
0001640 I N - A R G S - S K E L E T O N
0001660 ) \r ( 4 5 Q ( ( F ( & L
0001700 E T - - ) 1 ) ) 1 0 Q "
0001720 b e g i n ' s a r g s " ) \r C
0001740 B E G I N - S K E L E T O N D
0001760 1 \r N I L \0 # \0 \0 \0 \0 ` \0 \0 265
0002000 036 o \0 \0 \0 \b \0 \0 006 \0 \0 311 \b h 032 o
0002020 \0 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0 (
0002040 3 5 Q M A K E - S K E L E T O
0002060 N - F R O M - L A M B D A - E X
0002100 P R 3 1 Q E D I T L 1 3 Q
0002120 C B E G I N - A R G S - S K E
0002140 L E T O N ) \r ( 4 0 Q C A C H
0002160 E D - C B E G I N - S K E L E T
0002200 O N 1 6 Q S K E L E T O N
0002220 2 C A C H E D - C B E G I N -
0002240 S K E L E T O N ) \r ( 2 6 Q
0002260 ( ( F ( & L A M B D A ( (
0002300 J U N K - N F ! . ) - - )
0002320 - - ) 1 ) ) 1 0 Q " b e g
0002340 i n ' s j u n k - n f c o n
0002360 t i n u a t i o n " ) \r C F I R
0002400 S T - S K E L E T O N D 1 \r N
0002420 I L \0 # \0 \0 \0 \0 ` \0 \0 265 036 o \0
0002440 \0 \0 \b \0 \0 006 \0 \0 311 \b h 032 o \0 \0 \0
0002460 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0 ( 3 5 Q
0002500 M A K E - S K E L E T O N - F
0002520 R O M - L A M B D A - E X P R
0002540 3 1 Q E D I T L 1 3 Q N O
0002560 R M A L I S E - S K E L E T O N
0002600 ) \r ( 4 0 Q C A C H E D - C F
0002620 I R S T - S K E L E T O N 1 6
0002640 Q S K E L E T O N 2 C A C
0002660 H E D - C F I R S T - S K E L E
0002700 T O N ) \r ( 2 6 Q ( ( F (
0002720 & L A M B D A ( ( F I R S T
0002740 - N F ! . ) - - ) - - )
0002760 1 ) ) 1 0 Q " n o r m a l i
0003000 z e ' s f i r s t - n f c o
0003020 n t i n u a t i o n " ) \r C I F
0003040 - A R G S - S K E L E T O N D
0003060 1 \r N I L \0 2 \0 \0 \0 \0 ` \0 \0 265
0003100 - o \0 \0 \0 g \0 \0 \t \0 \0 006 \0 \0 311 002
0003120 006 \0 \0 311 \0 311 002 006 \0 \0 311 \b h 032 o \0
0003140 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0 ( 5
0003160 4 Q M A K E - S K E L E T O N
0003200 - F R O M - L E T - E X P R 5
0003220 0 Q E D I T L 1 6 Q G L O
0003240 B A L - B I N D I N G ) \r ( 5 7
0003260 Q C A C H E D - C I F - A R G
0003300 S - S K E L E T O N 3 5 Q S
0003320 K E L E T O N 2 6 Q N L I S
0003340 P - S T A C K - O B J E C T 2
0003360 1 Q R E F L E C T I V E - C L
0003400 O S U R E 1 3 Q I F 2 C
0003420 A C H E D - C I F - A R G S - S
0003440 K E L E T O N ) \r ( 4 5 Q (
0003460 ( F ( & L E T - - ) 1 )
0003500 ) 1 0 Q " i f ' s a r g s
0003520 " ) \r C I F - S K E L E T O N
0003540 D 1 \r N I L \0 # \0 \0 \0 \0 ` \0 \0
0003560 265 036 o \0 \0 \0 \b \0 \0 006 \0 \0 311 \b h 032
0003600 o \0 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0
0003620 ( 3 5 Q M A K E - S K E L E T
0003640 O N - F R O M - L A M B D A - E
0003660 X P R 3 1 Q E D I T L 1 3
0003700 Q C I F - A R G S - S K E L E
0003720 T O N ) \r ( 4 0 Q C A C H E D
0003740 - C I F - S K E L E T O N 1 6
0003760 Q S K E L E T O N 2 C A C
0004000 H E D - C I F - S K E L E T O N
0004020 ) \r ( 2 6 Q ( ( F ( & L
0004040 A M B D A ( ( P R E M I S E -
0004060 N F ! . ) - - ) - - ) 1
0004100 ) ) 1 0 Q " i f ' s p r e
0004120 m i s e - n f c o n t i n u a
0004140 t i o n " ) \r C P R O C - S K E
0004160 L E T O N D 1 \r N I L \0 # \0
0004200 \0 \0 \0 ` \0 \0 265 036 o \0 \0 \0 \b \0 \0 006
0004220 \0 \0 311 \b h 032 o \0 \0 \0 \n \0 \0 001 \n \0
0004240 \0 027 \0 \0 020 \0 ( 3 5 Q M A K E -
0004260 S K E L E T O N - F R O M - L A
0004300 M B D A - E X P R 3 1 Q E D
0004320 I T L 1 3 Q N O R M A L I S
0004340 E - S K E L E T O N ) \r ( 4 0 Q
0004360 C A C H E D - C P R O C - S K
0004400 E L E T O N 1 6 Q S K E L E
0004420 T O N 2 C A C H E D - C P R
0004440 O C - S K E L E T O N ) \r ( 2
0004460 6 Q ( ( F ( & L A M B D A
0004500 ( ( P R O C - N F ! . ) -
0004520 - ) - - ) 1 ) ) 1 0 Q "
0004540 n o r m a l i z e ' s p r o c
0004560 - n f c o n t i n u a t i o n
0004600 " ) \r C R E S T - S K E L E T O
0004620 N D 1 \r N I L \0 # \0 \0 \0 \0 `
0004640 \0 \0 265 036 o \0 \0 \0 \b \0 \0 006 \0 \0 311 \b
0004660 h 032 o \0 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0
0004700 020 \0 ( 3 5 Q M A K E - S K E L
0004720 E T O N - F R O M - L A M B D A
0004740 - E X P R 3 1 Q E D I T L
0004760 1 3 Q C F I R S T - S K E L E
0005000 T O N ) \r ( 4 0 Q C A C H E D
0005020 - C R E S T - S K E L E T O N
0005040 1 6 Q S K E L E T O N 2 C
0005060 A C H E D - C R E S T - S K E L
0005100 E T O N ) \r ( 2 6 Q ( ( F
0005120 ( & L A M B D A ( ( R E S T
0005140 - N F ! . ) - - ) - - )
0005160 1 ) ) 1 0 Q " n o r m a l i
0005200 z e ' s r e s t - n f c o n
0005220 t i n u a t i o n " ) \r C S E T
0005240 - A R G S - S K E L E T O N D
0005260 1 \r N I L \0 2 \0 \0 \0 \0 ` \0 \0 265
0005300 - o \0 \0 \0 g \0 \0 \t \0 \0 006 \0 \0 311 002
0005320 006 \0 \0 311 \0 311 002 006 \0 \0 311 \b h 032 o \0
0005340 \0 \0 \n \0 \0 001 \n \0 \0 027 \0 \0 020 \0 ( 5
0005360 4 Q M A K E - S K E L E T O N
0005400 - F R O M - L E T - E X P R 5
0005420 0 Q E D I T L 1 6 Q G L O
0005440 B A L - B I N D I N G ) \r ( 5 7
0005460 Q C A C H E D - C S E T - A R
0005500 G S - S K E L E T O N 3 5 Q
0005520 S K E L E T O N 2 6 Q N L I
0005540 S P - S T A C K - O B J E C T
0005560 2 1 Q R E F L E C T I V E - C
0005600 L O S U R E 1 3 Q S E T 2
0005620 C A C H E D - C S E T - A R G
0005640 S - S K E L E T O N ) \r ( 4 5
0005660 Q ( ( F ( & L E T - - )
0005700 1 ) ) 1 0 Q " s e t ' s
0005720 a r g s " ) \r C S E T - S K E L
0005740 E T O N D 1 \r N I L \0 # \0 \0
0005760 \0 \0 ` \0 \0 265 036 o \0 \0 \0 \b \0 \0 006 \0
0006000 \0 311 \b h 032 o \0 \0 \0 \n \0 \0 001 \n \0 \0
0006020 027 \0 \0 020 \0 ( 3 5 Q M A K E - S
0006040 K E L E T O N - F R O M - L A M
0006060 B D A - E X P R 3 1 Q E D I
0006100 T L 1 3 Q C S E T - A R G S
0006120 - S K E L E T O N ) \r ( 4 0 Q
0006140 C A C H E D - C S E T - S K E L
0006160 E T O N 1 6 Q S K E L E T O
0006200 N 2 C A C H E D - C S E T -
0006220 S K E L E T O N ) \r ( 2 6 Q
0006240 ( ( F ( & L A M B D A ( (
0006260 R H S - N F ! . ) - - ) -
0006300 - ) 1 ) ) 1 0 Q " s e t '
0006320 s r h s - n f c o n t i n u
0006340 a t i o n " ) \r D E F I N E - K
0006360 E R N E L - N O N - P R I M I T
0006400 I V E D 1 \r ( P 1 3 Q \ I
0006420 N T E R R U P T A B L E P 1
0006440 2 Q V L P 1 1 Q N X P
0006460 1 0 Q S P R P 0 S K E
0006500 L E T O N I 3 C O M M E N
0006520 T I 2 B O D Y I 1 P
0006540 A T I 0 N A M E ) \0 335 \f
0006560 \0 \0 004 021 200 \a 021 0 \n A 265 035 i _ 020 277
0006600 A \t \0 \0 _ 022 277 A _ 024 277 ` \0 \0 037 d
0006620 O 020 262 031 k 260 027 3 \b 262 343 A 262 340 h _
0006640 020 277 k _ 022 277 A h 032 260 337 j 317 \0 \0 277
0006660 d j 317 \0 020 277 d O 022 024 \0 277 d O 024 024
0006700 002 277 d h 024 004 277 d C 024 006 277 d B 024 \b
0006720 277 022 X ` \0 \0 @ h 032 032 H \b \0 \0 275 274
0006740 021 020 \v ` \0 \0 311 002 271 ` \0 \0 311 006 272 l
0006760 003 J 361 223 \b \0 \0 277 ` \0 \0 I l 003 320 l
0007000 003 320 316 002 277 ` \0 \0 J l 003 331 316 006 277 I
0007020 [ j 315 \0 277 K j 315 001 277 K l 003 317 \0 \a
0007040 277 K L 316 002 277 K M 316 004 277 K 022 276 ` \0
0007060 \0 037 d N 024 \0 277 ` \0 \0 032 027 \0 \0 001 _
0007100 016 277 ` \0 \0 O 016 h 032 032 \n \0 \0 h 020 \0
0007120 ( 3 3 1 Q P R I M - R E B I N
0007140 D - I N - S Y S T E M - E N V I
0007160 R O N M E N T 2 0 3 Q S I G
0007200 N A L - N O - S P A C E 1 5 2
0007220 Q G L O B A L - E N V I R O N
0007240 M E N T 2 0 Q L E N G T H )
0007260 \r ( 3 2 1 Q * Q U O T E * 3
0007300 1 2 Q W R A P - A N C H O R
0007320 3 0 6 Q W R A P - A N C H O R
0007340 2 7 5 Q 004 003 N L I S P - S T
0007360 A C K - O B J E C T T Y P E #
0007400 2 2 4 Q N E W - S P A C E 2
0007420 0 7 Q N E W - S P A C E 1 7
0007440 0 Q N E W - S P A C E 1 6 2
0007460 Q N E W - S P A C E 1 4 2 Q
0007500 * Q U O T E * 3 2 Q 004 003 S
0007520 K E L E T O N T Y P E # ) \r ( )
0007540 \r D E F I N E - K E R N E L - R
0007560 E F L E C T I V E D 1 \r ( P
0007600 1 3 Q \ I N T E R R U P T A B
0007620 L E P 1 2 Q V L P 1 1
0007640 Q N X P 1 0 Q S P R P
0007660 0 S K I 2 C O M M E N
0007700 T I 1 I D I 0 N A M
0007720 E ) \0 345 \f \0 \0 003 021 200 \a 021 0 \n o
0007740 \0 \0 \0 3 \b 237 h _ 020 277 k _ 022 277 o \0
0007760 \0 \0 h 032 260 024 i _ 020 277 o \0 \0 \0 \t \0
0010000 \0 _ 022 277 o \0 \0 \0 _ 024 277 ` \0 \0 037 d
0010020 O 020 221 k 200 j 317 \0 \0 277 d j 317 \0 020 277
0010040 d O 022 024 \0 277 d O 024 024 002 277 d h 024 004
0010060 277 d B 024 006 277 d g \0 \0 024 \b 277 022 X @
0010100 H \b \0 \0 275 274 021 020 \v ` \0 \0 311 002 271 `
0010120 \0 \0 311 006 272 l 003 J 361 223 \b \0 \0 277 ` \0
0010140 \0 I l 003 320 l 003 320 316 002 277 ` \0 \0 J l
0010160 003 331 316 006 277 I [ j 315 \0 277 K j 315 001 277
0010200 K l 003 317 \0 \a 277 K L 316 002 277 K M 316 004
0010220 277 K 022 276 ` \0 \0 037 d N 024 \0 277 ` \0 \0
0010240 032 027 \0 \0 001 _ 016 277 ` \0 \0 037 d O 016 024
0010260 002 277 d A 024 \0 277 i \v \0 \0 h 020 \0 ( 3
0010300 4 1 Q R E B I N D - I N - G L
0010320 O B A L - E N V I R O N M E N T
0010340 2 0 3 Q S I G N A L - N O -
0010360 S P A C E 1 5 2 Q G L O B A
0010400 L - E N V I R O N M E N T 4 7
0010420 Q L E N G T H ) \r ( 3 2 1 Q
0010440 004 003 R E F L E C T I V E - C L O
0010460 S U R E T Y P E # 3 1 2 Q W
0010500 R A P - A N C H O R 3 0 6 Q
0010520 W R A P - A N C H O R 2 7 5 Q
0010540 004 003 N L I S P - S T A C K - O
0010560 B J E C T T Y P E # 2 2 4 Q
0010600 N E W - S P A C E 2 0 7 Q N
0010620 E W - S P A C E 1 7 0 Q N E
0010640 W - S P A C E 1 6 2 Q N E W
0010660 - S P A C E 1 4 0 Q Y I K E
0010700 S ! - K E R N E L - R E F L E C
0010720 T I V E - N O T - D E F I N E D
0010740 - Y E T 6 4 Q 004 003 S K E L E
0010760 T O N T Y P E # ) \r ( 5 6 Q
0011000 ( E X P E N V E S C C O N
0011020 T ) 4 4 Q ( E X P E N V
0011040 E S C C O N T ) 3 0 Q ( E
0011060 X P E N V E S C C O N T )
0011100 1 1 Q ( E X P E N V E S
0011120 C C O N T ) ) \r D E F I N E -
0011140 P R I M I T I V E D 1 \r ( P
0011160 1 4 Q \ I N T E R R U P T A B
0011200 L E P 1 B O D Y P 0
0011220 S K I 2 P R I M I T I V E
0011240 - N A M E I 1 P A T T E R
0011260 N I 0 N A M E ) 001 \t \r \0
0011300 \0 003 021 220 \b @ A d 004 l 004 360 235 265 006 h
0011320 230 A 217 i 360 263 372 i 260 370 A ` \0 \0 h 032
0011340 \n \0 \0 \n \0 \0 Y A @ \t \0 \0 \t \0 \0 273
0011360 272 021 0 \v J 265 035 i _ 022 277 J \t \0 \0 _
0011400 024 277 J _ 026 277 ` \0 \0 037 d O 022 262 031 k
0011420 260 027 3 \b 262 343 J 262 340 h _ 022 277 k _ 024
0011440 277 J h 032 260 337 j 317 \0 \0 277 d j 317 \0 020
0011460 277 d O 024 024 \0 277 d O 026 024 002 277 d h 024
0011500 004 277 d K 024 006 277 d I 024 \b 277 022 X d 006
0011520 \0 \0 l \v B h 032 032 h 032 024 004 H 006 \0 \0
0011540 k 317 \0 020 277 k j 360 h 360 @ H \b \0 \0 _
0011560 020 277 _ 016 277 021 020 \f ` \0 \0 311 002 274 ` \0
0011600 \0 311 006 275 l 003 M 361 223 \b \0 \0 277 ` \0 \0
0011620 L l 003 320 l 003 320 316 002 277 ` \0 \0 M l 003
0011640 331 316 006 277 L ^ j 315 \0 277 N j 315 001 277 N
0011660 l 003 317 \0 \a 277 N O 016 316 002 277 N O 020 316
0011700 004 277 N 022 i \v \0 \0 h 020 \0 ( 4 0 5 Q
0011720 R E B I N D - I N - G L O B A
0011740 L - E N V I R O N M E N T 3 1
0011760 1 Q S I G N A L - N O - S P A
0012000 C E 2 5 4 Q G L O B A L - E
0012020 N V I R O N M E N T 7 4 Q L
0012040 E N G T H 5 4 Q L - C A S E
0012060 5 1 Q C O N C A T 4 3 Q
0012100 P C O N S 4 0 Q \ A P P E N
0012120 D 2 ) \r ( 3 3 2 Q N E W - S P
0012140 A C E 3 1 5 Q N E W - S P A
0012160 C E 2 7 6 Q N E W - S P A C
0012200 E 2 7 0 Q N E W - S P A C E
0012220 2 3 5 Q S K E L E T O N 2
0012240 1 7 Q S K E L E T O N 1 0 6
0012260 Q 004 003 S K E L E T O N T Y P E
0012300 # 3 3 Q * R A I L * ) \r ( )
0012320 \r D O W N - C L O S U R E D 1
0012340 \r N I L \0 \b \0 \0 \0 \0 g \0 \0 \t \0
0012360 \0 020 \0 ( 5 G L O B A L - B I N
0012400 D I N G ) \r ( 2 D O W N ) \r (
0012420 ) \r E A N D - C L O S U R E D
0012440 1 \r N I L \0 \b \0 \0 \0 \0 g \0 \0 \t
0012460 \0 \0 020 \0 ( 5 G L O B A L - B I
0012500 N D I N G ) \r ( 2 E A N D ) \r
0012520 ( ) \r E O R - C L O S U R E D
0012540 1 \r N I L \0 \b \0 \0 \0 \0 g \0 \0 \t
0012560 \0 \0 020 \0 ( 5 G L O B A L - B I
0012600 N D I N G ) \r ( 2 E O R ) \r (
0012620 ) \r E R R O R - C L O S U R E
0012640 D 1 \r N I L \0 \b \0 \0 \0 \0 g \0 \0
0012660 \t \0 \0 020 \0 ( 5 G L O B A L - B
0012700 I N D I N G ) \r ( 2 E R R O R
0012720 ) \r ( ) \r E S C A P E - S K E L
0012740 E T O N D 1 \r N I L \0 # \0 \0
0012760 \0 \0 ` \0 \0 265 036 o \0 \0 \0 \b \0 \0 006 \0
0013000 \0 311 \b h 032 o \0 \0 \0 \n \0 \0 001 \n \0 \0
0013020 027 \0 \0 020 \0 ( 3 5 Q M A K E - S
0013040 K E L E T O N - F R O M - L A M
0013060 B D A - E X P R 3 1 Q E D I
0013100 T L 1 3 Q R E A D - N O R M
0013120 A L I S E - P R I N T - S K E L
0013140 E T O N ) \r ( 4 0 Q C A C H E
0013160 D - E S C A P E - S K E L E T O
0013200 N 1 6 Q S K E L E T O N 2
0013220 C A C H E D - E S C A P E - S
0013240 K E L E T O N ) \r ( 2 6 Q (
0013260 ( F ( & L A M B D A ( ( &
0013300 & & & & & & ! . )
0013320 - - ) - - ) 1 ) ) 1 0 Q
0013340 " r e a d - n o r m a l i z e
0013360 - p r i n t ' s e s c a p e
0013400 c o n t i n u a t i o n " ) \r I
0013420 F - C L O S U R E D 1 \r N I L
0013440 \0 \b \0 \0 \0 \0 g \0 \0 \t \0 \0 020 \0 (
0013460 5 G L O B A L - B I N D I N G
0013500 ) \r ( 2 I F ) \r ( ) \r I N I T
0013520 I A L I S E - G L O B A L - E N
0013540 V I R O N M E N T D 1 \r ( P
0013560 4 V L P 3 N X P 2
0013600 S P R P 0 S K ) 002 005 \0
0013620 \0 \0 021 001 \b \0 \0 g \0 \0 \t \0 \0 271 `
0013640 \0 \0 I h 032 032 027 \0 \0 g \0 \0 \b \0 \0 \n
0013660 \0 \0 g \0 \0 \b \0 \0 i \v \0 \0 g \0 \0 \b
0013700 \0 \0 i \v \0 \0 h 027 \0 \0 d 027 \0 \0 d 027
0013720 \0 \0 d 027 \0 \0 d 027 \0 \0 d 027 \0 \0 d 027
*
0013760 \0 \0 d 027 \0 \0 d 027 \0 \0 g \0 \0 o \0 \0
0014000 \0 g \0 \0 o \0 \0 \0 \f \0 \0 g \0 \0 o \0
0014020 \0 \0 g \0 \0 o \0 \0 \0 \f \0 \0 h 027 \0 \0
0014040 021 0 004 o \0 \0 \0 3 \b 232 h 272 k 273 o \0
0014060 \0 \0 h 032 215 i 272 o \0 \0 \0 \t \0 \0 273 o
0014100 \0 \0 \0 274 ` \0 \0 037 d J 221 k 200 j 317 \0
0014120 \0 277 d j 317 \0 020 277 d K 024 \0 277 d L 024
0014140 002 277 d h 024 004 277 d o \0 \0 \0 024 006 277 d
0014160 g \0 \0 024 \b 277 022 027 \0 \0 021 0 004 o \0 \0
0014200 \0 3 \b 232 h 272 k 273 o \0 \0 \0 h 032 215 i
0014220 272 o \0 \0 \0 \t \0 \0 273 o \0 \0 \0 274 ` \0
0014240 \0 037 d J 221 k 200 j 317 \0 \0 277 d j 317 \0
0014260 020 277 d K 024 \0 277 d L 024 002 277 d h 024 004
0014300 277 d o \0 \0 \0 024 006 277 d g \0 \0 024 \b 277
0014320 022 027 \0 \0 g \0 \0 g \0 \0 g \0 \0 \v \0 \0
0014340 g \0 \0 o \0 \0 \0 g \0 \0 \v \0 \0 g \0 \0
0014360 o \0 \0 \0 g \0 \0 \v \0 \0 g \0 \0 o \0 \0
0014400 \0 g \0 \0 \v \0 \0 g \0 \0 g \0 \0 g \0 \0
0014420 \v \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 \v \0 \0
0014440 g \0 \0 o \0 \0 \0 g \0 \0 \v \0 \0 g \0 \0
0014460 g \0 \0 g \0 \0 \v \0 \0 g \0 \0 o \0 \0 \0
0014500 g \0 \0 \v \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0014520 \v \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 \v \0 \0
0014540 g \0 \0 o \0 \0 \0 g \0 \0 \v \0 \0 g \0 \0
0014560 d o \0 \0 \0 \v \0 \0 g \0 \0 d o \0 \0 \0
0014600 \v \0 \0 g \0 \0 d o \0 \0 \0 \v \0 \0 g \0
0014620 \0 d o \0 \0 \0 \v \0 \0 g \0 \0 d o \0 \0
0014640 \0 \v \0 \0 g \0 \0 d o \0 \0 \0 \v \0 \0 h
0014660 020 \0 ( 1 0 3 4 Q D E F I N E -
0014700 K E R N E L - R E F L E C T I V
0014720 E 1 0 2 1 Q D E F I N E - K
0014740 E R N E L - R E F L E C T I V E
0014760 1 0 0 6 Q D E F I N E - K E
0015000 R N E L - R E F L E C T I V E
0015020 7 7 3 Q D E F I N E - K E R N
0015040 E L - R E F L E C T I V E 7 6
0015060 0 Q D E F I N E - K E R N E L
0015100 - R E F L E C T I V E 7 4 5 Q
0015120 D E F I N E - K E R N E L - R
0015140 E F L E C T I V E 7 3 2 Q D
0015160 E F I N E - P R I M I T I V E
0015200 7 1 5 Q D E F I N E - P R I M
0015220 I T I V E 7 0 0 Q D E F I N
0015240 E - P R I M I T I V E 6 6 3 Q
0015260 D E F I N E - P R I M I T I V
0015300 E 6 4 6 Q D E F I N E - P R
0015320 I M I T I V E 6 3 2 Q D E F
0015340 I N E - P R I M I T I V E 6 1
0015360 5 Q D E F I N E - P R I M I T
0015400 I V E 6 0 0 Q D E F I N E -
0015420 P R I M I T I V E 5 6 4 Q D
0015440 E F I N E - P R I M I T I V E
0015460 5 4 7 Q D E F I N E - P R I M
0015500 I T I V E 5 3 2 Q D E F I N
0015520 E - P R I M I T I V E 5 1 5 Q
0015540 D E F I N E - P R I M I T I V
0015560 E 4 0 5 Q L E N G T H 2 5
0015600 3 Q L E N G T H 2 1 1 Q D
0015620 E F I N E - K E R N E L - N O N
0015640 - P R I M I T I V E 1 7 0 Q
0015660 D E F I N E - K E R N E L - N O
0015700 N - P R I M I T I V E 6 3 Q
0015720 R E B I N D - I N - G L O B A L
0015740 - E N V I R O N M E N T 5 7 Q
0015760 P R I M A R Y - S T R E A M
0016000 5 1 Q R E B I N D - I N - G L
0016020 O B A L - E N V I R O N M E N T
0016040 4 5 Q G L O B A L - E N V I
0016060 R O N M E N T 3 7 Q R E B I
0016100 N D - I N - G L O B A L - E N V
0016120 I R O N M E N T 3 4 Q I N I
0016140 T I A L - R E S E T - E X P R E
0016160 S S I O N 1 3 Q D I G E S T
0016200 5 C R E A T E - G L O B A L
0016220 - E N V I R O N M E N T ) \r ( 1
0016240 0 2 4 Q T R A P 1 0 1 1 Q
0016260 E R R O R 7 7 6 Q S E T 7
0016300 6 3 Q I F 7 5 0 Q B E G I
0016320 N 7 3 5 Q L A M B D A 7 2
0016340 7 Q P R I M - S E T - C O M M
0016360 E N T 7 2 0 Q S E T - C O M
0016400 M E N T 7 1 2 Q P R I M - P
0016420 R I M I T I V E - C C O N S 7
0016440 0 3 Q P R I M I T I V E - C C
0016460 O N S 6 7 5 Q P R I M - R E
0016500 B I N D - I N - S Y S T E M - E
0016520 N V I R O N M E N T 6 6 6 Q
0016540 R E B I N D - I N - S Y S T E M
0016560 - E N V I R O N M E N T 6 6 0
0016600 Q P R I M - O P E N - S T R E
0016620 A M 6 5 1 Q O P E N - S T R
0016640 E A M 6 4 3 Q P R I M - P R
0016660 I N T 6 4 0 Q X 6 3 5 Q
0016700 P R I N T 6 2 7 Q P R I M -
0016720 P R I N T - S T R U C T U R E
0016740 6 2 0 Q P R I N T - S T R U C
0016760 T U R E 6 1 2 Q P R I M - R
0017000 E A D - S T R U C T U R E 6 0
0017020 3 Q R E A D - S T R U C T U R
0017040 E 5 7 5 Q P R I M - R C O N
0017060 S 5 7 2 Q X 5 6 7 Q R C
0017100 O N S 5 6 1 Q P R I M - P C
0017120 O N S 5 5 2 Q P C O N S 5
0017140 4 4 Q P R I M - D O W N 5 3
0017160 5 Q D O W N 5 2 7 Q P R I
0017200 M - U P 5 2 0 Q U P 5 1 2
0017220 Q P R I M - L I S T 5 0 7 Q
0017240 X 5 0 4 Q L I S T 5 0 1
0017260 Q C A C H E D - R E P L Y - S
0017300 K E L E T O N 4 7 2 Q B O G
0017320 U S - R N P - R E P L Y 4 1 6
0017340 Q 004 003 S K E L E T O N T Y P E
0017360 # 3 4 7 Q C A C H E D - E S
0017400 C A P E - S K E L E T O N 3 4
0017420 0 Q B O G U S - R N P - E S C
0017440 A P E 2 6 4 Q 004 003 S K E L E
0017460 T O N T Y P E # 2 1 5 Q C A
0017500 C H E D - R E A D - N O R M A L
0017520 I S E - P R I N T - S K E L E T
0017540 O N 2 0 2 Q B A D - N E W S
0017560 - R N P - I S - S T I L L - A -
0017600 S T U B 1 7 3 Q R E A D - N
0017620 O R M A L I Z E - P R I N T 1
0017640 6 1 Q B A D - N E W S - N O R
0017660 M A L I Z E - I S - S T I L L -
0017700 A - S T U B 1 5 2 Q N O R M
0017720 A L I Z E 1 4 7 Q C A C H E
0017740 D - R E F L E C T I V E - C L A
0017760 U S E 1 4 3 Q C A C H E D -
0020000 M A C R O - C L A U S E 1 3 7
0020020 Q C A C H E D - C B E G I N -
0020040 A R G S - S K E L E T O N 1 3
0020060 3 Q C A C H E D - C B E G I N
0020100 - S K E L E T O N 1 2 7 Q C
0020120 A C H E D - C S E T - A R G S -
0020140 S K E L E T O N 1 2 3 Q C A
0020160 C H E D - C S E T - S K E L E T
0020200 O N 1 1 7 Q C A C H E D - C
0020220 I F - A R G S - S K E L E T O N
0020240 1 1 3 Q C A C H E D - C I F
0020260 - S K E L E T O N 1 0 7 Q C
0020300 A C H E D - C R E S T - S K E L
0020320 E T O N 1 0 3 Q C A C H E D
0020340 - C F I R S T - S K E L E T O N
0020360 7 7 Q C A C H E D - C A R G
0020400 S - S K E L E T O N 7 3 Q C
0020420 A C H E D - C P R O C - S K E L
0020440 E T O N 6 7 Q C A C H E D -
0020460 N O R M A L I S E - S K E L E T
0020500 O N 5 4 Q P R I M A R Y - S
0020520 T R E A M 4 2 Q G L O B A L
0020540 3 1 Q R E S E T - E X P 2
0020560 6 Q H O K A Y 1 7 Q * Q U
0020600 O T E * 1 0 Q O K ) \r ( 1
0020620 0 3 1 Q " t r a p " 1 0 1 6
0020640 Q " e r r o r " 1 0 0 3 Q
0020660 " s e t " 7 7 0 Q " i f "
0020700 7 5 5 Q " b e g i n " 7 4 2
0020720 Q " l a m b d a " 7 2 4 Q
0020740 ( S T R U C T U R E C O M M E
0020760 N T ) 7 0 7 Q ( E N V P A
0021000 T T E R N B O D Y C O M M E
0021020 N T I N T E R L I S P - F N -
0021040 N A M E ) 6 7 2 Q ( V A R I
0021060 A B L E N E W - B I N D I N G
0021100 ) 6 5 5 Q ( F I L E - N A M
0021120 E ) 6 2 4 Q ( S T R E A M
0021140 S T R U C T U R E ) 6 0 7 Q
0021160 ( S T R E A M ) 5 5 6 Q ( X
0021200 Y ) 5 4 1 Q ( X ) 5 2 4
0021220 Q ( X ) 4 6 3 Q " b o g u
0021240 s r e p l y c o n t i n u a
0021260 t i o n " 4 1 2 Q ( A ) 4
0021300 0 2 Q ( A ) 3 7 1 Q ( A )
0021320 3 5 6 Q ( A ) 3 3 1 Q "
0021340 b o g u s r n p e s c a p e
0021360 " 2 6 0 Q ( A B C D
0021400 E F G ) 2 5 0 Q ( A B
0021420 C D E F G ) 2 3 7 Q
0021440 ( A B C D E F G )
0021460 2 2 4 Q ( A B C D E
0021500 F G ) 2 0 6 Q " r e a d
0021520 - n o r m a l i z e - p r i n t
0021540 " 1 7 7 Q ( L E V E L E N
0021560 V S T R E A M ) 1 6 5 Q "
0021600 n o r m a l i z e " 1 5 6 Q
0021620 ( E X P E N V E S C C O N
0021640 T ) ) \r L A M B D A - C L O S U
0021660 R E D 1 \r N I L \0 \b \0 \0 \0 \0
0021700 g \0 \0 \t \0 \0 020 \0 ( 5 G L O B A
0021720 L - B I N D I N G ) \r ( 2 L A
0021740 M B D A ) \r ( ) \r L I S T - C L
0021760 O S U R E D 1 \r N I L \0 \b \0
0022000 \0 \0 \0 g \0 \0 \t \0 \0 020 \0 ( 5 G L
0022020 O B A L - B I N D I N G ) \r ( 2
0022040 L I S T ) \r ( ) \r M A C R O -
0022060 C L A U S E D 1 \r N I L \0 034
0022100 \0 \0 \0 \0 ` \0 \0 265 027 \b \0 \0 006 \0 \0 311
0022120 \b h 032 o \0 \0 \0 \n \0 \0 001 027 \0 \0 020 \0
0022140 ( 2 5 Q E D I T L 7 C P R
0022160 O C - S K E L E T O N ) \r ( 3 1
0022200 Q C A C H E D - M A C R O - C
0022220 L A U S E 1 2 Q S K E L E T
0022240 O N 2 C A C H E D - M A C R
0022260 O - C L A U S E ) \r ( 2 2 Q
0022300 ( ( F ( & E X P A N D E R
0022320 - - ) 1 ) 0 0 0 ) ) \r N
0022340 O R M A L I S E - C L O S U R E
0022360 D 1 \r N I L \0 \b \0 \0 \0 \0 g \0
0022400 \0 \t \0 \0 020 \0 ( 5 G L O B A L -
0022420 B I N D I N G ) \r ( 2 N O R M
0022440 A L I Z E ) \r ( ) \r N O R M A L
0022460 I S E - S K E L E T O N D 1 \r
0022500 N I L \0 027 \0 \0 \0 \0 ` \0 \0 265 022 g
0022520 \0 \0 \t \0 \0 006 \0 \0 311 \0 311 002 027 \0 \0 020
0022540 \0 ( 1 2 Q G L O B A L - B I N
0022560 D I N G ) \r ( 2 4 Q C A C H E
0022600 D - N O R M A L I S E - S K E L
0022620 E T O N 1 5 Q N L I S P - S
0022640 T A C K - O B J E C T 7 N O
0022660 R M A L I Z E 2 C A C H E D
0022700 - N O R M A L I S E - S K E L E
0022720 T O N ) \r ( ) \r P C O N S - C L
0022740 O S U R E D 1 \r N I L \0 \b \0
0022760 \0 \0 \0 g \0 \0 \t \0 \0 020 \0 ( 5 G L
0023000 O B A L - B I N D I N G ) \r ( 2
0023020 P C O N S ) \r ( ) \r P R I M A
0023040 R Y - S T R E A M D 1 \r ( F
0023060 0 T t y D i s p l a y S t r e
0023100 a m ) \0 003 \0 001 \0 \0 P 020 \0 N I L
0023120 \r N I L \r ( ) \r R C O N S - C L
0023140 O S U R E D 1 \r N I L \0 \b \0
0023160 \0 \0 \0 g \0 \0 \t \0 \0 020 \0 ( 5 G L
0023200 O B A L - B I N D I N G ) \r ( 2
0023220 R C O N S ) \r ( ) \r R E A D -
0023240 N O R M A L I S E - P R I N T -
0023260 C L O S U R E D 1 \r N I L \0
0023300 \b \0 \0 \0 \0 g \0 \0 \t \0 \0 020 \0 ( 5
0023320 G L O B A L - B I N D I N G ) \r
0023340 ( 2 R E A D - N O R M A L I Z
0023360 E - P R I N T ) \r ( ) \r R E A D
0023400 - N O R M A L I S E - P R I N T
0023420 - S K E L E T O N D 1 \r N I L
0023440 \0 027 \0 \0 \0 \0 ` \0 \0 265 022 g \0 \0 \t
0023460 \0 \0 006 \0 \0 311 \0 311 002 027 \0 \0 020 \0 ( 1
0023500 2 Q G L O B A L - B I N D I N
0023520 G ) \r ( 2 4 Q C A C H E D - R
0023540 E A D - N O R M A L I S E - P R
0023560 I N T - S K E L E T O N 1 5 Q
0023600 N L I S P - S T A C K - O B J
0023620 E C T 7 R E A D - N O R M A
0023640 L I Z E - P R I N T 2 C A C
0023660 H E D - R E A D - N O R M A L I
0023700 S E - P R I N T - S K E L E T O
0023720 N ) \r ( ) \r R E F L E C T I V E
0023740 - C L A U S E D 1 \r N I L \0
0023760 034 \0 \0 \0 \0 ` \0 \0 265 027 \b \0 \0 006 \0 \0
0024000 311 \b h 032 o \0 \0 \0 \n \0 \0 001 027 \0 \0 020
0024020 \0 ( 2 5 Q E D I T L 7 C P
0024040 R O C - S K E L E T O N ) \r ( 3
0024060 1 Q C A C H E D - R E F L E C
0024100 T I V E - C L A U S E 1 2 Q
0024120 S K E L E T O N 2 C A C H E
0024140 D - R E F L E C T I V E - C L A
0024160 U S E ) \r ( 2 2 Q ( ( F (
0024200 & D E - R E F L E C T - - )
0024220 1 ) 0 ) ) \r R E P L Y - S K
0024240 E L E T O N D 1 \r N I L \0 #
0024260 \0 \0 \0 \0 ` \0 \0 265 036 o \0 \0 \0 \b \0 \0
0024300 006 \0 \0 311 \b h 032 o \0 \0 \0 \n \0 \0 001 \n
0024320 \0 \0 027 \0 \0 020 \0 ( 3 5 Q M A K E
0024340 - S K E L E T O N - F R O M - L
0024360 A M B D A - E X P R 3 1 Q E
0024400 D I T L 1 3 Q R E A D - N O
0024420 R M A L I S E - P R I N T - S K
0024440 E L E T O N ) \r ( 4 0 Q C A C
0024460 H E D - R E P L Y - S K E L E T
0024500 O N 1 6 Q S K E L E T O N
0024520 2 C A C H E D - R E P L Y - S
0024540 K E L E T O N ) \r ( 2 6 Q (
0024560 ( F ( & L A M B D A ( ( &
0024600 ! . ) - - ) - - ) 1 ) )
0024620 1 0 Q " r e a d - n o r m a
0024640 l i z e - p r i n t ' s r e p
0024660 l y c o n t i n u a t i o n "
0024700 ) \r S E T - C L O S U R E D 1
0024720 \r N I L \0 \b \0 \0 \0 \0 g \0 \0 \t \0
0024740 \0 020 \0 ( 5 G L O B A L - B I N
0024760 D I N G ) \r ( 2 S E T ) \r ( )
0025000 \r S E T - C O M M E N T - C L O
0025020 S U R E D 1 \r N I L \0 \b \0 \0
0025040 \0 \0 g \0 \0 \t \0 \0 020 \0 ( 5 G L O
0025060 B A L - B I N D I N G ) \r ( 2
0025100 S E T - C O M M E N T ) \r ( ) \r
0025120 T R A P - C L O S U R E D 1 \r
0025140 N I L \0 \b \0 \0 \0 \0 g \0 \0 \t \0 \0
0025160 020 \0 ( 5 G L O B A L - B I N D
0025200 I N G ) \r ( 2 T R A P ) \r ( )
0025220 \r U P - C L O S U R E D 1 \r N
0025240 I L \0 \b \0 \0 \0 \0 g \0 \0 \t \0 \0 020
0025260 \0 ( 5 G L O B A L - B I N D I
0025300 N G ) \r ( 2 U P ) \r ( ) \r ( P
0025320 R E T T Y C O M P R I N T K E
0025340 R N E L C O M S ) \r ( R P A Q Q
0025360 K E R N E L C O M S ( ( F N
0025400 S B E G I N - C L O S U R E
0025420 C A R G S - S K E L E T O N C
0025440 B E G I N - A R G S - S K E L E
0025460 T O N C B E G I N - S K E L E
0025500 T O N \r C F I R S T - S K E L
0025520 E T O N C I F - A R G S - S K
0025540 E L E T O N C I F - S K E L E
0025560 T O N C P R O C - S K E L E T
0025600 O N C R E S T - S K E L E T O
0025620 N C S E T - A R G S - S K E L
0025640 E T O N \r C S E T - S K E L E
0025660 T O N D E F I N E - K E R N E
0025700 L - N O N - P R I M I T I V E
0025720 D E F I N E - K E R N E L - R E
0025740 F L E C T I V E D E F I N E -
0025760 P R I M I T I V E D O W N - C
0026000 L O S U R E \r E A N D - C L O
0026020 S U R E E O R - C L O S U R E
0026040 E R R O R - C L O S U R E E
0026060 S C A P E - S K E L E T O N I
0026100 F - C L O S U R E I N I T I A
0026120 L I S E - G L O B A L - E N V I
0026140 R O N M E N T \r L A M B D A -
0026160 C L O S U R E L I S T - C L O
0026200 S U R E M A C R O - C L A U S
0026220 E N O R M A L I S E - C L O S
0026240 U R E N O R M A L I S E - S K
0026260 E L E T O N P C O N S - C L O
0026300 S U R E \r P R I M A R Y - S T
0026320 R E A M R C O N S - C L O S U
0026340 R E R E A D - N O R M A L I S
0026360 E - P R I N T - C L O S U R E
0026400 R E A D - N O R M A L I S E - P
0026420 R I N T - S K E L E T O N \r R
0026440 E F L E C T I V E - C L A U S E
0026460 R E P L Y - S K E L E T O N
0026500 S E T - C L O S U R E S E T -
0026520 C O M M E N T - C L O S U R E
0026540 T R A P - C L O S U R E U P -
0026560 C L O S U R E ) ( G L O B A L
0026600 V A R S \r C A C H E D - C A R
0026620 G S - S K E L E T O N C A C H
0026640 E D - C B E G I N - A R G S - S
0026660 K E L E T O N C A C H E D - C
0026700 B E G I N - S K E L E T O N C
0026720 A C H E D - C F I R S T - S K E
0026740 L E T O N \r C A C H E D - C I
0026760 F - A R G S - S K E L E T O N
0027000 C A C H E D - C I F - S K E L E
0027020 T O N C A C H E D - C P R O C
0027040 - S K E L E T O N C A C H E D
0027060 - C R E S T - S K E L E T O N
0027100 \r C A C H E D - C S E T - A R G
0027120 S - S K E L E T O N C A C H E
0027140 D - C S E T - S K E L E T O N
0027160 C A C H E D - E S C A P E - S K
0027200 E L E T O N C A C H E D - M A
0027220 C R O - C L A U S E \r C A C H
0027240 E D - N O R M A L I S E - S K E
0027260 L E T O N C A C H E D - R E A
0027300 D - N O R M A L I S E - P R I N
0027320 T - S K E L E T O N C A C H E
0027340 D - R E F L E C T I V E - C L A
0027360 U S E \r C A C H E D - R E P L
0027400 Y - S K E L E T O N H O K A Y
0027420 ) ( S P E C V A R S N I L )
0027440 ( L O C A L V A R S T ) ) )
0027460 \r ( P U T P R O P S K E R N E
0027500 L C O P Y R I G H T ( " T h
0027520 e K n i g h t s o f t h e
0027540 L a m b d a C a l c u l u s
0027560 " 1 9 8 4 ) ) \r N I L \r
0027575