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