$ od -c -N 50000 [phylum]<3-LISP>course>koto>SUPPORT.DCOM!5
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 7 1 7 : 0 5 : 3 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 > S U
0000120 P P O R T . ; 2 ) \r " 1 2 - N
0000140 o v - 8 5 1 4 : 5 9 : 2 3 "
0000160 b c o m p l ' d i n " I N T
0000200 E R L I S P - D 1 1 - M a y -
0000220 8 6 . . . " d a t e d " 1
0000240 1 - M a y - 8 6 1 5 : 1 9 : 0
0000260 8 " ) \r ( F I L E C R E A T E D
0000300 " 2 4 - J a n - 8 7 1 5 : 5
0000320 6 : 4 2 " { P H Y L U M } < 3
0000340 - L I S P > C O U R S E > K O T
0000360 O > S U P P O R T . ; 2 1 1 5
0000400 8 2 c h a n g e s t o : (
0000420 M A C R O S \r S T R E A M - D
0000440 E S I G N A T O R ? ) p r e v
0000460 i o u s d a t e : " 1 4 - A
0000500 u g - 8 4 0 1 : 0 0 : 3 4 "
0000520 { P H Y L U M } < 3 - L I S P >
0000540 C O U R S E > K O T O > S U P P
0000560 O R T . ; 1 ) \r A L L - B U T -
0000600 L A S T - F O R - R A I L S D
0000620 1 \r ( P 0 C O L L E C T O R
0000640 I 0 X ) \0 ' 001 \0 \0 001 021 020
0000660 \0 h h 032 X @ 002 001 ` \0 \0 360 254 H @ 001
0000700 \n \0 \0 277 @ 002 b \0 260 356 H ` \0 \0 \n \0
0000720 \0 H 001 020 \0 ( 4 2 Q T C O N C
0000740 2 4 Q T C O N C ) \r ( 3 7 Q
0000760 * R A I L * 1 4 Q * R A I L
0001000 * ) \r ( ) \r A T T E M P T - D O
0001020 W N D 1 \r ( P 0 D X I
0001040 0 X ) \0 C 001 \0 \0 001 021 020 \0 @ 003
0001060 227 @ d 001 ` \0 \0 360 243 g \0 \0 020 002 001 X
0001100 d 004 l 004 360 225 265 h 263 360 H \t \0 \0 263
0001120 352 H d 003 262 350 d 001 004 ` \0 \0 360 263 337 \t
0001140 \0 \0 262 327 H 020 i 360 263 340 i 260 336 \0 ( 6
0001160 6 Q N O R M A L - F O R M - R
0001200 A I L ? 4 3 Q P A I R ? ) \r
0001220 ( 6 0 Q 004 003 3 T A G T Y P E #
0001240 2 0 Q N O T . P O S S I B L
0001260 E 1 3 Q * Q U O T E * ) \r (
0001300 ) \r A T T E M P T - S T R I P -
0001320 H A N D L E D 1 \r ( L ( 0
0001340 X ) ) \0 024 \0 \0 \0 001 @ 003 265 006 g \0
0001360 \0 020 001 ` \0 \0 360 262 367 @ 002 001 020 \0 N I
0001400 L \r ( 1 3 Q * Q U O T E * 6
0001420 N O T . P O S S I B L E ) \r (
0001440 ) \r I N I T I A L I S E - T Y P
0001460 E - T A G S D 1 \r N I L \0 037
0001500 \0 \0 \0 \0 i 027 \0 \0 h 027 \0 \0 ` \0 \0 037
0001520 027 \0 \0 ` \0 \0 037 027 \0 \0 g \0 \0 027 \0 \0
0001540 h 020 \0 N I L \r ( 3 3 Q * R A I
0001560 L * 3 0 Q ! . 2 5 Q * Q
0001600 U O T E * 2 1 Q 004 003 3 T A G
0001620 T Y P E # 1 6 Q * P A I R *
0001640 1 2 Q 004 003 3 T A G T Y P E #
0001660 7 $ F A L S E 3 $ T R U
0001700 E ) \r ( ) \r L A S T - F O R - R
0001720 A I L S D 1 \r ( L ( 0 X )
0001740 ) \0 017 \0 \0 \0 001 @ d 002 001 ` \0 \0 360
0001760 221 001 020 002 260 365 \0 N I L \r ( 6 * R
0002000 A I L * ) \r ( ) \r M A K E - S K
0002020 E L E T O N - F R O M - L A M B
0002040 D A - E X P R D 1 \r ( P 4
0002060 V L P 3 N X P 2 S P
0002100 R P 1 B O D Y P 0 P
0002120 A T I 1 E X P I 0 C
0002140 O M ) \0 237 \b \0 \0 002 021 001 A \t \0
0002160 \0 001 X A \t \0 \0 002 \t \0 \0 Y H 003 265 ,
0002200 021 0 004 H 265 026 i 272 H \t \0 \0 273 H 274 `
0002220 \0 \0 037 d J 262 N k 260 L 3 \b 262 352 H 262
0002240 347 h 272 k 273 H h 032 260 346 001 004 ` \0 \0 360
0002260 263 320 021 0 \a H 260 034 d d 001 ` \0 \0 360 222
0002300 277 h 202 001 h 032 ] 003 227 N 265 021 M _ 016 ^
0002320 277 002 003 265 345 O 016 022 270 260 247 \t \0 \0 ^ M
0002340 031 260 357 j 317 \0 \0 277 d j 317 \0 020 277 d K
0002360 024 \0 277 d L 024 002 277 d h 024 004 277 d @ 024
0002400 006 277 d I 024 \b 277 020 \0 ( 1 6 3 Q L
0002420 A S T 4 1 Q L E N G T H 2
0002440 0 Q B E G I N I F Y 1 4 Q
0002460 P C D R 6 P C D R ) \r ( 1 2
0002500 3 Q * R A I L * 1 0 4 Q 004
0002520 003 3 T A G T Y P E # 4 7 Q 004
0002540 003 S K E L E T O N T Y P E # ) \r
0002560 ( ) \r M A K E - S K E L E T O N
0002600 - F R O M - L E T - E X P R D
0002620 1 \r ( P 1 1 Q V L P 1 0
0002640 Q N X P 7 S P R P 2
0002660 A 1 P 1 B O D Y P 0
0002700 V A R S I 1 E X P I
0002720 0 C O M ) \0 270 \n \0 \0 002 021 @ 003
0002740 A \t \0 \0 001 273 021 0 006 K 260 033 d d 001 `
0002760 \0 \0 360 222 277 h 202 001 h 032 \ 003 226 M 265 023
0003000 L ^ ] 277 002 003 265 346 N 022 Z 021 0 006 J 260
0003020 032 \t \0 \0 ] L 031 260 354 d 001 001 274 M 265 \a
0003040 L h 032 ^ 201 L & 275 002 003 265 357 N 022 X A
0003060 \t \0 \0 002 \t \0 \0 Y 021 0 \t H 265 035 i _
0003100 016 277 H \t \0 \0 _ 020 277 H _ 022 277 ` \0 \0
0003120 037 d O 016 262 031 k 260 027 3 \b 262 343 H 262 340
0003140 h _ 016 277 k _ 020 277 H h 032 260 337 j 317 \0
0003160 \0 277 d j 317 \0 020 277 d O 020 024 \0 277 d O
0003200 022 024 002 277 d h 024 004 277 d @ 024 006 277 d I
0003220 024 \b 277 020 \0 ( 1 5 0 Q L E N G T
0003240 H 1 3 1 Q B E G I N I F Y
0003260 1 2 5 Q P C D R 6 6 Q L A
0003300 S T 6 P C D R ) \r ( 1 6 2 Q
0003320 004 003 S K E L E T O N T Y P E #
0003340 2 4 Q * R A I L * ) \r ( ) \r
0003360 N O R M A L - F O R M - R A I L
0003400 ? D 1 \r ( P 0 E I 0
0003420 X ) \0 032 001 \0 \0 001 021 020 \0 @ X d 001
0003440 ` \0 \0 360 221 i 020 001 \t \0 \0 241 h 020 H 002
0003460 260 355 \0 ( 2 1 Q N O R M A L - F
0003500 O R M ? ) \r ( 1 1 Q * R A I L
0003520 * ) \r ( ) \r N O R M A L - F O R
0003540 M ? D 1 \r ( I 0 X ) \0 +
0003560 \0 \0 \0 001 @ 265 004 i 020 i 360 263 374 @ d 004
0003600 l 004 360 221 h 020 003 262 360 @ d 001 004 ` \0 \0
0003620 360 227 001 ` \0 \0 360 h 360 020 \t \0 \0 020 \0 (
0003640 5 0 Q N O R M A L - F O R M -
0003660 R A I L ? ) \r ( 4 1 Q * P A I
0003700 R * 3 3 Q 004 003 3 T A G T Y P
0003720 E # ) \r ( ) \r P A I R ? D 1 \r
0003740 ( L ( 0 X ) ) \0 \f \0 \0 \0 001
0003760 @ 003 264 \b @ 001 ` \0 \0 360 020 \0 N I L \r
0004000 ( 1 0 Q * P A I R * ) \r ( ) \r
0004020 P C A R D 1 \r ( L ( 0 X )
0004040 ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 N I L
0004060 \r N I L \r ( ) \r P C D R D 1 \r
0004100 ( L ( 0 X ) ) \0 006 \0 \0 \0 001
0004120 @ 002 002 001 020 \0 N I L \r N I L \r ( )
0004140 \r P C O N S D 1 \r ( L ( 1
0004160 B 0 A ) ) \0 \v \0 \0 \0 002 ` \0
0004200 \0 @ A h 032 032 032 020 \0 N I L \r ( 2
0004220 * P A I R * ) \r ( ) \r ( P R E T
0004240 T Y C O M P R I N T S U P P O
0004260 R T C O M S ) \r ( R P A Q Q S
0004300 U P P O R T C O M S ( ( F N S
0004320 A L L - B U T - L A S T - F O
0004340 R - R A I L S A T T E M P T -
0004360 D O W N A T T E M P T - S T R
0004400 I P - H A N D L E I N I T I A
0004420 L I S E - T Y P E - T A G S \r
0004440 L A S T - F O R - R A I L S M
0004460 A K E - S K E L E T O N - F R O
0004500 M - L A M B D A - E X P R M A
0004520 K E - S K E L E T O N - F R O M
0004540 - L E T - E X P R N O R M A L
0004560 - F O R M - R A I L ? \r N O R
0004600 M A L - F O R M ? P A I R ?
0004620 P C A R P C D R P C O N S )
0004640 ( M A C R O S A T O M ? B
0004660 O O L E A N ? C H A R A C T E
0004700 R - D E S I G N A T O R ? D O
0004720 W N E M P T Y ? \r E N V I R
0004740 O N M E N T - D E S I G N A T O
0004760 R ? E X T R A C T - A T O M
0005000 E X T R A C T - B O O L E A N
0005020 E X T R A C T - C H A R A C T E
0005040 R E X T R A C T - M A C R O
0005060 \r E X T R A C T - M A C R O - S
0005100 Y S T E M - I D E X T R A C T
0005120 - N U M E R A L E X T R A C T
0005140 - R E F L E C T O R E X T R A
0005160 C T - R E F L E C T O R - S Y S
0005200 T E M - I D E X T R A C T - S
0005220 T R E A M \r E X T R A C T - S
0005240 T R I N G F I F T H F I R S
0005260 T F O U R T H H A N D L E ?
0005300 L I S T - T O - R A I L M A
0005320 C R O - C L O S U R E ? M A K
0005340 E - A T O M M A K E - B O O L
0005360 E A N \r M A K E - C H A R A C
0005400 T E R - D E S I G N A T O R M
0005420 A K E - M A C R O M A K E - N
0005440 U M E R A L M A K E - R E F L
0005460 E C T O R M A K E - S K E L E
0005500 T O N M A K E - S T R E A M -
0005520 D E S I G N A T O R \r M A K E
0005540 - S T R I N G - D E S I G N A T
0005560 O R N U M E R A L ? P R E P
0005600 P R I M I T I V E - C L O S U
0005620 R E ? R A I L - T O - L I S T
0005640 R A I L ? R C O N S 0 R C
0005660 O N S 1 R C O N S 2 R C O N
0005700 S 3 \r R C O N S 4 R E F L E
0005720 C T I V E - C L O S U R E ? R
0005740 E S T R L E N G T H S E C O
0005760 N D S H A L L O W - E N V I R
0006000 O N M E N T - D E S I G N A T O
0006020 R ? \r S I M P L E - C L O S U
0006040 R E - O R - C O N T I N U A T I
0006060 O N ? S I M P L E - C L O S U
0006100 R E ? S I M P L E - C O N T I
0006120 N U A T I O N ? S O M E - K I
0006140 N D - O F - C L O S U R E ? \r
0006160 S T R E A M - D E S I G N A T O
0006200 R ? S T R I N G - D E S I G N
0006220 A T O R ? T H I R D U P )
0006240 ( G L O B A L V A R S $ F A L
0006260 S E $ T R U E * P A I R *
0006300 * Q U O T E * * R A I L * \r
0006320 N L I S P - R E A D - T A B L E
0006340 ) ( R E C O R D S 3 T A G
0006360 C H A R A C T E R - D E S I G N
0006400 A T O R G L O B A L - V A L U
0006420 E - C E L L M A C R O - C L O
0006440 S U R E \r R E F L E C T I V E
0006460 - C L O S U R E S H A L L O W
0006500 - E N V S K E L E T O N ) (
0006520 P ( C L D I S A B L E ( Q U
0006540 O T E F I R S T ) ) ) ( S P
0006560 E C V A R S N I L ) ( L O C
0006600 A L V A R S T ) ) ) \r ( P U T
0006620 P R O P S A T O M ? M A C R
0006640 O ( O P E N L A M B D A ( X
0006660 ) ( C O N D ( ( A N D ( L
0006700 I T A T O M X ) ( N O T (
0006720 E Q X N I L ) ) ( N O T
0006740 ( E Q X T ) ) ) T ) ( T
0006760 \r N I L ) ) ) ) \r ( P U T P R
0007000 O P S B O O L E A N ? M A C
0007020 R O ( O P E N L A M B D A (
0007040 X ) ( O R ( E Q X T )
0007060 ( E Q X N I L ) ) ) ) \r ( P
0007100 U T P R O P S C H A R A C T E
0007120 R - D E S I G N A T O R ? M A
0007140 C R O ( O P E N L A M B D A
0007160 ( X ) ( t y p e ? C H A R A
0007200 C T E R - D E S I G N A T O R
0007220 X ) ) ) \r ( P U T P R O P S D
0007240 O W N M A C R O ( O P E N L
0007260 A M B D A ( X ) ( C A D R
0007300 X ) ) ) \r ( P U T P R O P S E
0007320 M P T Y ? M A C R O ( O P E
0007340 N L A M B D A ( X ) ( E Q
0007360 ( C A R X ) * R A I L * ) )
0007400 ) \r ( P U T P R O P S E N V I
0007420 R O N M E N T - D E S I G N A T
0007440 O R ? M A C R O ( O P E N L
0007460 A M B D A ( X ) ( O R ( t
0007500 y p e ? S H A L L O W - E N V
0007520 X ) ( S T A C K - F R A M E
0007540 ? ( \r U N W R A P - I F - N E
0007560 C E S S A R Y X ) ) ) ) ) \r (
0007600 P U T P R O P S E X T R A C T
0007620 - A T O M M A C R O ( O P E
0007640 N L A M B D A ( X ) X ) ) \r
0007660 ( P U T P R O P S E X T R A C
0007700 T - B O O L E A N M A C R O
0007720 ( O P E N L A M B D A ( X )
0007740 X ) ) \r ( P U T P R O P S E X
0007760 T R A C T - C H A R A C T E R
0010000 M A C R O ( O P E N L A M B D
0010020 A ( X ) ( C H A R A C T E R
0010040 ( f e t c h ( C H A R A C T
0010060 E R - D E S I G N A T O R C H
0010100 A R C O D E ) o f \r X ) ) )
0010120 ) \r ( P U T P R O P S E X T R
0010140 A C T - M A C R O M A C R O
0010160 ( O P E N L A M B D A ( S )
0010200 ( F E T C H ( M A C R O - C L
0010220 O S U R E S I M P L E C L O S
0010240 U R E ) O F S ) ) ) \r ( P U
0010260 T P R O P S E X T R A C T - M
0010300 A C R O - S Y S T E M - I D M
0010320 A C R O ( O P E N L A M B D A
0010340 ( S ) ( F E T C H ( M A C
0010360 R O - C L O S U R E S Y S I D
0010400 ) O F S ) ) ) \r ( P U T P R
0010420 O P S E X T R A C T - N U M E
0010440 R A L M A C R O ( O P E N L
0010460 A M B D A ( X ) X ) ) \r ( P
0010500 U T P R O P S E X T R A C T -
0010520 R E F L E C T O R M A C R O
0010540 ( O P E N L A M B D A ( S )
0010560 ( f e t c h ( R E F L E C T I
0010600 V E - C L O S U R E S I M P L
0010620 E C L O S U R E ) o f S ) )
0010640 ) \r ( P U T P R O P S E X T R
0010660 A C T - R E F L E C T O R - S Y
0010700 S T E M - I D M A C R O ( O
0010720 P E N L A M B D A ( S ) ( F
0010740 E T C H ( R E F L E C T I V E
0010760 - C L O S U R E S Y S I D )
0011000 O F S ) ) ) \r ( P U T P R O P
0011020 S E X T R A C T - S T R E A M
0011040 M A C R O ( O P E N L A M B
0011060 D A ( X ) X ) ) \r ( P U T P
0011100 R O P S E X T R A C T - S T R
0011120 I N G M A C R O ( O P E N L
0011140 A M B D A ( X ) X ) ) \r ( P
0011160 U T P R O P S F I F T H M A
0011200 C R O ( O P E N L A M B D A
0011220 ( X ) ( C A D R ( C D D D R
0011240 X ) ) ) ) \r ( P U T P R O P S
0011260 F I R S T M A C R O ( O P
0011300 E N L A M B D A ( X ) ( C A
0011320 R X ) ) ) \r ( P U T P R O P S
0011340 F O U R T H M A C R O ( O
0011360 P E N L A M B D A ( X ) ( C
0011400 A D D D R X ) ) ) \r ( P U T P
0011420 R O P S H A N D L E ? M A C
0011440 R O ( O P E N L A M B D A (
0011460 X ) ( A N D ( L I S T P X
0011500 ) ( E Q ( C A R X ) * Q
0011520 U O T E * ) ) ) ) \r ( P U T P R
0011540 O P S L I S T - T O - R A I L
0011560 M A C R O ( O P E N L A M B
0011600 D A ( X ) ( A P P E N D X
0011620 ( R C O N S 0 ) ) ) ) \r ( P U
0011640 T P R O P S M A C R O - C L O
0011660 S U R E ? M A C R O ( O P E
0011700 N L A M B D A ( S ) ( t y p
0011720 e ? M A C R O - C L O S U R E
0011740 S ) ) ) \r ( P U T P R O P S
0011760 M A K E - A T O M M A C R O
0012000 ( O P E N L A M B D A ( X )
0012020 X ) ) \r ( P U T P R O P S M A
0012040 K E - B O O L E A N M A C R O
0012060 ( O P E N L A M B D A ( X )
0012100 ( N E Q X N I L ) ) ) \r (
0012120 P U T P R O P S M A K E - C H
0012140 A R A C T E R - D E S I G N A T
0012160 O R M A C R O ( O P E N L A
0012200 M B D A ( X ) ( C R E A T E
0012220 C H A R A C T E R - D E S I G
0012240 N A T O R C H A R C O D E _
0012260 ( \r C H C O N 1 X ) ) ) ) \r
0012300 ( P U T P R O P S M A K E - M
0012320 A C R O M A C R O ( O P E N
0012340 L A M B D A ( S S Y S T E M
0012360 - I D ) ( C R E A T E M A C
0012400 R O - C L O S U R E S I M P L
0012420 E C L O S U R E _ S S Y S
0012440 I D _ \r S Y S T E M - I D )
0012460 ) ) \r ( P U T P R O P S M A K
0012500 E - N U M E R A L M A C R O
0012520 ( O P E N L A M B D A ( N )
0012540 N ) ) \r ( P U T P R O P S M A
0012560 K E - R E F L E C T O R M A C
0012600 R O ( O P E N L A M B D A (
0012620 S S Y S T E M - I D ) ( C R
0012640 E A T E R E F L E C T I V E -
0012660 C L O S U R E S I M P L E C L
0012700 O S U R E _ S \r S Y S I D
0012720 _ S Y S T E M - I D ) ) ) \r
0012740 ( P U T P R O P S M A K E - S
0012760 K E L E T O N M A C R O ( O
0013000 P E N L A M B D A ( P A T T E
0013020 R N C O M S O U R C E - E X
0013040 P ) ( P R O G ( S P R N X
0013060 V L ) ( C O N D ( ( A N D
0013100 ( A T O M \r P A T T E R N )
0013120 ( N O T ( N U L L P A T T
0013140 E R N ) ) ) ( S E T Q S P R
0013160 N I L ) ( S E T Q N X 1
0013200 ) ( S E T Q V L ( L I S T
0013220 P A T T E R N ) ) ) ( T (
0013240 S E T Q S P R T ) ( \r S E
0013260 T Q N X ( L E N G T H P A
0013300 T T E R N ) ) ( S E T Q V L
0013320 P A T T E R N ) ) ) ( R E T
0013340 U R N ( c r e a t e S K E L
0013360 E T O N S P R E A D ? _ S
0013400 P R P R I M I T I V E ? _
0013420 N I L \r N E X P E C T E D _
0013440 N X V A R I A B L E L I S T
0013460 _ V L S T A R T A D D R E
0013500 S S _ N I L C O M M E N T
0013520 _ C O M S O U R C E E X P
0013540 _ S O U R C E - E X P ) ) )
0013560 ) ) \r ( P U T P R O P S M A K
0013600 E - S T R E A M - D E S I G N A
0013620 T O R M A C R O ( O P E N L
0013640 A M B D A ( X ) X ) ) \r ( P
0013660 U T P R O P S M A K E - S T R
0013700 I N G - D E S I G N A T O R M
0013720 A C R O ( O P E N L A M B D A
0013740 ( X ) X ) ) \r ( P U T P R O
0013760 P S N U M E R A L ? M A C R
0014000 O ( O P E N L A M B D A ( X
0014020 ) ( C O N D ( ( N U M B E R
0014040 P X ) T ) ( T N I L ) )
0014060 ) ) \r ( P U T P R O P S P R E
0014100 P M A C R O ( O P E N L A M
0014120 B D A ( A B ) ( C O N S
0014140 A B ) ) ) \r ( P U T P R O P S
0014160 P R I M I T I V E - C L O S U
0014200 R E ? M A C R O ( O P E N L
0014220 A M B D A ( X ) ( L E T (
0014240 ( Y ( U N W R A P - I F - N E
0014260 C E S S A R Y X ) ) ) ( A N
0014300 D ( \r S T A C K - C L O S U R
0014320 E ? Y ) ( f e t c h ( S K
0014340 E L E T O N P R I M I T I V E
0014360 ? ) o f ( f e t c h ( S T
0014400 A C K - C L O S U R E S K E L
0014420 E T O N ) o f Y ) ) ) ) ) )
0014440 \r ( P U T P R O P S R A I L -
0014460 T O - L I S T M A C R O ( O
0014500 P E N L A M B D A ( X ) ( f
0014520 o r I o n X j o i n (
0014540 C O N D ( ( E M P T Y ? I )
0014560 ( L I S T ) ) ( T ( L I S
0014600 T ( \r F I R S T I ) ) ) ) )
0014620 ) ) \r ( P U T P R O P S R A I
0014640 L ? M A C R O ( O P E N L A
0014660 M B D A ( X ) ( A N D ( L
0014700 I S T P X ) ( N O T ( t y
0014720 p e ? 3 T A G ( C A R X )
0014740 ) ) ) ) ) \r ( P U T P R O P S
0014760 R C O N S 0 M A C R O ( O P
0015000 E N L A M B D A N I L ( L I
0015020 S T * R A I L * ) ) ) \r ( P U
0015040 T P R O P S R C O N S 1 M A
0015060 C R O ( O P E N L A M B D A
0015100 ( X ) ( L I S T X * R A I
0015120 L * ) ) ) \r ( P U T P R O P S
0015140 R C O N S 2 M A C R O ( O P
0015160 E N L A M B D A ( X Y ) (
0015200 L I S T X Y * R A I L * )
0015220 ) ) \r ( P U T P R O P S R C O
0015240 N S 3 M A C R O ( O P E N L
0015260 A M B D A ( X Y Z ) ( L
0015300 I S T X Y Z * R A I L *
0015320 ) ) ) \r ( P U T P R O P S R C
0015340 O N S 4 M A C R O ( O P E N
0015360 L A M B D A ( X Y Z W )
0015400 ( L I S T X Y Z W *
0015420 R A I L * ) ) ) \r ( P U T P R O
0015440 P S R E F L E C T I V E - C L
0015460 O S U R E ? M A C R O ( O P
0015500 E N L A M B D A ( S ) ( t y
0015520 p e ? R E F L E C T I V E - C
0015540 L O S U R E S ) ) ) \r ( P U T
0015560 P R O P S R E S T M A C R O
0015600 ( O P E N L A M B D A ( X )
0015620 ( C D R X ) ) ) \r ( P U T P
0015640 R O P S R L E N G T H M A C
0015660 R O ( O P E N L A M B D A (
0015700 X ) ( S U B 1 ( L E N G T H
0015720 X ) ) ) ) \r ( P U T P R O P S
0015740 S E C O N D M A C R O ( O
0015760 P E N L A M B D A ( X ) ( C
0016000 A D R X ) ) ) \r ( P U T P R O
0016020 P S S H A L L O W - E N V I R
0016040 O N M E N T - D E S I G N A T O
0016060 R ? M A C R O ( O P E N L A
0016100 M B D A ( X ) ( T Y P E ?
0016120 S H A L L O W - E N V X ) ) )
0016140 \r ( P U T P R O P S S I M P L
0016160 E - C L O S U R E - O R - C O N
0016200 T I N U A T I O N ? M A C R O
0016220 ( O P E N L A M B D A ( X )
0016240 ( L E T ( ( Y ( U N W R A
0016260 P - I F - N E C E S S A R Y X
0016300 ) ) ) ( \r A N D ( S T A C K
0016320 - O B J E C T ? Y ) ( O R
0016340 ( T H I S - S T A C K - O B J E
0016360 C T - I S - A - C L O S U R E ?
0016400 Y ) ( T H I S - S T A C K -
0016420 O B J E C T - I S - A - C O N T
0016440 ? Y ) ) ) ) ) ) \r ( P U T P R
0016460 O P S S I M P L E - C L O S U
0016500 R E ? M A C R O ( O P E N L
0016520 A M B D A ( X ) ( S T A C K
0016540 - C L O S U R E ? ( U N W R A
0016560 P - I F - N E C E S S A R Y X
0016600 ) ) ) ) \r ( P U T P R O P S S
0016620 I M P L E - C O N T I N U A T I
0016640 O N ? M A C R O ( O P E N L
0016660 A M B D A ( X ) ( S T A C K
0016700 - C O N T ? ( U N W R A P - I
0016720 F - N E C E S S A R Y X ) ) )
0016740 ) \r ( P U T P R O P S S O M E
0016760 - K I N D - O F - C L O S U R E
0017000 ? M A C R O ( O P E N L A M
0017020 B D A ( X ) ( O R ( S I M
0017040 P L E - C L O S U R E - O R - C
0017060 O N T I N U A T I O N ? X )
0017100 ( \r R E F L E C T I V E - C L O
0017120 S U R E ? X ) ( M A C R O -
0017140 C L O S U R E ? X ) ) ) ) \r (
0017160 P U T P R O P S S T R E A M -
0017200 D E S I G N A T O R ? M A C R
0017220 O ( O P E N L A M B D A ( X
0017240 ) ( S T R E A M P X ) ) ) \r
0017260 ( P U T P R O P S S T R I N G
0017300 - D E S I G N A T O R ? M A C
0017320 R O ( O P E N L A M B D A (
0017340 X ) ( C O N D ( ( S T R I N
0017360 G P X ) T ) ( T N I L )
0017400 ) ) ) \r ( P U T P R O P S T H
0017420 I R D M A C R O ( O P E N L
0017440 A M B D A ( X ) ( C A D D R
0017460 X ) ) ) \r ( P U T P R O P S
0017500 U P M A C R O ( O P E N L A
0017520 M B D A ( X ) ( L I S T *
0017540 Q U O T E * X ) ) ) \r ( D A T
0017560 A T Y P E 3 T A G ( N I L )
0017600 ) \r ( D A T A T Y P E C H A R
0017620 A C T E R - D E S I G N A T O R
0017640 ( C H A R C O D E ) ) \r ( D A
0017660 T A T Y P E G L O B A L - V A
0017700 L U E - C E L L ( ( B O U N D
0017720 F L A G ) ( S Y S T E M D E
0017740 F F L A G ) V A R I A B L E
0017760 B I N D I N G S P O I L E R
0020000 S ) ) \r ( D A T A T Y P E M A
0020020 C R O - C L O S U R E ( S Y S
0020040 I D S I M P L E C L O S U R E
0020060 ) ) \r ( D A T A T Y P E R E F
0020100 L E C T I V E - C L O S U R E
0020120 ( S Y S I D S I M P L E C L O
0020140 S U R E ) ) \r ( D A T A T Y P E
0020160 S H A L L O W - E N V ( N V
0020200 A R S V A L U E C E L L T A B
0020220 L E I N D E X ) ) \r ( D A T A
0020240 T Y P E S K E L E T O N ( (
0020260 S P R E A D ? F L A G ) ( P
0020300 R I M I T I V E ? F L A G )
0020320 N E X P E C T E D V A R I A B
0020340 L E L I S T S T A R T A D D R
0020360 E S S C O M M E N T \r S O U
0020400 R C E E X P ) ) \r ( / D E C L A
0020420 R E D A T A T Y P E ( Q U O T
0020440 E 3 T A G ) ( Q U O T E (
0020460 P O I N T E R ) ) ( Q U O T E
0020500 ( ( 3 T A G 0 P O I N T E
0020520 R ) ) ) ( Q U O T E 2 ) ) \r
0020540 ( / D E C L A R E D A T A T Y P
0020560 E ( Q U O T E C H A R A C T
0020600 E R - D E S I G N A T O R ) (
0020620 Q U O T E ( P O I N T E R ) )
0020640 ( Q U O T E ( ( C H A R A C
0020660 T E R - D E S I G N A T O R 0
0020700 \r P O I N T E R ) ) ) ( Q U
0020720 O T E 2 ) ) \r ( / D E C L A R
0020740 E D A T A T Y P E ( Q U O T E
0020760 G L O B A L - V A L U E - C E
0021000 L L ) ( Q U O T E ( F L A G
0021020 F L A G P O I N T E R P O
0021040 I N T E R P O I N T E R ) )
0021060 ( Q U O T E ( ( \r G L O B A L
0021100 - V A L U E - C E L L 0 ( F
0021120 L A G B I T S . 0 ) ) ( G
0021140 L O B A L - V A L U E - C E L L
0021160 0 ( F L A G B I T S . 1
0021200 6 ) ) ( G L O B A L - V A L U
0021220 E - C E L L 0 P O I N T E R
0021240 \r ) ( G L O B A L - V A L U E
0021260 - C E L L 2 P O I N T E R )
0021300 ( G L O B A L - V A L U E - C
0021320 E L L 4 P O I N T E R ) ) )
0021340 ( Q U O T E 6 ) ) \r ( / D E
0021360 C L A R E D A T A T Y P E ( Q
0021400 U O T E M A C R O - C L O S U
0021420 R E ) ( Q U O T E ( P O I N
0021440 T E R P O I N T E R ) ) ( Q
0021460 U O T E ( ( M A C R O - C L O
0021500 S U R E 0 P O I N T E R )
0021520 ( \r M A C R O - C L O S U R E
0021540 2 P O I N T E R ) ) ) ( Q U
0021560 O T E 4 ) ) \r ( / D E C L A R
0021600 E D A T A T Y P E ( Q U O T E
0021620 R E F L E C T I V E - C L O S
0021640 U R E ) ( Q U O T E ( P O I
0021660 N T E R P O I N T E R ) ) (
0021700 Q U O T E ( ( R E F L E C T I
0021720 V E - C L O S U R E 0 \r P O
0021740 I N T E R ) ( R E F L E C T I
0021760 V E - C L O S U R E 2 P O I
0022000 N T E R ) ) ) ( Q U O T E 4
0022020 ) ) \r ( / D E C L A R E D A T A
0022040 T Y P E ( Q U O T E S H A L
0022060 L O W - E N V ) ( Q U O T E
0022100 ( P O I N T E R P O I N T E R
0022120 P O I N T E R ) ) ( Q U O T
0022140 E ( ( S H A L L O W - E N V
0022160 0 P O I N T E R \r ) ( S H A
0022200 L L O W - E N V 2 P O I N T
0022220 E R ) ( S H A L L O W - E N V
0022240 4 P O I N T E R ) ) ) ( Q
0022260 U O T E 6 ) ) \r ( / D E C L A
0022300 R E D A T A T Y P E ( Q U O T
0022320 E S K E L E T O N ) ( Q U O
0022340 T E ( F L A G F L A G P O
0022360 I N T E R P O I N T E R P O
*
0022420 I N T E R ) ) ( Q U O T E \r
0022440 ( ( S K E L E T O N 0 ( F L
0022460 A G B I T S . 0 ) ) ( S K
0022500 E L E T O N 0 ( F L A G B I
0022520 T S . 1 6 ) ) ( S K E L E
0022540 T O N 0 P O I N T E R ) (
0022560 S K E L E T O N 2 P O I N T
0022600 E R ) ( \r S K E L E T O N 4
0022620 P O I N T E R ) ( S K E L E
0022640 T O N 6 P O I N T E R ) (
0022660 S K E L E T O N 8 P O I N T
0022700 E R ) ) ) ( Q U O T E 1 0 )
0022720 ) \r ( C L D I S A B L E ( Q U
0022740 O T E F I R S T ) ) \r ( P U T
0022760 P R O P S S U P P O R T C O
0023000 P Y R I G H T ( " T h e K n
0023020 i g h t s o f t h e L a m
0023040 b d a C a l c u l u s " 1 9
0023060 8 4 1 9 8 7 ) ) \r N I L \r
0023076