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