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