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