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