$ od -c -N 50000 [phylum]<3-LISP>course>koto>PRIMITIVES.DCOM!4
0000000 ( F I L E C R E A T E D " 2 4
0000020 - J a n - 8 7 1 7 : 0 7 : 5 8
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 > P R
0000120 I M I T I V E S . ; 2 ) \r " 1
0000140 2 - N o v - 8 5 1 4 : 5 9 : 2
0000160 3 " b c o m p l ' d i n "
0000200 I N T E R L I S P - D 1 1 - M
0000220 a y - 8 6 . . . " d a t e d
0000240 " 1 1 - M a y - 8 6 1 5 : 1
0000260 9 : 0 8 " ) \r ( F I L E C R E A
0000300 T E D " 2 4 - J a n - 8 7 1
0000320 5 : 4 9 : 3 4 " { P H Y L U M
0000340 } < 3 - L I S P > C O U R S E >
0000360 K O T O > P R I M I T I V E S .
0000400 ; 2 1 8 2 2 3 c h a n g e s
0000420 t o : ( F N S \r A - O R -
0000440 A N ) p r e v i o u s d a t
0000460 e : " 1 4 - A u g - 8 4 0 1
0000500 : 0 2 : 3 2 " { P H Y L U M }
0000520 < 3 - L I S P > C O U R S E > K
0000540 O T O > P R I M I T I V E S . ;
0000560 1 ) \r A - O R - A N D 1 \r ( I
0000600 0 X ) \0 031 \0 \0 \0 001 @ k d \v
0000620 \0 \0 o \0 \0 \0 \n \0 \0 224 o \0 \0 \0 020 o
0000640 \0 \0 \0 020 \0 ( 1 4 Q S T R P O S
0000660 5 S U B S T R I N G ) \r N I
0000700 L \r ( 2 6 Q " a " 2 1 Q
0000720 " a n " 1 1 Q " a e i o u y
0000740 A E I O U Y " ) \r E X T E N S I
0000760 O N A L L Y - E Q U A L D 1 \r
0001000 ( P 1 Y I 1 B I 0
0001020 A ) 001 262 002 \0 \0 002 @ d 3 020 230 277
0001040 @ A 364 h 360 h 360 020 005 \a 263 366 @ d i 360
0001060 242 265 \n @ A 360 h 360 h 360 020 003 262 & @ d
0001100 001 ` \0 \0 360 262 036 277 A 003 264 023 A 001 ` \0
0001120 \0 360 264 \v @ 002 001 A 002 001 \n \0 \0 h 360 h
0001140 360 020 @ 004 ` \0 \0 360 262 " A 004 ` \0 \0 360
0001160 264 025 @ 006 \0 \0 311 \0 \t \0 \0 A 006 \0 \0 311
0001200 \0 \t \0 \0 360 h 360 h 360 020 @ \t \0 \0 263 245
0001220 @ 004 ` \0 \0 360 263 ! @ d 004 ` \0 \0 360 224
0001240 006 \0 \0 311 \0 021 001 \0 H \t \0 \0 264 \b H 312
0001260 \0 \a k 360 022 262 5 A 004 ` \0 \0 360 263 A
0001300 d 004 ` \0 \0 360 224 006 \0 \0 311 \0 021 001 \0 H
0001320 \t \0 \0 264 \b H 312 \0 \a k 360 022 230 o \0 \0
0001340 \0 \t \0 \0 h 020 ` \0 \0 020 @ d 004 ` \0 \0
0001360 360 224 006 \0 \0 311 \0 021 001 001 I \t \0 \0 264 022
0001400 I 312 \0 \a l 003 360 265 \t I 312 \0 \a l 002 360
0001420 022 263 . @ 004 ` \0 \0 360 263 & @ 004 ` \0 \0
0001440 360 263 036 @ \t \0 \0 227 @ 312 \0 \a l 003 360 256
0001460 @ \t \0 \0 262 l @ 312 \0 \a l 002 360 262 c A
0001500 d 004 ` \0 \0 360 224 006 \0 \0 311 \0 021 001 001 I
0001520 \t \0 \0 264 022 I 312 \0 \a l 003 360 265 \t I 312
0001540 \0 \a l 002 360 022 263 3 A 004 ` \0 \0 360 263 +
0001560 A 004 ` \0 \0 360 263 # A \t \0 \0 230 A 312 \0
0001600 \a l 003 360 263 025 A \t \0 \0 242 261 377 [ A 312
0001620 \0 \a l 002 360 242 261 377 P o \0 \0 \0 261 377 D
0001640 @ d 003 262 % d 001 004 ` \0 \0 360 263 034 277 A
0001660 003 264 022 A 001 004 ` \0 \0 360 h 360 264 \a @ A
0001700 \n \0 \0 h 360 h 360 020 A 364 020 \0 ( 6 5 0
0001720 Q E X T E N S I O N A L L Y -
0001740 E Q U A L - F O R - R A I L S
0001760 5 5 7 Q \ B L O C K D A T A P
0002000 5 4 1 Q \ B L O C K D A T A
0002020 P 4 7 0 Q \ B L O C K D A T
0002040 A P 4 3 1 Q \ B L O C K D A
0002060 T A P 4 1 4 Q \ B L O C K D
0002100 A T A P 3 4 3 Q \ B L O C K
0002120 D A T A P 3 1 1 Q N L I S P
0002140 - E R R O R 2 7 0 Q \ B L O
0002160 C K D A T A P 2 2 1 Q \ B L
0002200 O C K D A T A P 1 6 3 Q S T
0002220 R E A M P 1 5 1 Q C H A R A
0002240 C T E R 1 4 0 Q C H A R A C
0002260 T E R 1 0 2 Q I N T E N S I
0002300 O N A L L Y - E Q U A L ) \r ( 6
0002320 3 6 Q 004 003 3 T A G T Y P E #
0002340 6 2 0 Q 004 003 3 T A G T Y P E #
0002360 5 3 2 Q 004 003 M A C R O - C L
0002400 O S U R E T Y P E # 5 2 2 Q
0002420 004 003 R E F L E C T I V E - C L O
0002440 S U R E T Y P E # 4 5 7 Q N
0002460 L I S P - S T A C K - O B J E C
0002500 T 4 5 2 Q 004 003 N L I S P - S
0002520 T A C K - O B J E C T T Y P E #
0002540 4 0 5 Q 004 003 M A C R O - C L
0002560 O S U R E T Y P E # 3 7 5 Q
0002600 004 003 R E F L E C T I V E - C L O
0002620 S U R E T Y P E # 3 3 2 Q N
0002640 L I S P - S T A C K - O B J E C
0002660 T 3 2 5 Q 004 003 N L I S P - S
0002700 T A C K - O B J E C T T Y P E #
0002720 3 1 6 Q $ F A L S E 2 5 7
0002740 Q N L I S P - S T A C K - O B
0002760 J E C T 2 5 2 Q 004 003 N L I S
0003000 P - S T A C K - O B J E C T T Y
0003020 P E # 2 4 1 Q 004 003 S H A L L
0003040 O W - E N V T Y P E # 2 1 0 Q
0003060 N L I S P - S T A C K - O B J
0003100 E C T 2 0 3 Q 004 003 N L I S P
0003120 - S T A C K - O B J E C T T Y P
0003140 E # 1 7 2 Q 004 003 S H A L L O
0003160 W - E N V T Y P E # 1 4 4 Q
0003200 C H A R A C T E R - D E S I G N
0003220 A T O R 1 3 3 Q C H A R A C
0003240 T E R - D E S I G N A T O R 1
0003260 2 4 Q 004 003 C H A R A C T E R -
0003300 D E S I G N A T O R T Y P E #
0003320 1 1 4 Q 004 003 C H A R A C T E R
0003340 - D E S I G N A T O R T Y P E #
0003360 6 6 Q * Q U O T E * 5 1 Q
0003400 * Q U O T E * ) \r ( 6 0 2 Q
0003420 " f u n c t i o n e q u a l
0003440 i t y i s n o t c o m p u
0003460 t a b l e " 3 0 6 Q " e n v
0003500 i r o n m e n t e q u a l i t
0003520 y h a s n o t b e e n i
0003540 m p l e m e n t e d " ) \r E X T
0003560 E N S I O N A L L Y - E Q U A L
0003600 - F O R - R A I L S D 1 \r ( I
0003620 1 B I 0 A ) \0 3 \0 \0
0003640 \0 002 @ 001 ` \0 \0 360 232 A 001 ` \0 \0 360 h
0003660 360 h 360 020 A 001 ` \0 \0 360 223 ` \0 \0 020 @
0003700 001 A 001 \n \0 \0 262 365 @ 002 b \0 277 A 002 b
0003720 002 277 260 320 \0 ( 4 3 Q E X T E N S
0003740 I O N A L L Y - E Q U A L ) \r (
0003760 3 3 Q $ F A L S E 2 6 Q *
0004000 R A I L * 1 3 Q * R A I L *
0004020 4 * R A I L * ) \r ( ) \r I N
0004040 T E N S I O N A L L Y - E Q U A
0004060 L D 1 \r ( P 1 Y I 1
0004100 B I 0 A ) 001 313 002 \0 \0 002 @
0004120 d 3 020 230 277 @ A 364 h 360 h 360 020 005 \a 263
0004140 366 @ d i 360 243 d 250 277 @ A 360 h 360 h 360
0004160 020 003 262 & @ d 001 ` \0 \0 360 262 036 277 A 003
0004200 264 023 A 001 ` \0 \0 360 264 \v @ 002 001 A 002 001
0004220 \n \0 \0 h 360 h 360 020 @ 004 ` \0 \0 360 262 "
0004240 A 004 ` \0 \0 360 264 025 @ 006 \0 \0 311 \0 \t \0
0004260 \0 A 006 \0 \0 311 \0 \t \0 \0 360 h 360 h 360 020
0004300 @ \t \0 \0 263 245 @ 004 ` \0 \0 360 263 ! @ d
0004320 004 ` \0 \0 360 224 006 \0 \0 311 \0 021 001 \0 H \t
0004340 \0 \0 264 \b H 312 \0 \a k 360 022 262 I A 004 `
0004360 \0 \0 360 263 ! A d 004 ` \0 \0 360 224 006 \0 \0
0004400 311 \0 021 001 \0 H \t \0 \0 264 \b H 312 \0 \a k
0004420 360 022 264 035 @ d 004 ` \0 \0 360 224 006 \0 \0 311
0004440 \0 A d 004 ` \0 \0 360 224 006 \0 \0 311 \0 360 h
0004460 360 h 360 020 @ d 004 ` \0 \0 360 224 006 \0 \0 311
0004500 \0 021 001 001 I \t \0 \0 264 022 I 312 \0 \a l 003
0004520 360 265 \t I 312 \0 \a l 002 360 022 263 1 @ 004 `
0004540 \0 \0 360 263 ) @ 004 ` \0 \0 360 263 ! @ \t \0
0004560 \0 230 @ 312 \0 \a l 003 360 263 023 @ \t \0 \0 242
0004600 261 \0 207 @ 312 \0 \a l 002 360 262 } A d 004 `
0004620 \0 \0 360 224 006 \0 \0 311 \0 021 001 001 I \t \0 \0
0004640 264 022 I 312 \0 \a l 003 360 265 \t I 312 \0 \a l
0004660 002 360 022 263 . A 004 ` \0 \0 360 263 & A 004 `
0004700 \0 \0 360 263 036 A \t \0 \0 227 A 312 \0 \a l 003
0004720 360 256 A \t \0 \0 262 - A 312 \0 \a l 002 360 262
0004740 $ @ d 004 ` \0 \0 360 224 006 \0 \0 311 \0 A d
0004760 004 ` \0 \0 360 224 006 \0 \0 311 \0 \n \0 \0 h 360
0005000 h 360 020 ` \0 \0 020 @ d 003 232 d 001 004 ` \0
0005020 \0 360 242 261 376 U A 360 020 \0 ( 6 5 6 Q
0005040 S A M E - C L O S U R E 6 0 6
0005060 Q \ B L O C K D A T A P 5 7
0005100 1 Q \ B L O C K D A T A P 5
0005120 2 0 Q \ B L O C K D A T A P
0005140 4 5 7 Q \ B L O C K D A T A P
0005160 4 4 1 Q \ B L O C K D A T A
0005200 P 3 7 0 Q \ B L O C K D A T
0005220 A P 2 7 1 Q \ B L O C K D A
0005240 T A P 2 2 2 Q \ B L O C K D
0005260 A T A P 1 6 4 Q S T R E A M
0005300 P 1 5 2 Q C H A R A C T E R
0005320 1 4 1 Q C H A R A C T E R
0005340 1 0 3 Q I N T E N S I O N A L
0005360 L Y - E Q U A L ) \r ( 7 0 1 Q
0005400 004 003 3 T A G T Y P E # 6 6 6 Q
0005420 $ F A L S E 6 5 1 Q N L I
0005440 S P - S T A C K - O B J E C T
0005460 6 4 4 Q 004 003 N L I S P - S T A
0005500 C K - O B J E C T T Y P E # 6
0005520 3 4 Q N L I S P - S T A C K -
0005540 O B J E C T 6 2 7 Q 004 003 N L
0005560 I S P - S T A C K - O B J E C T
0005600 T Y P E # 5 6 2 Q 004 003 M A C
0005620 R O - C L O S U R E T Y P E #
0005640 5 5 2 Q 004 003 R E F L E C T I V
0005660 E - C L O S U R E T Y P E # 5
0005700 0 7 Q N L I S P - S T A C K -
0005720 O B J E C T 5 0 2 Q 004 003 N L
0005740 I S P - S T A C K - O B J E C T
0005760 T Y P E # 4 3 2 Q 004 003 M A C
0006000 R O - C L O S U R E T Y P E #
0006020 4 2 2 Q 004 003 R E F L E C T I V
0006040 E - C L O S U R E T Y P E # 3
0006060 5 7 Q N L I S P - S T A C K -
0006100 O B J E C T 3 5 2 Q 004 003 N L
0006120 I S P - S T A C K - O B J E C T
0006140 T Y P E # 3 3 4 Q N L I S P
0006160 - S T A C K - O B J E C T 3 2
0006200 7 Q 004 003 N L I S P - S T A C K
0006220 - O B J E C T T Y P E # 3 1 7
0006240 Q N L I S P - S T A C K - O B
0006260 J E C T 3 1 2 Q 004 003 N L I S
0006300 P - S T A C K - O B J E C T T Y
0006320 P E # 2 6 0 Q N L I S P - S
0006340 T A C K - O B J E C T 2 5 3 Q
0006360 004 003 N L I S P - S T A C K - O
0006400 B J E C T T Y P E # 2 4 2 Q
0006420 004 003 S H A L L O W - E N V T Y P
0006440 E # 2 1 1 Q N L I S P - S T
0006460 A C K - O B J E C T 2 0 4 Q
0006500 004 003 N L I S P - S T A C K - O B
0006520 J E C T T Y P E # 1 7 3 Q 004
0006540 003 S H A L L O W - E N V T Y P E
0006560 # 1 4 5 Q C H A R A C T E R
0006600 - D E S I G N A T O R 1 3 4 Q
0006620 C H A R A C T E R - D E S I G
0006640 N A T O R 1 2 5 Q 004 003 C H A
0006660 R A C T E R - D E S I G N A T O
0006700 R T Y P E # 1 1 5 Q 004 003 C H
0006720 A R A C T E R - D E S I G N A T
0006740 O R T Y P E # 6 7 Q * Q U O
0006760 T E * 5 2 Q * Q U O T E * )
0007000 \r ( ) \r N L I S P - E R R O R
0007020 D 1 \r ( I 0 M E S S 1 ) \0
0007040 \f \0 \0 \0 001 ` \0 \0 @ \n \0 \0 \b \0 \0 020
0007060 \0 ( 1 1 Q E R R O R ! 6 S
0007100 E T E R R O R N ) \r ( 2 N L I
0007120 S P - E R R O R # ) \r ( ) \r P H
0007140 I - T Y P E D 1 \r ( P 0 Y
0007160 I 0 F O O ) \0 340 002 \0 \0 001
0007200 @ d 003 234 d 001 004 ` \0 \0 360 244 o \0 \0 \0
0007220 020 3 020 224 o \0 \0 \0 020 @ i 360 242 @ d 244
0007240 o \0 \0 \0 020 005 \a 224 o \0 \0 \0 020 @ d 004
0007260 ` \0 \0 360 224 o \0 \0 \0 020 004 ` \0 \0 360 226
0007300 @ 006 \0 \0 311 \0 200 @ 021 001 \0 H \t \0 \0 264
0007320 022 H 312 \0 \a l 003 360 265 \t H 312 \0 \a l 002
0007340 360 022 263 , @ 004 ` \0 \0 360 263 $ @ 004 ` \0
0007360 \0 360 263 034 @ \t \0 \0 227 @ 312 \0 \a l 003 360
0007400 254 @ \t \0 \0 234 @ 312 \0 \a l 002 360 224 o \0
0007420 \0 \0 020 @ \t \0 \0 224 o \0 \0 \0 020 @ 004 `
0007440 \0 \0 360 263 @ d 004 ` \0 \0 360 224 006 \0 \0
0007460 311 \0 021 001 001 I \t \0 \0 264 \b I 312 \0 \a k
0007500 360 022 224 o \0 \0 \0 020 @ 003 265 \a o \0 \0 \0
0007520 020 001 ` \0 \0 360 262 366 @ 002 001 \t \0 \0 020 \0
0007540 ( 3 3 5 Q P S I - T Y P E 2
0007560 7 0 Q \ B L O C K D A T A P
0007600 2 2 6 Q S T R E A M P 2 0 4
0007620 Q \ B L O C K D A T A P 1 6
0007640 7 Q \ B L O C K D A T A P 1
0007660 1 6 Q \ B L O C K D A T A P )
0007700 \r ( 3 2 4 Q * Q U O T E * 2
0007720 5 7 Q N L I S P - S T A C K -
0007740 O B J E C T 2 5 2 Q 004 003 N L
0007760 I S P - S T A C K - O B J E C T
0010000 T Y P E # 2 4 1 Q 004 003 S H A
0010020 L L O W - E N V T Y P E # 1 6
0010040 0 Q 004 003 M A C R O - C L O S U
0010060 R E T Y P E # 1 5 0 Q 004 003 R
0010100 E F L E C T I V E - C L O S U R
0010120 E T Y P E # 1 0 3 Q N L I S
0010140 P - S T A C K - O B J E C T 7
0010160 5 Q 004 003 N L I S P - S T A C K
0010200 - O B J E C T T Y P E # 6 2 Q
0010220 004 003 C H A R A C T E R - D E S
0010240 I G N A T O R T Y P E # 1 1 Q
0010260 004 003 3 T A G T Y P E # ) \r (
0010300 3 1 7 Q " ? ? ? " 3 0 6 Q
0010320 " e n v i r o n m e n t " 2 3
0010340 3 Q " s t r e a m " 2 2 1 Q
0010360 " f u n c t i o n " 7 0 Q
0010400 " c h a r a c t e r " 5 3 Q
0010420 " s t r i n g " 4 3 Q " t r
0010440 u t h v a l u e " 2 7 Q "
0010460 n u m b e r " 1 7 Q " s e q
0010500 u e n c e " ) \r P H I - T Y P E
0010520 - E R R O R D 1 \r ( P 0 I
0010540 T S - T Y P E I 1 O B J E
0010560 C T - F O U N D I 0 W H A
0010600 T - E X P E C T E D ) \0 * 001 \0
0010620 \0 002 A \t \0 \0 021 001 \0 o \0 \0 \0 @ \t \0
0010640 \0 o \0 \0 \0 @ o \0 \0 \0 H \t \0 \0 o \0
0010660 \0 \0 H \r \b \0 \0 \t \0 \0 020 \0 ( 4 7 Q
0010700 N L I S P - E R R O R 4 4 Q
0010720 C O N C A T 3 3 Q A - O R
0010740 - A N 1 6 Q A - O R - A N
0010760 3 P H I - T Y P E ) \r N I L \r
0011000 ( 3 7 Q " " 2 7 Q " ,
0011020 b u t f o u n d " 2 2 Q
0011040 " " 1 2 Q " e x p e c t
0011060 e d " ) \r P R I M - A C O N S
0011100 D 1 \r ( P 0 A F 1 G
0011120 E N N U M ) \0 3 001 001 \0 \0 021 020 \0
0011140 Q k 330 c 002 277 o \0 \0 \0 Q o \0 \0 \0 \v
0011160 \0 \0 \t \0 \0 X d g \0 \0 033 222 277 260 343 g
0011200 \0 \0 i \v \0 \0 277 ` \0 \0 H h 032 032 020 \0
0011220 ( 5 0 Q P U T P R O P 2 7 Q
0011240 M K A T O M 2 4 Q C O N C
0011260 A T ) \r ( 5 4 Q * Q U O T E *
0011300 4 4 Q 3 - L I S P - A T O M
0011320 3 4 Q 3 - L I S P - A T O M
0011340 ) \r ( 2 1 Q " } " 1 4 Q
0011360 " { A T O M # " ) \r P R I M - A
0011400 T O M - N O T A T E D D 1 \r (
0011420 P 0 A T O M I 0 A )
0011440 \0 < 001 \0 \0 001 021 020 \0 @ 005 \a 221 @ 207 o
0011460 \0 \0 \0 @ \n \0 \0 \t \0 \0 \t \0 \0 \t \0 \0
0011500 X d 265 \a g \0 \0 X 210 i 360 224 g \0 \0 X
0011520 200 H g \0 \0 i \v \0 \0 ` \0 \0 H h 032 032
0011540 020 \0 ( 6 2 Q P U T P R O P 3
0011560 1 Q M K A T O M 2 6 Q C O
0011600 N C A T 2 3 Q U - C A S E
0011620 2 0 Q P H I - T Y P E - E R R
0011640 O R ) \r ( 6 5 Q * Q U O T E *
0011660 5 6 Q 3 - L I S P - A T O M
0011700 5 0 Q T . 4 0 Q N I L .
0011720 ) \r ( 1 4 Q " s t r i n g "
0011740 ) \r P R I M - A T O M - N O T A
0011760 T I O N D 1 \r ( P 0 L O W
0012000 E R - A I 0 A ) \0 < 002 \0
0012020 \0 001 021 001 @ 003 265 025 o \0 \0 \0 @ \n \0
0012040 \0 002 001 \t \0 \0 X d \t \0 \0 020 001 ` \0 \0
0012060 360 262 350 @ 002 001 Y 004 l 004 360 262 336 I 265 \b
0012100 h 262 330 @ 260 335 i 360 263 370 i 260 366 \0 ( 3
0012120 0 Q M K S T R I N G 2 3 Q
0012140 S M A R T - L - C A S E 1 6 Q
0012160 P H I - T Y P E - E R R O R )
0012200 \r ( 3 5 Q * Q U O T E * ) \r (
0012220 1 2 Q " a t o m " ) \r P R I
0012240 M - A T O M ? D 1 \r ( L ( 0
0012260 X ) ) \0 + 001 \0 \0 001 @ 003 264 034 @
0012300 001 ` \0 \0 360 264 024 @ 002 001 021 001 \0 H 004 l
0012320 004 360 264 006 H 265 \t h 022 h 360 h 360 020 i 360
0012340 263 367 i 260 365 \0 N I L \r ( 1 0 Q *
0012360 Q U O T E * ) \r ( ) \r P R I M -
0012400 B O O L E A N ? D 1 \r ( L (
0012420 0 X ) ) \0 ! 001 \0 \0 001 @ 003 264 031
0012440 @ 001 ` \0 \0 360 264 021 @ 002 001 021 001 \0 H i
0012460 360 265 005 H h 360 022 h 360 h 360 020 \0 N I L
0012500 \r ( 1 0 Q * Q U O T E * ) \r (
0012520 ) \r P R I M - C H A R A C T E R
0012540 - D E S I G N A T O R ? D 1 \r
0012560 ( L ( 0 X ) ) \0 032 \0 \0 \0 001
0012600 @ 003 264 022 @ 001 ` \0 \0 360 264 \n @ 002 001 004
0012620 ` \0 \0 360 h 360 h 360 020 \0 N I L \r ( 2
0012640 2 Q 004 003 C H A R A C T E R - D
0012660 E S I G N A T O R T Y P E # 1
0012700 0 Q * Q U O T E * ) \r ( ) \r P
0012720 R I M - C H A R A C T E R - L E
0012740 S S ? D 1 \r ( P 2 R E S U
0012760 L T P 1 C H A R A C T E R
0013000 - 2 P 0 C H A R A C T E R
0013020 - 1 I 1 C H A R A C T E R
0013040 - 2 - A R G I 0 C H A R A
0013060 C T E R - 1 - A R G ) \0 = 003 \0
0013100 \0 002 021 0 002 @ 004 ` \0 \0 360 221 @ 207 o \0
0013120 \0 \0 @ \n \0 \0 006 \0 \0 311 \0 X A 004 ` \0
0013140 \0 360 221 A 207 o \0 \0 \0 A \n \0 \0 006 \0 \0
0013160 311 \0 Y H I \n \0 \0 d h 360 h 360 020 \0 (
0013200 6 5 Q A L P H O R D E R 5 2
0013220 Q P H I - T Y P E - E R R O R
0013240 2 3 Q P H I - T Y P E - E R
0013260 R O R ) \r ( 5 5 Q C H A R A C
0013300 T E R - D E S I G N A T O R 3
0013320 6 Q 004 003 C H A R A C T E R - D
0013340 E S I G N A T O R T Y P E # 2
0013360 6 Q C H A R A C T E R - D E S
0013400 I G N A T O R 7 004 003 C H A R
0013420 A C T E R - D E S I G N A T O R
0013440 T Y P E # ) \r ( 4 6 Q " c h
0013460 a r a c t e r " 1 7 Q " c h
0013500 a r a c t e r " ) \r P R I M - C
0013520 H A R A C T E R ? D 1 \r ( L
0013540 ( 0 X ) ) \0 \f \0 \0 \0 001 @ 004 `
0013560 \0 \0 360 h 360 h 360 020 \0 N I L \r ( 4
0013600 004 003 C H A R A C T E R - D E S I
0013620 G N A T O R T Y P E # ) \r ( ) \r
0013640 P R I M - C L O S U R E ? D 1
0013660 \r ( I 0 X ) \0 L 002 \0 \0 001 @
0013700 003 264 D @ 001 ` \0 \0 360 264 < @ 002 001 021 021
0013720 001 H d 004 ` \0 \0 360 224 006 \0 \0 311 \0 Y \t
0013740 \0 \0 262 024 I 312 \0 \a l 003 360 265 031 I 312 \0
0013760 \a l 002 360 265 020 H 004 ` \0 \0 360 265 \b H 004
0014000 ` \0 \0 360 022 h 360 h 360 020 \0 ( 4 2 Q
0014020 \ B L O C K D A T A P ) \r ( 1 0
0014040 3 Q 004 003 M A C R O - C L O S U
0014060 R E T Y P E # 7 3 Q 004 003 R E
0014100 F L E C T I V E - C L O S U R E
0014120 T Y P E # 3 4 Q N L I S P -
0014140 S T A C K - O B J E C T 2 7 Q
0014160 004 003 N L I S P - S T A C K - O
0014200 B J E C T T Y P E # 1 0 Q *
0014220 Q U O T E * ) \r ( ) \r P R I M -
0014240 C O N S D 1 \r ( I 1 B I
0014260 0 A ) \0 i 001 \0 \0 002 A d 003 262
0014300 ( d 001 004 ` \0 \0 360 263 037 277 @ \t \0 \0 262
0014320 024 ` \0 \0 037 d @ 024 \0 277 ` \0 \0 032 027 \0
0014340 \0 001 200 @ A 032 020 003 262 3 A 001 ` \0 \0 360
0014360 262 + A 002 001 021 001 \0 H 003 264 \v H 001 004 `
0014400 \0 \0 360 h 360 022 262 025 @ \t \0 \0 A 002 001 032
0014420 021 001 \0 ` \0 \0 H h 032 032 020 o \0 \0 \0 A
0014440 \n \0 \0 020 \0 ( 1 4 6 Q P H I - T
0014460 Y P E - E R R O R 1 1 7 Q S
0014500 T R I P - E X P E C T E D - H A
0014520 N D L E 2 2 Q \ B L O C K D
0014540 A T A P ) \r ( 1 3 1 Q * Q U O
0014560 T E * 1 0 5 Q 004 003 3 T A G T
0014600 Y P E # 6 2 Q * Q U O T E *
0014620 4 4 Q W R A P - A N C H O R
0014640 4 0 Q W R A P - A N C H O R
0014660 2 7 Q 004 003 N L I S P - S T A
0014700 C K - O B J E C T T Y P E # 1
0014720 2 Q 004 003 3 T A G T Y P E # ) \r
0014740 ( 1 4 2 Q " s e q u e n c e
0014760 ( o r r a i l ) " ) \r P R I
0015000 M - D I F F E R E N C E D 1 \r
0015020 ( I 1 B I 0 A ) \0 035
0015040 \0 \0 \0 002 @ 3 020 265 \n o \0 \0 \0 @ \n \0
0015060 \0 A 3 020 265 \n o \0 \0 \0 A \n \0 \0 325 020
0015100 \0 ( 3 1 Q P H I - T Y P E - E
0015120 R R O R 1 4 Q P H I - T Y P
0015140 E - E R R O R ) \r N I L \r ( 2
0015160 5 Q " n u m b e r " 1 0 Q
0015200 " n u m b e r " ) \r P R I M - D
0015220 O W N D 1 \r ( P 0 R E S U
0015240 L T I 0 X ) \0 033 001 \0 \0 001
0015260 021 020 \0 @ \t \0 \0 X d d g \0 \0 360 231 277
0015300 o \0 \0 \0 @ \n \0 \0 h 020 \0 ( 2 7 Q
0015320 P H I - T Y P E - E R R O R 6
0015340 A T T E M P T - D O W N ) \r (
0015360 1 4 Q N O T . P O S S I B L E
0015400 ) \r ( 2 3 Q " n o r m a l
0015420 f o r m s t r u c t u r e " )
0015440 \r P R I M - E F D 1 \r ( I 2
0015460 Z I 1 Y I 0 X )
0015500 \0 024 \0 \0 \0 003 @ d i 360 250 232 o \0 \0 \0
0015520 @ \n \0 \0 221 A 020 B 020 \0 ( 1 5 Q P
0015540 H I - T Y P E - E R R O R ) \r N
0015560 I L \r ( 1 1 Q " t r u t h
0015600 v a l u e " ) \r P R I M - E N V
0015620 I R O N M E N T - D E S I G N A
0015640 T O R ? D 1 \r ( I 0 X )
0015660 \0 : 002 \0 \0 001 @ 003 264 2 @ 001 ` \0 \0 360
0015700 264 * @ 002 001 021 021 001 H 004 ` \0 \0 360 265 033
0015720 H d 004 ` \0 \0 360 224 006 \0 \0 311 \0 Y \t \0
0015740 \0 264 \b I 312 \0 \a k 360 022 h 360 h 360 020 \0
0015760 ( 5 2 Q \ B L O C K D A T A P
0016000 ) \r ( 4 4 Q N L I S P - S T A
0016020 C K - O B J E C T 3 7 Q 004 003
0016040 N L I S P - S T A C K - O B J E
0016060 C T T Y P E # 2 6 Q 004 003 S H
0016100 A L L O W - E N V T Y P E # 1
0016120 0 Q * Q U O T E * ) \r ( ) \r P
0016140 R I M - E N V I R O N M E N T ?
0016160 D 1 \r ( I 0 X ) \0 + 001 \0
0016200 \0 001 @ 004 ` \0 \0 360 265 037 @ d 004 ` \0 \0
0016220 360 224 006 \0 \0 311 \0 021 001 \0 H \t \0 \0 264 \b
0016240 H 312 \0 \a k 360 022 h 360 h 360 020 \0 ( 3 3
0016260 Q \ B L O C K D A T A P ) \r (
0016300 2 2 Q N L I S P - S T A C K -
0016320 O B J E C T 1 5 Q 004 003 N L I
0016340 S P - S T A C K - O B J E C T T
0016360 Y P E # 4 004 003 S H A L L O W
0016400 - E N V T Y P E # ) \r ( ) \r P R
0016420 I M - E Q U A L ? D 1 \r ( I
0016440 1 B I 0 A ) \0 \v \0 \0 \0
0016460 002 @ A \n \0 \0 h 360 h 360 020 \0 ( 4 E
0016500 X T E N S I O N A L L Y - E Q U
0016520 A L ) \r N I L \r ( ) \r P R I M -
0016540 F I R S T D 1 \r ( I 0 A )
0016560 \0 h 001 \0 \0 001 @ d 003 262 034 d 001 004 `
0016600 \0 \0 360 263 023 d 001 ` \0 \0 360 227 277 o \0 \0
0016620 \0 \t \0 \0 001 020 003 262 > @ 001 ` \0 \0 360 262
0016640 6 @ 002 001 021 001 \0 H 003 264 \v H 001 004 ` \0
0016660 \0 360 h 360 022 262 @ 002 001 d 001 ` \0 \0 360
0016700 227 277 o \0 \0 \0 \t \0 \0 001 021 001 \0 ` \0 \0
0016720 H h 032 032 020 o \0 \0 \0 @ \n \0 \0 020 \0 (
0016740 1 4 5 Q P H I - T Y P E - E R
0016760 R O R 1 2 1 Q N L I S P - E
0017000 R R O R 3 4 Q N L I S P - E
0017020 R R O R ) \r ( 1 3 0 Q * Q U O
0017040 T E * 1 0 7 Q * R A I L *
0017060 7 1 Q 004 003 3 T A G T Y P E #
0017100 4 6 Q * Q U O T E * 2 2 Q
0017120 * R A I L * 1 2 Q 004 003 3 T A
0017140 G T Y P E # ) \r ( 1 4 1 Q "
0017160 s e q u e n c e ( o r r a i
0017200 l ) " 1 1 6 Q " n o n - n u
0017220 l l s e q u e n c e ( o r
0017240 r a i l ) e x p e c t e d "
0017260 3 1 Q " n o n - n u l l s e
0017300 q u e n c e ( o r r a i l )
0017320 e x p e c t e d " ) \r P R I M
0017340 - F U N C T I O N ? D 1 \r ( P
0017360 0 Y I 0 X ) \0 Z 001 \0
0017400 \0 001 @ d 004 ` \0 \0 360 224 006 \0 \0 311 \0 021
0017420 001 \0 H \t \0 \0 264 022 H 312 \0 \a l 003 360 265
0017440 \t H 312 \0 \a l 002 360 022 265 - @ 004 ` \0 \0
0017460 360 265 % @ 004 ` \0 \0 360 265 035 @ \t \0 \0 230
0017500 @ 312 \0 \a l 003 360 265 017 @ \t \0 \0 264 \t @
0017520 312 \0 \a l 002 360 h 360 h 360 020 \0 ( 1 1 2
0017540 Q \ B L O C K D A T A P 7 4
0017560 Q \ B L O C K D A T A P 2 3
0017600 Q \ B L O C K D A T A P ) \r (
0017620 6 5 Q 004 003 M A C R O - C L O S
0017640 U R E T Y P E # 5 5 Q 004 003 R
0017660 E F L E C T I V E - C L O S U R
0017700 E T Y P E # 1 2 Q N L I S P
0017720 - S T A C K - O B J E C T 5
0017740 004 003 N L I S P - S T A C K - O B
0017760 J E C T T Y P E # ) \r ( ) \r P R
0020000 I M - H A N D L E ? D 1 \r ( L
0020020 ( 0 X ) ) \0 # 001 \0 \0 001 @ 003
0020040 264 033 @ 001 ` \0 \0 360 264 023 @ 002 001 021 001 \0
0020060 H 003 264 \b H 001 ` \0 \0 360 022 h 360 h 360 020
0020100 \0 N I L \r ( 3 2 Q * Q U O T E
0020120 * 1 0 Q * Q U O T E * ) \r (
0020140 ) \r P R I M - L E S S ? D 1 \r
0020160 ( I 1 B I 0 A ) \0 "
0020200 \0 \0 \0 002 @ 3 020 265 \n o \0 \0 \0 @ \n \0
0020220 \0 A 3 020 265 \n o \0 \0 \0 A \n \0 \0 375 363
0020240 h 360 h 360 020 \0 ( 3 1 Q P H I - T
0020260 Y P E - E R R O R 1 4 Q P H
0020300 I - T Y P E - E R R O R ) \r N I
0020320 L \r ( 2 5 Q " n u m b e r "
0020340 1 0 Q " n u m b e r " ) \r P
0020360 R I M - L I S T D 1 \r ( I 0
0020400 X ) \0 / 003 \0 \0 001 021 0 002 @ 003 232
0020420 @ d 001 004 ` \0 \0 360 262 033 277 o \0 \0 \0 @
0020440 \n \0 \0 216 d 001 270 I 265 \a H h 032 Z 201 H
0020460 & 271 002 003 265 360 J 020 \0 ( 3 0 Q P H
0020500 I - T Y P E - E R R O R ) \r ( 1
0020520 4 Q 004 003 3 T A G T Y P E # ) \r
0020540 ( 2 4 Q " s e q u e n c e "
0020560 ) \r P R I M - M A C R O - C L O
0020600 S U R E ? D 1 \r ( L ( 0 X
0020620 ) ) \0 032 \0 \0 \0 001 @ 003 264 022 @ 001 `
0020640 \0 \0 360 264 \n @ 002 001 004 ` \0 \0 360 h 360 h
0020660 360 020 \0 N I L \r ( 2 2 Q 004 003 M A
0020700 C R O - C L O S U R E T Y P E #
0020720 1 0 Q * Q U O T E * ) \r ( )
0020740 \r P R I M - N U L L D 1 \r ( I
0020760 0 A ) \0 N 001 \0 \0 001 @ d 003 262
0021000 024 d 001 004 ` \0 \0 360 251 001 ` \0 \0 360 h 360
0021020 h 360 020 003 262 , @ 001 ` \0 \0 360 262 $ @ 002
0021040 001 021 001 \0 H 003 264 \v H 001 004 ` \0 \0 360 h
0021060 360 022 234 @ 002 001 001 ` \0 \0 360 h 360 h 360 020
0021100 o \0 \0 \0 @ \n \0 \0 020 \0 ( 1 1 3 Q
0021120 P H I - T Y P E - E R R O R ) \r
0021140 ( 7 5 Q * R A I L * 6 1 Q
0021160 004 003 3 T A G T Y P E # 3 6 Q
0021200 * Q U O T E * 2 0 Q * R A I
0021220 L * 1 2 Q 004 003 3 T A G T Y P
0021240 E # ) \r ( 1 0 7 Q " s e q u
0021260 e n c e ( o r r a i l ) " )
0021300 \r P R I M - N U M B E R ? D 1
0021320 \r ( L ( 0 X ) ) \0 \f \0 \0 \0
0021340 001 @ 3 020 264 003 i h 360 h 360 020 \0 N I L
0021360 \r N I L \r ( ) \r P R I M - N U M
0021400 E R A L ? D 1 \r ( L ( 0 X
0021420 ) ) \0 032 \0 \0 \0 001 @ 003 264 022 @ 001 `
0021440 \0 \0 360 264 \n @ 002 001 3 020 264 003 i h 360 h
0021460 360 020 \0 N I L \r ( 1 0 Q * Q U O
0021500 T E * ) \r ( ) \r P R I M - P A I
0021520 R ? D 1 \r ( I 0 X ) \0 030
0021540 \0 \0 \0 001 @ 003 264 020 @ 001 ` \0 \0 360 264 \b
0021560 @ 002 001 \t \0 \0 h 360 h 360 020 \0 ( 2 1 Q
0021600 P A I R ? ) \r ( 1 0 Q * Q U
0021620 O T E * ) \r ( ) \r P R I M - P A
0021640 R G S D 1 \r ( I 0 P A I R
0021660 ) \0 / 001 \0 \0 001 @ 003 265 032 o \0 \0 \0
0021700 @ \n \0 \0 002 001 \t \0 \0 021 001 \0 ` \0 \0 H
0021720 h 032 032 020 001 ` \0 \0 360 262 343 @ 002 001 \t \0
0021740 \0 262 333 @ 260 340 \0 ( 5 0 Q P A I R
0021760 ? 2 0 Q P C D R 1 3 Q P
0022000 H I - T Y P E - E R R O R ) \r (
0022020 3 7 Q * Q U O T E * 2 6 Q
0022040 * Q U O T E * ) \r ( 7 " p a
0022060 i r " ) \r P R I M - P C O N S
0022100 D 1 \r ( I 1 S 2 I 0 S
0022120 1 ) \0 027 001 \0 \0 002 @ \t \0 \0 A \t \0
0022140 \0 \n \0 \0 021 001 \0 ` \0 \0 H h 032 032 020 \0
0022160 ( 1 2 Q P C O N S 7 S T R
0022200 I P - E X P E C T E D - H A N D
0022220 L E 3 S T R I P - E X P E C
0022240 T E D - H A N D L E ) \r ( 2 0 Q
0022260 * Q U O T E * ) \r ( ) \r P R I
0022300 M - P L U S D 1 \r ( I 1 B
0022320 I 0 A ) \0 035 \0 \0 \0 002 @ 3
0022340 020 265 \n o \0 \0 \0 @ \n \0 \0 A 3 020 265 \n
0022360 o \0 \0 \0 A \n \0 \0 324 020 \0 ( 3 1 Q
0022400 P H I - T Y P E - E R R O R 1
0022420 4 Q P H I - T Y P E - E R R O
0022440 R ) \r N I L \r ( 2 5 Q " n u
0022460 m b e r " 1 0 Q " n u m b e
0022500 r " ) \r P R I M - P P R O C D
0022520 1 \r ( I 0 P A I R ) \0 / 001
0022540 \0 \0 001 @ 003 265 032 o \0 \0 \0 @ \n \0 \0 002
0022560 001 \t \0 \0 021 001 \0 ` \0 \0 H h 032 032 020 001
0022600 ` \0 \0 360 262 343 @ 002 001 \t \0 \0 262 333 @ 260
0022620 340 \0 ( 5 0 Q P A I R ? 2 0 Q
0022640 P C A R 1 3 Q P H I - T Y
0022660 P E - E R R O R ) \r ( 3 7 Q *
0022700 Q U O T E * 2 6 Q * Q U O T
0022720 E * ) \r ( 7 " p a i r " ) \r
0022740 P R I M - P R I M I T I V E - C
0022760 L O S U R E ? D 1 \r ( I 0
0023000 X ) \0 A 001 \0 \0 001 @ 003 264 9 @ 001 `
0023020 \0 \0 360 264 1 @ 002 001 d 004 ` \0 \0 360 224 006
0023040 \0 \0 311 \0 021 001 \0 H \t \0 \0 264 030 H 312 \0
0023060 \a l 003 360 264 017 H 311 002 006 \0 \0 312 \0 020 j
0023100 360 h 360 022 h 360 h 360 020 \0 ( 4 1 Q \
0023120 B L O C K D A T A P ) \r ( 6 2 Q
0023140 S K E L E T O N 3 0 Q N L
0023160 I S P - S T A C K - O B J E C T
0023200 2 3 Q 004 003 N L I S P - S T A
0023220 C K - O B J E C T T Y P E # 1
0023240 0 Q * Q U O T E * ) \r ( ) \r P
0023260 R I M - Q U O T I E N T D 1 \r
0023300 ( I 1 B I 0 A ) \0 7
0023320 001 \0 \0 002 @ 3 020 265 \n o \0 \0 \0 @ \n \0
0023340 \0 A 3 020 265 \n o \0 \0 \0 A \n \0 \0 021 001
0023360 \0 H j 360 252 H d 005 003 234 d \t \0 \0 227 277
0023400 o \0 \0 \0 \t \0 \0 022 327 020 \0 ( 6 2 Q
0023420 N L I S P - E R R O R 5 1 Q
0023440 \ F Z E R O P 3 1 Q P H I -
0023460 T Y P E - E R R O R 1 4 Q P
0023500 H I - T Y P E - E R R O R ) \r N
0023520 I L \r ( 5 7 Q " n o n - z e
0023540 r o a r g u m e n t e x p e
0023560 c t e d " 2 5 Q " n u m b e
0023600 r " 1 0 Q " n u m b e r " )
0023620 \r P R I M - R A I L ? D 1 \r (
0023640 L ( 0 X ) ) \0 & 001 \0 \0 001 @
0023660 003 264 036 @ 001 ` \0 \0 360 264 026 @ 002 001 021 001
0023700 \0 H 003 264 \v H 001 004 ` \0 \0 360 h 360 022 h
0023720 360 h 360 020 \0 N I L \r ( 3 3 Q 004 003
0023740 3 T A G T Y P E # 1 0 Q * Q
0023760 U O T E * ) \r ( ) \r P R I M - R
0024000 C O N S D 1 \r ( P 2 E P
0024020 0 C O L L E C T O R I 0
0024040 X ) \0 K 003 \0 \0 001 021 001 h h 032
0024060 X @ 003 232 @ d 001 004 ` \0 \0 360 262 # 277 o
0024100 \0 \0 \0 @ \n \0 \0 260 030 d 001 021 001 002 J `
0024120 \0 \0 360 250 H J \t \0 \0 \n \0 \0 277 023 002 003
0024140 265 351 H ` \0 \0 \n \0 \0 H 001 271 ` \0 \0 I
0024160 h 032 032 020 \0 ( 7 6 Q T C O N C
0024200 6 1 Q T C O N C 5 6 Q S T
0024220 R I P - E X P E C T E D - H A N
0024240 D L E 3 4 Q P H I - T Y P E
0024260 - E R R O R ) \r ( 1 0 4 Q * Q
0024300 U O T E * 7 3 Q * R A I L *
0024320 4 7 Q * R A I L * 2 0 Q
0024340 004 003 3 T A G T Y P E # ) \r ( 3
0024360 0 Q " s e q u e n c e " ) \r P
0024400 R I M - R E F L E C T I V E - C
0024420 L O S U R E ? D 1 \r ( L ( 0
0024440 X ) ) \0 032 \0 \0 \0 001 @ 003 264 022 @
0024460 001 ` \0 \0 360 264 \n @ 002 001 004 ` \0 \0 360 h
0024500 360 h 360 020 \0 N I L \r ( 2 2 Q 004 003
0024520 R E F L E C T I V E - C L O S U
0024540 R E T Y P E # 1 0 Q * Q U O
0024560 T E * ) \r ( ) \r P R I M - R E S
0024600 T D 1 \r ( I 0 A ) \0 h 001
0024620 \0 \0 001 @ d 003 262 034 d 001 004 ` \0 \0 360 263
0024640 023 d 001 ` \0 \0 360 227 277 o \0 \0 \0 \t \0 \0
0024660 002 020 003 262 > @ 001 ` \0 \0 360 262 6 @ 002 001
0024700 021 001 \0 H 003 264 \v H 001 004 ` \0 \0 360 h 360
0024720 022 262 @ 002 001 d 001 ` \0 \0 360 227 277 o \0
0024740 \0 \0 \t \0 \0 002 021 001 \0 ` \0 \0 H h 032 032
0024760 020 o \0 \0 \0 @ \n \0 \0 020 \0 ( 1 4 5 Q
0025000 P H I - T Y P E - E R R O R
0025020 1 2 1 Q N L I S P - E R R O R
0025040 3 4 Q N L I S P - E R R O R
0025060 ) \r ( 1 3 0 Q * Q U O T E *
0025100 1 0 7 Q * R A I L * 7 1 Q
0025120 004 003 3 T A G T Y P E # 4 6 Q
0025140 * Q U O T E * 2 2 Q * R A I
0025160 L * 1 2 Q 004 003 3 T A G T Y P
0025200 E # ) \r ( 1 4 1 Q " s e q u
0025220 e n c e ( o r r a i l ) "
0025240 1 1 6 Q " n o n - n u l l s
0025260 e q u e n c e ( o r r a i l
0025300 ) e x p e c t e d " 3 1 Q
0025320 " n o n - n u l l s e q u e n
0025340 c e ( o r r a i l ) e x p
0025360 e c t e d " ) \r P R I M - S E Q
0025400 U E N C E ? D 1 \r ( L ( 0
0025420 X ) ) \0 023 \0 \0 \0 001 @ 003 264 \v @ 001
0025440 004 ` \0 \0 360 h 360 h 360 h 360 020 \0 N I L
0025460 \r ( 1 1 Q 004 003 3 T A G T Y P E
0025500 # ) \r ( ) \r P R I M - S I M P L
0025520 E - C L O S U R E ? D 1 \r ( I
0025540 0 X ) \0 ; 001 \0 \0 001 @ 003 264 3
0025560 @ 001 ` \0 \0 360 264 + @ 002 001 d 004 ` \0 \0
0025600 360 224 006 \0 \0 311 \0 021 001 \0 H \t \0 \0 264 022
0025620 H 312 \0 \a l 003 360 265 \t H 312 \0 \a l 002 360
0025640 022 h 360 h 360 020 \0 ( 4 1 Q \ B L O
0025660 C K D A T A P ) \r ( 3 0 Q N L
0025700 I S P - S T A C K - O B J E C T
0025720 2 3 Q 004 003 N L I S P - S T A
0025740 C K - O B J E C T T Y P E # 1
0025760 0 Q * Q U O T E * ) \r ( ) \r P
0026000 R I M - S T R E A M - D E S I G
0026020 N A T O R ? D 1 \r ( I 0 X
0026040 ) \0 030 \0 \0 \0 001 @ 003 264 020 @ 001 ` \0
0026060 \0 360 264 \b @ 002 001 \t \0 \0 h 360 h 360 020 \0
0026100 ( 2 1 Q S T R E A M P ) \r ( 1
0026120 0 Q * Q U O T E * ) \r ( ) \r P
0026140 R I M - S T R E A M ? D 1 \r (
0026160 I 0 X ) \0 \n \0 \0 \0 001 @ \t \0
0026200 \0 h 360 h 360 020 \0 ( 3 S T R E A M
0026220 P ) \r N I L \r ( ) \r P R I M - S
0026240 T R I N G - A P P E N D D 1 \r
0026260 ( P 2 E P 1 S P 0
0026300 C O L L E C T O R I 0 N
0026320 O - S P R E A D - S E Q - A R G
0026340 ) \0 _ 003 \0 \0 001 021 001 h h 032 X @
0026360 003 232 @ d 001 004 ` \0 \0 360 262 C 277 o \0 \0
0026400 \0 @ \n \0 \0 260 8 d 001 021 001 002 J ` \0 \0
0026420 360 263 * J d 004 ` \0 \0 360 233 277 k J 006 \0
0026440 \0 311 \0 \n \0 \0 214 005 \a 221 J 207 o \0 \0 \0
0026460 J \n \0 \0 271 H I \n \0 \0 277 023 002 003 265 311
0026500 H 001 \t \0 \0 020 \0 ( 1 3 4 Q C O N
0026520 C A T L I S T 1 2 1 Q T C O
0026540 N C 1 1 3 Q P H I - T Y P E
0026560 - E R R O R 7 5 Q A L L O C
0026600 S T R I N G 3 4 Q P H I - T
0026620 Y P E - E R R O R ) \r ( 7 0 Q
0026640 C H A R A C T E R - D E S I G N
0026660 A T O R 6 0 Q 004 003 C H A R A
0026700 C T E R - D E S I G N A T O R T
0026720 Y P E # 4 7 Q * R A I L *
0026740 2 0 Q 004 003 3 T A G T Y P E # )
0026760 \r ( 1 0 7 Q " s t r i n g "
0027000 3 0 Q " s e q u e n c e " )
0027020 \r P R I M - S T R I N G - D E S
0027040 I G N A T O R ? D 1 \r ( I 0
0027060 X ) \0 032 \0 \0 \0 001 @ 003 264 022 @ 001
0027100 ` \0 \0 360 264 \n @ 002 001 005 \a 264 003 i h 360
0027120 h 360 020 \0 N I L \r ( 1 0 Q * Q U
0027140 O T E * ) \r ( ) \r P R I M - S T
0027160 R I N G - L E N G T H D 1 \r (
0027200 I 0 A ) \0 023 \0 \0 \0 001 @ 005 \a
0027220 221 @ 207 o \0 \0 \0 @ \n \0 \0 \t \0 \0 020 \0
0027240 ( 2 0 Q N C H A R S 1 5 Q
0027260 P H I - T Y P E - E R R O R ) \r
0027300 N I L \r ( 1 1 Q " s t r i n
0027320 g " ) \r P R I M - S T R I N G -
0027340 L E S S ? D 1 \r ( P 2 R E
0027360 S U L T P 1 S T R I N G -
0027400 2 P 0 S T R I N G - 1 I
0027420 1 S T R I N G - 2 - A R G
0027440 I 0 S T R I N G - 1 - A R G
0027460 ) \0 - 003 \0 \0 002 021 0 002 @ 005 \a 221 @
0027500 207 o \0 \0 \0 @ \n \0 \0 X A 005 \a 221 A 207
0027520 o \0 \0 \0 A \n \0 \0 Y H I \n \0 \0 d h
0027540 360 h 360 020 \0 ( 4 5 Q A L P H O R
0027560 D E R 3 7 Q P H I - T Y P E
0027600 - E R R O R 2 0 Q P H I - T
0027620 Y P E - E R R O R ) \r N I L \r (
0027640 3 3 Q " s t r i n g " 1 4
0027660 Q " s t r i n g " ) \r P R I M
0027700 - S T R I N G - N T H - C H A R
0027720 A C T E R D 1 \r ( P 1 C H
0027740 A R A C T E R P 0 P O S I
0027760 T I O N I 1 S I 0 N
0030000 ) \0 ? 003 \0 \0 002 021 0 002 @ 3 020 265 \n
0030020 o \0 \0 \0 @ \n \0 \0 X A 005 \a 221 A 207 o
0030040 \0 \0 \0 A \n \0 \0 H d \v \0 \0 Y d 247 o
0030060 \0 \0 \0 \t \0 \0 277 ` \0 \0 037 I \t \0 \0 272
0030100 d J 024 \0 277 020 \0 ( 6 6 Q C H C O
0030120 N 1 5 5 Q N L I S P - E R R
0030140 O R 4 3 Q S U B S T R I N G
0030160 3 6 Q P H I - T Y P E - E R
0030200 R O R 1 7 Q P H I - T Y P E
0030220 - E R R O R ) \r ( 6 1 Q 004 003 C
0030240 H A R A C T E R - D E S I G N A
0030260 T O R T Y P E # ) \r ( 5 2 Q
0030300 " i l l e g a l c h a r a c t
0030320 e r p o s i t i o n w i t h
0030340 i n s t r i n g " 3 2 Q "
0030360 s t r i n g " 1 3 Q " n u m
0030400 b e r " ) \r P R I M - S T R I N
0030420 G - S E A R C H D 1 \r ( P 6
0030440 P O S I T I O N P 5 S U
0030460 B S T R I N G P 4 L E N G
0030500 T H P 3 E N D P 2 S
0030520 T A R T P 1 K E Y P 0
0030540 S O U R C E I 1 S O U R
0030560 C E - A R G I 0 K E Y - A
0030600 R G ) \0 ? \a \0 \0 002 021 p 006 @ d 004
0030620 ` \0 \0 360 233 277 k @ 006 \0 \0 311 \0 \n \0 \0
0030640 214 005 \a 221 @ 207 o \0 \0 \0 @ \n \0 \0 271 A
0030660 005 \a 221 A 207 o \0 \0 \0 A \n \0 \0 X I H
0030700 \n \0 \0 d 265 003 j 020 \0 ( 7 0 Q S T
0030720 R P O S 6 2 Q P H I - T Y P
0030740 E - E R R O R 4 3 Q P H I -
0030760 T Y P E - E R R O R 2 5 Q A
0031000 L L O C S T R I N G ) \r ( 2 0 Q
0031020 C H A R A C T E R - D E S I G
0031040 N A T O R 1 0 Q 004 003 C H A R
0031060 A C T E R - D E S I G N A T O R
0031100 T Y P E # ) \r ( 5 6 Q " s t
0031120 r i n g " 3 7 Q " s t r i n
0031140 g " ) \r P R I M - S T R I N G ?
0031160 D 1 \r ( I 0 X ) \0 \f \0 \0
0031200 \0 001 @ 005 \a 264 003 i h 360 h 360 020 \0 N I
0031220 L \r N I L \r ( ) \r P R I M - S U
0031240 B S T R I N G D 1 \r ( P 4
0031260 S U B S T R I N G P 3 L E
0031300 N G T H P 2 E N D P 1
0031320 S T A R T P 0 S T R I N
0031340 G I 2 S T R I N G - A R G
0031360 I 1 E N D - A R G I 0
0031400 S T A R T - A R G ) \0 M 005 \0
0031420 \0 003 021 P 004 B 005 \a 221 B 207 o \0 \0 \0 B
0031440 \n \0 \0 X @ 3 020 265 \n o \0 \0 \0 @ \n \0
0031460 \0 Y A 3 020 265 \n o \0 \0 \0 A \n \0 \0 Z
0031500 H \t \0 \0 [ J K 361 220 Z k I 361 221 k 271
0031520 H I J \v \0 \0 d 265 006 o \0 \0 \0 020 \0 (
0031540 1 0 3 Q S U B S T R I N G 6
0031560 1 Q N C H A R S 5 4 Q P H
0031600 I - T Y P E - E R R O R 3 6 Q
0031620 P H I - T Y P E - E R R O R
0031640 2 0 Q P H I - T Y P E - E R R
0031660 O R ) \r N I L \r ( 1 1 2 Q "
0031700 " 5 0 Q " n u m b e r " 3
0031720 2 Q " n u m b e r " 1 4 Q
0031740 " s t r i n g " ) \r P R I M - T
0031760 I M E S D 1 \r ( I 1 B I
0032000 0 A ) \0 035 \0 \0 \0 002 @ 3 020 265
0032020 \n o \0 \0 \0 @ \n \0 \0 A 3 020 265 \n o \0
0032040 \0 \0 A \n \0 \0 326 020 \0 ( 3 1 Q P H
0032060 I - T Y P E - E R R O R 1 4 Q
0032100 P H I - T Y P E - E R R O R )
0032120 \r N I L \r ( 2 5 Q " n u m b
0032140 e r " 1 0 Q " n u m b e r "
0032160 ) \r P R I M - T R U T H - V A L
0032200 U E ? D 1 \r ( L ( 0 X ) )
0032220 \0 016 \0 \0 \0 001 @ i 360 265 005 @ h 360 h
0032240 360 h 360 020 \0 N I L \r N I L \r ( ) \r
0032260 P R I M - U P D 1 \r ( I 0
0032300 X ) \0 % 001 \0 \0 001 @ \t \0 \0 262 024 `
0032320 \0 \0 037 d @ 024 \0 277 ` \0 \0 032 027 \0 \0 001
0032340 200 @ 021 001 \0 ` \0 \0 H h 032 032 020 \0 ( 3
0032360 \ B L O C K D A T A P ) \r ( 3
0032400 6 Q * Q U O T E * 2 5 Q W
0032420 R A P - A N C H O R 2 1 Q W
0032440 R A P - A N C H O R 1 0 Q 004
0032460 003 N L I S P - S T A C K - O B J
0032500 E C T T Y P E # ) \r ( ) \r P R I
0032520 M - Z E R O ? D 1 \r ( I 0
0032540 A ) \0 % 001 \0 \0 001 @ 3 020 265 \n o \0
0032560 \0 \0 @ \n \0 \0 021 001 \0 H j 360 265 \v H 005
0032600 003 264 006 H \t \0 \0 022 h 360 h 360 020 \0 ( 3
0032620 5 Q \ F Z E R O P 1 4 Q P
0032640 H I - T Y P E - E R R O R ) \r N
0032660 I L \r ( 1 0 Q " n u m b e r
0032700 " ) \r P S I - T Y P E D 1 \r (
0032720 P 0 Y I 0 F O O ) 001
0032740 \0 002 \0 \0 001 @ d 003 234 d 001 004 ` \0 \0 360
0032760 244 o \0 \0 \0 020 004 l 004 360 262 023 @ 265 \t h
0033000 233 o \0 \0 \0 020 i 360 263 367 i 260 365 @ \t \0
0033020 \0 224 o \0 \0 \0 020 @ d 3 020 224 o \0 \0 \0
0033040 020 i 360 242 @ d 244 o \0 \0 \0 020 005 \a 224 o
0033060 \0 \0 \0 020 @ d 004 ` \0 \0 360 224 o \0 \0 \0
0033100 020 004 ` \0 \0 360 226 @ 006 \0 \0 311 \0 200 @ 021
0033120 001 \0 H \t \0 \0 264 022 H 312 \0 \a l 003 360 265
0033140 \t H 312 \0 \a l 002 360 022 263 , @ 004 ` \0 \0
0033160 360 263 $ @ 004 ` \0 \0 360 263 034 @ \t \0 \0 227
0033200 @ 312 \0 \a l 003 360 254 @ \t \0 \0 234 @ 312 \0
0033220 \a l 002 360 224 o \0 \0 \0 020 @ \t \0 \0 224 o
0033240 \0 \0 \0 020 @ 004 ` \0 \0 360 263 @ d 004 `
0033260 \0 \0 360 224 006 \0 \0 311 \0 021 001 001 I \t \0 \0
0033300 264 \b I 312 \0 \a k 360 022 224 o \0 \0 \0 020 @
0033320 003 265 \a o \0 \0 \0 020 001 ` \0 \0 360 262 366 o
0033340 \0 \0 \0 020 \0 ( 3 3 2 Q \ B L O C
0033360 K D A T A P 2 7 0 Q S T R E
0033400 A M P 2 4 6 Q \ B L O C K D
0033420 A T A P 2 3 1 Q \ B L O C K
0033440 D A T A P 1 6 0 Q \ B L O C
0033460 K D A T A P 5 3 Q P A I R ?
0033500 ) \r ( 3 6 6 Q * Q U O T E *
0033520 3 2 1 Q N L I S P - S T A C K
0033540 - O B J E C T 3 1 4 Q 004 003 N
0033560 L I S P - S T A C K - O B J E C
0033600 T T Y P E # 3 0 3 Q 004 003 S H
0033620 A L L O W - E N V T Y P E # 2
0033640 2 2 Q 004 003 M A C R O - C L O S
0033660 U R E T Y P E # 2 1 2 Q 004 003
0033700 R E F L E C T I V E - C L O S U
0033720 R E T Y P E # 1 4 5 Q N L I
0033740 S P - S T A C K - O B J E C T
0033760 1 3 7 Q 004 003 N L I S P - S T A
0034000 C K - O B J E C T T Y P E # 1
0034020 2 4 Q 004 003 C H A R A C T E R -
0034040 D E S I G N A T O R T Y P E #
0034060 1 1 Q 004 003 3 T A G T Y P E # )
0034100 \r ( 3 7 5 Q " h a n d l e "
0034120 3 6 1 Q " ? ? ? " 3 5 0 Q
0034140 " e n v i r o n m e n t d e
0034160 s i g n a t o r " 2 7 5 Q "
0034200 s t r e a m d e s i g n a t o
0034220 r " 2 6 3 Q " c l o s u r e
0034240 " 1 3 2 Q " c h a r a c t e
0034260 r d e s i g n a t o r " 1 1
0034300 5 Q " s t r i n g d e s i g
0034320 n a t o r " 1 0 5 Q " b o o
0034340 l e a n " 7 2 Q " n u m e r
0034360 a l " 6 0 Q " p a i r " 3
0034400 7 Q " a t o m " 1 7 Q " r
0034420 a i l " ) \r S T R I P - E X P E
0034440 C T E D - H A N D L E D 1 \r (
0034460 I 0 X ) \0 031 \0 \0 \0 001 @ 003 265
0034500 \v o \0 \0 \0 @ \n \0 \0 020 001 ` \0 \0 360 262
0034520 362 @ 002 001 020 \0 ( 1 3 Q P H I - T
0034540 Y P E - E R R O R ) \r ( 2 0 Q
0034560 * Q U O T E * ) \r ( 7 " s t
0034600 r u c t u r e " ) \r ( P R E T T
0034620 Y C O M P R I N T P R I M I T
0034640 I V E S C O M S ) \r ( R P A Q Q
0034660 P R I M I T I V E S C O M S
0034700 ( ( F N S A - O R - A N E X
0034720 T E N S I O N A L L Y - E Q U A
0034740 L E X T E N S I O N A L L Y -
0034760 E Q U A L - F O R - R A I L S
0035000 \r I N T E N S I O N A L L Y - E
0035020 Q U A L N L I S P - E R R O R
0035040 P H I - T Y P E P H I - T Y
0035060 P E - E R R O R P R I M - A C
0035100 O N S P R I M - A T O M - N O
0035120 T A T E D \r P R I M - A T O M
0035140 - N O T A T I O N P R I M - A
0035160 T O M ? P R I M - B O O L E A
0035200 N ? P R I M - C H A R A C T E
0035220 R - D E S I G N A T O R ? P R
0035240 I M - C H A R A C T E R - L E S
0035260 S ? \r P R I M - C H A R A C T
0035300 E R ? P R I M - C L O S U R E
0035320 ? P R I M - C O N S P R I M
0035340 - D I F F E R E N C E P R I M
0035360 - D O W N P R I M - E F P R
0035400 I M - E N V I R O N M E N T - D
0035420 E S I G N A T O R ? \r P R I M
0035440 - E N V I R O N M E N T ? P R
0035460 I M - E Q U A L ? P R I M - F
0035500 I R S T P R I M - F U N C T I
0035520 O N ? P R I M - H A N D L E ?
0035540 P R I M - L E S S ? P R I M
0035560 - L I S T \r P R I M - M A C R
0035600 O - C L O S U R E ? P R I M -
0035620 N U L L P R I M - N U M B E R
0035640 ? P R I M - N U M E R A L ?
0035660 P R I M - P A I R ? P R I M -
0035700 P A R G S P R I M - P C O N S
0035720 P R I M - P L U S \r P R I M
0035740 - P P R O C P R I M - P R I M
0035760 I T I V E - C L O S U R E ? P
0036000 R I M - Q U O T I E N T P R I
0036020 M - R A I L ? P R I M - R C O
0036040 N S P R I M - R E F L E C T I
0036060 V E - C L O S U R E ? \r P R I
0036100 M - R E S T P R I M - S E Q U
0036120 E N C E ? P R I M - S I M P L
0036140 E - C L O S U R E ? P R I M -
0036160 S T R E A M - D E S I G N A T O
0036200 R ? P R I M - S T R E A M ?
0036220 P R I M - S T R I N G - A P P E
0036240 N D \r P R I M - S T R I N G -
0036260 D E S I G N A T O R ? P R I M
0036300 - S T R I N G - L E N G T H P
0036320 R I M - S T R I N G - L E S S ?
0036340 P R I M - S T R I N G - N T H
0036360 - C H A R A C T E R \r P R I M
0036400 - S T R I N G - S E A R C H P
0036420 R I M - S T R I N G ? P R I M
0036440 - S U B S T R I N G P R I M -
0036460 T I M E S P R I M - T R U T H
0036500 - V A L U E ? P R I M - U P
0036520 P R I M - Z E R O ? \r P S I -
0036540 T Y P E S T R I P - E X P E C
0036560 T E D - H A N D L E ) ( M A C
0036600 R O S E X P E C T - A T O M -
0036620 D E S I G N A T O R E X P E C
0036640 T - B O O L E A N \r E X P E C
0036660 T - C H A R A C T E R - D E S I
0036700 G N A T O R E X P E C T - C L
0036720 O S U R E E X P E C T - C L O
0036740 S U R E - D E S I G N A T O R
0036760 E X P E C T - E N V I R O N M E
0037000 N T - D E S I G N A T O R \r E
0037020 X P E C T - P A I R - D E S I G
0037040 N A T O R E X P E C T - R A I
0037060 L E X P E C T - S I M P L E -
0037100 C L O S U R E - D E S I G N A T
0037120 O R E X P E C T - S T R E A M
0037140 - D E S I G N A T O R \r E X P
0037160 E C T - S T R I N G - D E S I G
0037200 N A T O R E X T R A C T - E X
0037220 P E C T E D - N U M E R A L N
0037240 O N - E M P T Y - C H E C K N
0037260 O N - Z E R O - C H E C K ) (
0037300 V A R S N L I S P - E R R O R
0037320 # ) \r ( G L O B A L V A R S
0037340 N L I S P - E R R O R # ) ( S
0037360 P E C V A R S N I L ) ( L O
0037400 C A L V A R S T ) ) ) \r ( P U
0037420 T P R O P S E X P E C T - A T
0037440 O M - D E S I G N A T O R M A
0037460 C R O ( O P E N L A M B D A
0037500 ( X ) ( I F ( A N D ( H A
0037520 N D L E ? X ) ( A T O M ?
0037540 ( D O W N X ) ) ) T H E N
0037560 X \r E L S E ( P H I - T Y P
0037600 E - E R R O R " a t o m " X
0037620 ) ) ) ) \r ( P U T P R O P S E
0037640 X P E C T - B O O L E A N M A
0037660 C R O ( O P E N L A M B D A
0037700 ( X ) ( C O N D ( ( B O O L
0037720 E A N ? X ) X ) ( T ( P
0037740 H I - T Y P E - E R R O R " t
0037760 r u t h v a l u e " \r X ) )
0040000 ) ) ) \r ( P U T P R O P S E X
0040020 P E C T - C H A R A C T E R - D
0040040 E S I G N A T O R M A C R O
0040060 ( O P E N L A M B D A ( X )
0040100 ( I F ( C H A R A C T E R - D
0040120 E S I G N A T O R ? X ) T H
0040140 E N X E L S E \r ( P H I -
0040160 T Y P E - E R R O R " c h a r
0040200 a c t e r " X ) ) ) ) \r ( P U
0040220 T P R O P S E X P E C T - C L
0040240 O S U R E M A C R O ( O P E
0040260 N L A M B D A ( X ) ( I F
0040300 ( N O T ( S O M E - K I N D -
0040320 O F - C L O S U R E ? X ) )
0040340 T H E N X E L S E ( \r P H
0040360 I - T Y P E - E R R O R " f u
0040400 n c t i o n " X ) ) ) ) \r ( P
0040420 U T P R O P S E X P E C T - C
0040440 L O S U R E - D E S I G N A T O
0040460 R M A C R O ( O P E N L A M
0040500 B D A ( X ) ( I F ( A N D
0040520 ( H A N D L E ? X ) ( S O
0040540 M E - K I N D - O F - C L O S U
0040560 R E ? \r ( D O W N X ) ) )
0040600 T H E N X E L S E ( P H I
0040620 - T Y P E - E R R O R " c l o
0040640 s u r e " X ) ) ) ) \r ( P U T
0040660 P R O P S E X P E C T - E N V
0040700 I R O N M E N T - D E S I G N A
0040720 T O R M A C R O ( O P E N L
0040740 A M B D A ( X ) ( I F ( E
0040760 N V I R O N M E N T - D E S I G
0041000 N A T O R ? X ) T H E N X
0041020 \r E L S E ( P H I - T Y P E
0041040 - E R R O R " e n v i r o n m
0041060 e n t " X ) ) ) ) \r ( P U T P
0041100 R O P S E X P E C T - P A I R
0041120 - D E S I G N A T O R M A C R
0041140 O ( O P E N L A M B D A ( X
0041160 ) ( I F ( A N D ( H A N D
0041200 L E ? X ) ( P A I R ? ( D
0041220 O W N X ) ) ) T H E N X
0041240 \r E L S E ( P H I - T Y P E -
0041260 E R R O R " p a i r " X ) )
0041300 ) ) \r ( P U T P R O P S E X P
0041320 E C T - R A I L M A C R O (
0041340 O P E N L A M B D A ( X ) (
0041360 C O N D ( ( N O T ( R A I L
0041400 ? X ) ) ( P H I - T Y P E -
0041420 E R R O R " s e q u e n c e "
0041440 X ) ) ( T X \r ) ) ) ) \r (
0041460 P U T P R O P S E X P E C T -
0041500 S I M P L E - C L O S U R E - D
0041520 E S I G N A T O R M A C R O
0041540 ( O P E N L A M B D A ( X )
0041560 ( I F ( A N D ( H A N D L E
0041600 ? X ) ( \r S I M P L E - C L
0041620 O S U R E - O R - C O N T I N U
0041640 A T I O N ? ( D O W N X ) )
0041660 ) T H E N X E L S E ( P
0041700 H I - T Y P E - E R R O R " s
0041720 i m p l e c l o s u r e " X
0041740 ) ) ) ) \r ( P U T P R O P S E
0041760 X P E C T - S T R E A M - D E S
0042000 I G N A T O R M A C R O ( O
0042020 P E N L A M B D A ( X ) ( C
0042040 O N D ( ( S T R E A M - D E S
0042060 I G N A T O R ? X ) X ) (
0042100 T ( \r P H I - T Y P E - E R R
0042120 O R " s t r e a m " X ) ) )
0042140 ) ) \r ( P U T P R O P S E X P
0042160 E C T - S T R I N G - D E S I G
0042200 N A T O R M A C R O ( O P E
0042220 N L A M B D A ( X ) ( I F
0042240 ( S T R I N G - D E S I G N A T
0042260 O R ? X ) T H E N X E L
0042300 S E ( \r P H I - T Y P E - E R
0042320 R O R " s t r i n g " X ) )
0042340 ) ) \r ( P U T P R O P S E X T
0042360 R A C T - E X P E C T E D - N U
0042400 M E R A L M A C R O ( O P E
0042420 N L A M B D A ( X ) ( I F
0042440 ( N O T ( N U M E R A L ? X
0042460 ) ) T H E N ( P H I - T Y P
0042500 E - E R R O R \r " n u m b e r
0042520 " X ) E L S E ( E X T R A
0042540 C T - N U M E R A L X ) ) ) )
0042560 \r ( P U T P R O P S N O N - E
0042600 M P T Y - C H E C K M A C R O
0042620 ( O P E N L A M B D A ( X )
0042640 ( C O N D ( ( E M P T Y ?
0042660 X ) ( N L I S P - E R R O R
0042700 \r " n o n - n u l l s e q u e
0042720 n c e ( o r r a i l ) e x
0042740 p e c t e d " ) ) ( T X ) )
0042760 ) ) \r ( P U T P R O P S N O N
0043000 - Z E R O - C H E C K M A C R
0043020 O ( O P E N L A M B D A ( X
0043040 ) ( C O N D ( ( Z E R O P
0043060 X ) ( N L I S P - E R R O R
0043100 \r " n o n - z e r o a r g u m
0043120 e n t e x p e c t e d " ) )
0043140 ( T X ) ) ) ) \r ( R P A Q Q
0043160 N L I S P - E R R O R # 5 5 )
0043200 \r ( P U T P R O P S P R I M I
0043220 T I V E S C O P Y R I G H T
0043240 ( " T h e K n i g h t s o f
0043260 t h e L a m b d a C a l c
0043300 u l u s " 1 9 8 4 1 9 8 7 )
0043320 ) \r N I L \r
0043326