$ od -c -N 50000 [eris]<LispCore>CML>LAB>PCL-ENVIRONMENT.DCOM!3
0000000 ( F I L E C R E A T E D " 7
0000020 - O c t - 8 6 1 6 : 4 7 : 4 4
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 > P C L - E N
0000120 V I R O N M E N T . ; 3 ) \r "
0000140 1 - O c t - 8 6 2 0 : 2 3 :
0000160 1 5 " " C O M P I L E - F I L
0000200 E d " i n " X e r o x L i
0000220 s p 1 - O c t - 8 6 . . .
0000240 " d a t e d " 1 - O c t -
0000260 8 6 2 1 : 2 4 : 4 4 " ) \r ( F
0000300 I L E C R E A T E D " 7 - O
0000320 c t - 8 6 1 6 : 4 5 : 4 9 "
0000340 { E R I S } < L I S P C O R E >
0000360 S O U R C E S > P C L - E N V I
0000400 R O N M E N T . ; 3 1 4 9 0 3
0000420 c h a n g e s t o : ( V A
0000440 R S \r P C L - E N V I R O N M
0000460 E N T C O M S ) ( F U N C T I
0000500 O N S G E T D E F - M E T H O
0000520 D H A S D E F - M E T H O D )
0000540 p r e v i o u s d a t e :
0000560 " 8 - A u g - 8 6 1 6 : 2 8
0000600 : 0 1 " \r { E R I S } < L I S
0000620 P C O R E > S O U R C E S > P C
0000640 L - E N V I R O N M E N T . ; 2
0000660 ) \r ( R P A Q Q P C L - E N V
0000700 I R O N M E N T C O M S ( ( F
0000720 U N C T I O N S R E C O R D -
0000740 D E F I N E R ) ( A D D V A R
0000760 S ( I N S P E C T M A C R O S
0001000 ( I W M C - C L A S S \r A L
0001020 L - S L O T - N A M E S G E T
0001040 - S L O T - A L W A Y S P U T
0001060 - S L O T N I L N I L N I
0001100 L I W M C - C L A S S - I N S
0001120 P E C T - T I T L E ) ) ) ( F
0001140 N S \r I W M C - C L A S S - I
0001160 N S P E C T - T I T L E A L L
0001200 - S L O T - N A M E S M E T H
0001220 O D - T Y P E D - A R G L I S T
0001240 ) ( F U N C T I O N S G E T
0001260 D E F - M E T H O D H A S D E
0001300 F - M E T H O D \r S E L E C T
0001320 - D I S C R I M I N A T O R S
0001340 E L E C T - I M P L E M E N T A
0001360 T I O N ) ( F U N C T I O N S
0001400 M E T H O D - S A V E - N A M
0001420 E R E C O R D - D E F I N E R
0001440 ) ( P ( \r F I L E P K G T Y
0001460 P E ( Q U O T E M E T H O D
0001500 S ) ( Q U O T E G E T D E F
0001520 ) ( Q U O T E G E T D E F -
0001540 M E T H O D ) ( Q U O T E H
0001560 A S D E F ) ( Q U O T E H A
0001600 S D E F - M E T H O D ) \r ( Q
0001620 U O T E D E S C R I P T I O N
0001640 ) " C o m m o n L o o p s
0001660 m e t h o d s " ) ) ( P R O P
0001700 P R O P T Y P E D I S C R I
0001720 M I N A T O R M E T H O D S )
0001740 ( F U N C T I O N S \r M Y -
0001760 B A S I C - D I S C R I M I N A
0002000 T O R - P R I N T - F U N C T I
0002020 O N M Y - B A S I C - M E T H
0002040 O D - P R I N T - F U N C T I O
0002060 N ) ( P ( * * \r " w o r
0002100 k a r o u n d f o r t h e
0002120 f a c t t h a t p r i n t -
0002140 f u n c t i o n s d o n ' t
0002160 w o r k i n t h e b o o t
0002200 s t r a p . " \r " M o v e
0002220 t h e d e f i n i t i o n s
0002240 f r o m t h e s e f a k e
0002260 p l a c e s t o w h e r e
0002300 t h e y s h o u l d b e . "
0002320 ) ( M O V D ( Q U O T E \r
0002340 M Y - B A S I C - D I S C R I M
0002360 I N A T O R - P R I N T - F U N
0002400 C T I O N ) ( M E T H O D - F
0002420 U N C T I O N ( F I N D - M E
0002440 T H O D ( D I S C R I M I N A
0002460 T O R - N A M E D ( Q U O T E
0002500 \r P R I N T - I N S T A N C E
0002520 ) ) ( L I S T ( C L A S S -
0002540 N A M E D ( Q U O T E B A S
0002560 I C - D I S C R I M I N A T O R
0002600 ) ) ) ) ) ) ( M O V D ( Q U
0002620 O T E \r M Y - B A S I C - M E
0002640 T H O D - P R I N T - F U N C T
0002660 I O N ) ( M E T H O D - F U N
0002700 C T I O N ( F I N D - M E T H
0002720 O D ( D I S C R I M I N A T O
0002740 R - N A M E D ( Q U O T E \r
0002760 P R I N T - I N S T A N C E ) )
0003000 ( L I S T ( C L A S S - N A
0003020 M E D ( Q U O T E B A S I C
0003040 - M E T H O D ) ) ) ) ) ) ) (
0003060 P R O P F I L E T Y P E P C
0003100 L - E N V I R O N M E N T ) (
0003120 \r D E C L A R E : D O N T E V
0003140 A L @ L O A D D O E V A L @ C
0003160 O M P I L E D O N T C O P Y
0003200 C O M P I L E R V A R S ( A D
0003220 D V A R S ( N L A M A ) ( N
0003240 L A M L ) ( L A M A \r A L L
0003260 - S L O T - N A M E S ) ) ) ) )
0003300 \r R E C O R D - D E F I N E R
0003320 D 1 \r ( L ( 2 A R G 1 C
0003340 O N T E X T 0 D E F I N E R
0003360 - F O R M ) ) \0 > 002 \0 \0 003 @ 002
0003400 001 d 222 d 003 220 001 021 021 001 A Y d g \0 \0
0003420 360 231 277 H g \0 \0 @ \v \0 \0 020 g \0 \0 360
0003440 264 017 H B \n \0 \0 g \0 \0 @ \v \0 \0 020 g
0003460 \0 \0 I o \0 \0 \0 \f \0 \0 020 \0 ( 7 3 Q
0003500 E C A S E - F A I L 5 7 Q
0003520 S A V E P U T 5 0 Q M E T H
0003540 O D - S A V E - N A M E 3 4 Q
0003560 S A V E P U T ) \r ( 6 3 Q C
0003600 O N T E X T 5 3 Q M E T H O
0003620 D S 4 0 Q D E F M E T H 3
0003640 0 Q S T R U C T U R E S 2 1
0003660 Q N D E F S T R U C T ) \r (
0003700 7 0 Q ( N D E F S T R U C T
0003720 D E F M E T H ) ) \r ( A D D T O
0003740 V A R I N S P E C T M A C R O
0003760 S ( I W M C - C L A S S A L
0004000 L - S L O T - N A M E S G E T
0004020 - S L O T - A L W A Y S P U T
0004040 - S L O T N I L N I L N I
0004060 L \r I W M C - C L A S S - I N
0004100 S P E C T - T I T L E ) ) \r I W
0004120 M C - C L A S S - I N S P E C T
0004140 - T I T L E A 0 0 0 1 A 0 0 0 2
0004160 D 1 \r ( F 0 S ) \0 006 \0 001
0004200 \0 \0 P \t \0 \0 020 \0 ( 3 C L O S E
0004220 ) \r N I L \r ( ) \r I W M C - C L
0004240 A S S - I N S P E C T - T I T L
0004260 E A 0 0 0 1 D 1 \r ( N A M E
0004300 E R R O R S E T F 0 R E S
0004320 E T V A R S L S T F 1 S
0004340 F 2 X F 3 R E S E T Y
0004360 ) \0 036 \0 004 002 \0 g \0 \0 h 032 h h 032
0004400 032 P 032 c \0 277 R Q k \v \0 \0 277 Q \t \0
0004420 \0 c 006 i 020 \0 ( 3 0 Q G E T - O
0004440 U T P U T - S T R E A M - S T R
0004460 I N G 2 3 Q P R I N T - I N
0004500 S T A N C E ) \r ( 2 I W M C -
0004520 C L A S S - I N S P E C T - T I
0004540 T L E A 0 0 0 1 A 0 0 0 2 ) \r (
0004560 ) \r I W M C - C L A S S - I N S
0004600 P E C T - T I T L E D 1 \r ( P
0004620 3 R E S E T Z P 2 R E
0004640 S E T Y P 1 L I S P X H I
0004660 S T P 0 S I 0 X F
0004700 4 L I S P X H I S T F 5
0004720 R E S E T V A R S L S T ) \0
0004740 ( 004 002 \0 001 \b \0 \0 021 001 \0 T 021 ! 003 U
0004760 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0005000 [ \n \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 4 3
0005020 Q E R R O R ! 3 6 Q R E S
0005040 E T R E S T O R E 2 4 Q I W
0005060 M C - C L A S S - I N S P E C T
0005100 - T I T L E A 0 0 0 1 2 M A
0005120 K E - S T R I N G - O U T P U T
0005140 - S T R E A M ) \r ( 3 2 Q E R
0005160 R O R 2 1 Q I N T E R N A L
0005200 ) \r ( 1 6 Q ( I W M C - C L
0005220 A S S - I N S P E C T - T I T L
0005240 E A 0 0 0 1 ) ) \r A L L - S L O
0005260 T - N A M E S D 1 \r ( L ( 0
0005300 O B J E C T ) ) \0 U 005 \0 \0 001
0005320 021 0 002 @ \t \0 \0 \t \0 \0 260 030 d 001 \t \0
0005340 \0 270 I 221 h 200 i 224 H h 032 Z 202 I H &
0005360 271 002 003 265 351 J 022 @ \t \0 \0 021 A 004 H \
0005400 003 265 \b I 022 \n \0 \0 020 001 221 h 200 i 252 L
0005420 001 273 J 265 \f K h 032 Z 271 L 002 002 260 342 K
0005440 & 272 260 370 \0 ( 6 7 Q \ N C O N C
0005460 2 5 2 Q I W M C - C L A S S
0005500 - D Y N A M I C - S L O T S 2
0005520 0 Q S L O T D - N A M E 1 1
0005540 Q C L A S S - I N S T A N C E
0005560 - S L O T S 6 C L A S S - O
0005600 F ) \r N I L \r ( ) \r M E T H O D
0005620 - T Y P E D - A R G L I S T D
0005640 1 \r ( P 1 4 Q A R G P 1
0005660 0 Q I P 5 A R G S P
0005700 4 S P E C S P 3 S I
0005720 0 M E T H O D ) \0 177 \r \0 \0 001
0005740 021 0 002 @ \t \0 \0 260 # d 001 021 001 003 K i
0005760 360 244 K \t \0 \0 200 i 022 270 I 221 h 200 i 224
0006000 H h 032 Z 202 I H & 271 002 003 265 336 J 022 @
0006020 \t \0 \0 021 022 006 M j 021 B \f O 016 003 265 005
0006040 O 022 020 001 _ 030 277 O 020 L \n \0 \0 265 003 i
0006060 276 O 030 N h 032 032 _ 026 277 O 024 265 032 O 026
0006100 h 032 _ 024 _ 022 277 O 016 002 _ 016 277 O 020 k
0006120 324 _ 020 277 260 307 O 026 & _ 024 277 260 353 \0 (
0006140 1 1 4 Q C L : N T H 6 2 Q
0006160 M E T H O D - A R G L I S T 2
0006200 5 Q C L A S S - N A M E 6
0006220 M E T H O D - T Y P E - S P E C
0006240 I F I E R S ) \r N I L \r ( ) \r G
0006260 E T D E F - M E T H O D D 1 \r
0006300 ( L ( 2 O P T I O N S 1
0006320 T Y P E 0 I T E M ) ) \0 6
0006340 001 \0 \0 003 @ 004 l 004 360 264 / @ g \0 \0 B
0006360 \v \0 \0 265 % @ 301 002 311 \0 g \0 \0 ' 021 001
0006400 \0 H 221 h 200 i 221 h 020 H \t \0 \0 d 264 \n
0006420 d g \0 \0 B \v \0 \0 020 \0 ( 6 3 Q \
0006440 D E F I N E - T Y P E - G E T D
0006460 E F 5 0 Q S E L E C T - I M
0006500 P L E M E N T A T I O N 1 6 Q
0006520 \ D E F I N E - T Y P E - G E
0006540 T D E F ) \r ( 5 7 Q M E T H O
0006560 D S 3 0 Q D I S C R I M I N
0006600 A T O R 1 2 Q M E T H O D S
0006620 ) \r ( ) \r H A S D E F - M E T H
0006640 O D D 1 \r ( L ( 2 S O U R
0006660 C E 1 T Y P E 0 S Y M B
0006700 O L ) ) \0 035 \0 \0 \0 003 @ 004 l 004 360
0006720 264 026 @ g \0 \0 \n \0 \0 252 @ 301 002 311 \0 g
0006740 \0 \0 ' 264 003 i 020 \0 ( 1 5 Q \ D E
0006760 F I N E - T Y P E - G E T D E F
0007000 ) \r ( 2 6 Q D I S C R I M I N
0007020 A T O R 1 2 Q M E T H O D S
0007040 ) \r ( ) \r S E L E C T - D I S C
0007060 R I M I N A T O R D 1 \r ( L
0007100 ( 0 C L A S S ) ) \0 z 003 \0 \0
0007120 001 @ \t \0 \0 246 @ \t \0 \0 b \0 277 021 0 002
0007140 @ \t \0 \0 260 030 d 001 \t \0 \0 270 I 221 h 200
0007160 i 224 H h 032 Z 202 I H & 271 002 003 265 351 J
0007200 022 021 ! 002 H d 002 262 A 277 ` \0 \0 037 d H
0007220 024 004 277 h o \0 \0 \0 @ \t \0 \0 \v \0 \0 271
0007240 d I 024 022 277 d g \0 \0 024 277 d g \0 \0
0007260 024 034 277 j d n 177 377 d h 032 032 032 032 272 d
0007300 J 024 \n 277 \t \0 \0 020 001 020 \0 ( 1 6 5 Q
0007320 M E N U 1 1 5 Q F O R M A
0007340 T 1 1 2 Q C L A S S - N A M
0007360 E 3 1 Q D I S C R I M I N A
0007400 T O R - N A M E 2 2 Q C L A
0007420 S S - D I R E C T - D I S C R I
0007440 M I N A T O R S 1 0 Q C L A
0007460 S S - N A M E D 3 C L A S S
0007500 P ) \r ( 1 3 6 Q D E F A U L T
0007520 M E N U H E L D F N 1 2 7 Q
0007540 C L R P R O M P T 7 3 Q 004 003
0007560 M E N U T Y P E # ) \r ( 1 0 6
0007600 Q " ~ A d i s c r i m i n a
0007620 t o r s " ) \r S E L E C T - I M
0007640 P L E M E N T A T I O N D 1 \r
0007660 ( L ( 0 D I S C R I M I N A
0007700 T O R ) ) \0 257 \t \0 \0 001 @ d \t \0
0007720 \0 222 277 @ 207 301 002 311 \0 g \0 \0 ' 021 1 003
0007740 021 0 006 H \t \0 \0 260 030 d 001 \t \0 \0 274 M
0007760 221 h 200 i 224 L h 032 ^ 202 M L & 275 002 003
0010000 265 351 N 022 021 A \b L 003 265 H M 022 Y d 002
0010020 262 h 277 ` \0 \0 037 d I 024 004 277 h o \0 \0
0010040 \0 H \t \0 \0 \v \0 \0 272 d J 024 022 277 d g
0010060 \0 \0 024 277 d g \0 \0 024 034 277 j d n 177
0010100 377 d h 032 032 032 032 273 d K 024 \n 277 \t \0 \0
0010120 020 001 _ 020 g \0 \0 \n \0 \0 221 h 200 i 255 O
0010140 020 _ 016 277 N 265 \r O 016 h 032 ^ 275 L 002 \
0010160 260 230 O 016 & 276 260 367 001 020 \0 ( 2 1 5 Q
0010200 H A S D E F 2 0 3 Q M E N
0010220 U 1 3 3 Q F O R M A T 1 3
0010240 0 Q D I S C R I M I N A T O R
0010260 - N A M E 4 1 Q M E T H O D
0010300 - S A V E - N A M E 3 2 Q D
0010320 I S C R I M I N A T O R - M E T
0010340 H O D S 4 D I S C R I M I N
0010360 A T O R - P ) \r ( 2 1 2 Q M E
0010400 T H O D S 1 5 4 Q D E F A U
0010420 L T M E N U H E L D F N 1 4 5
0010440 Q C L R P R O M P T 1 1 1 Q
0010460 004 003 M E N U T Y P E # 1 7 Q
0010500 D I S C R I M I N A T O R ) \r
0010520 ( 1 2 4 Q " ~ A m e t h o
0010540 d s " ) \r M E T H O D - S A V E
0010560 - N A M E D 1 \r ( L ( 1 A
0010600 R G L I S T 0 M E T H O D )
0010620 F 3 L A M B D A - L I S T
0010640 - K E Y W O R D S ) \0 S 003 001 \0
0010660 002 @ d \t \0 \0 236 277 @ \t \0 \0 b 002 277 @
0010700 \t \0 \0 \t \0 \0 A 021 ! 002 H 003 265 \f I 022
0010720 032 k g \0 \0 017 016 020 001 Z d 003 243 d 221 h
0010740 032 001 S \n \0 \0 263 350 I J 003 226 g \0 \0 J
0010760 002 001 203 g \0 \0 i h 032 032 \n \0 \0 271 H 002
0011000 X 260 312 \0 ( 1 1 3 Q \ N C O N C
0011020 2 6 4 Q M E M B 2 4 Q D
0011040 I S C R I M I N A T O R - N A M
0011060 E 2 1 Q M E T H O D - D I S
0011100 C R I M I N A T O R 1 2 Q M
0011120 E T H O D - T Y P E D - A R G L
0011140 I S T 4 M E T H O D - P ) \r
0011160 ( 1 0 4 Q ~ 7 5 Q ~ 4 3
0011200 Q P A C K ) \r ( ) \r R E C O R
0011220 D - D E F I N E R D 1 \r ( L
0011240 ( 2 A R G 1 C O N T E X T
0011260 0 D E F I N E R - F O R M )
0011300 ) \0 > 002 \0 \0 003 @ 002 001 d 222 d 003 220
0011320 001 021 021 001 A Y d g \0 \0 360 231 277 H g \0
0011340 \0 @ \v \0 \0 020 g \0 \0 360 264 017 H B \n \0
0011360 \0 g \0 \0 @ \v \0 \0 020 g \0 \0 I o \0 \0
0011400 \0 \f \0 \0 020 \0 ( 7 3 Q E C A S E
0011420 - F A I L 5 7 Q S A V E P U
0011440 T 5 0 Q M E T H O D - S A V
0011460 E - N A M E 3 4 Q S A V E P
0011500 U T ) \r ( 6 3 Q C O N T E X T
0011520 5 3 Q M E T H O D S 4 0 Q
0011540 D E F M E T H 3 0 Q S T R
0011560 U C T U R E S 2 1 Q N D E F
0011600 S T R U C T ) \r ( 7 0 Q ( N
0011620 D E F S T R U C T D E F M E T
0011640 H ) ) \r ( F I L E P K G T Y P E
0011660 ( Q U O T E M E T H O D S )
0011700 ( Q U O T E G E T D E F )
0011720 ( Q U O T E G E T D E F - M E
0011740 T H O D ) ( Q U O T E H A S
0011760 D E F ) ( Q U O T E H A S D
0012000 E F - M E T H O D ) \r ( Q U O
0012020 T E D E S C R I P T I O N )
0012040 " C o m m o n L o o p s m e
0012060 t h o d s " ) \r ( P U T P R O P
0012100 S D I S C R I M I N A T O R
0012120 P R O P T Y P E I G N O R E )
0012140 \r ( P U T P R O P S M E T H O
0012160 D S P R O P T Y P E M E T H
0012200 O D S ) \r M Y - B A S I C - D I
0012220 S C R I M I N A T O R - P R I N
0012240 T - F U N C T I O N D 1 \r ( L
0012260 ( 2 D E P T H 1 S T R E
0012300 A M 0 D I S C R I M I N A T
0012320 O R ) ) \0 016 \0 \0 \0 003 @ A B @ \t
0012340 \0 \0 h 032 \f \0 \0 020 \0 ( 1 3 Q N A
0012360 M E D - O B J E C T - P R I N T
0012400 - F U N C T I O N 6 M E T H
0012420 O D - C O M B I N A T I O N - T
0012440 Y P E ) \r N I L \r ( ) \r M Y - B
0012460 A S I C - M E T H O D - P R I N
0012500 T - F U N C T I O N D 1 \r ( L
0012520 ( 2 D E P T H 1 S T R E
0012540 A M 0 M E T H O D ) P 0
0012560 * P R I N T - L E V E L * F
0012600 1 * P R I N T - L E V E L *
0012620 ) \0 N 001 001 \0 003 Q 3 020 264 005 Q k 325
0012640 021 001 \0 o \0 \0 \0 A \n \0 \0 A o \0 \0 \0
0012660 @ \t \0 \0 \t \0 \0 \t \0 \0 @ \t \0 \0 d 222
0012700 \t \0 \0 @ \t \0 \0 @ \t \0 \0 \r 006 \0 \0 o
0012720 \0 \0 \0 A \n \0 \0 @ A \n \0 \0 o \0 \0 \0
0012740 A \n \0 \0 020 \0 ( 1 1 3 Q P R I N
0012760 C 1 0 3 Q P R I N T I N G -
0013000 R A N D O M - T H I N G - I N T
0013020 E R N A L 7 6 Q P R I N C
0013040 6 6 Q F O R M A T 6 2 Q U
0013060 N P A R S E - T Y P E - S P E C
0013100 I F I E R S 5 6 Q M E T H O
0013120 D - O P T I O N S 5 2 Q D I
0013140 S C R I M I N A T O R - N A M E
0013160 4 5 Q M E T H O D - D I S C
0013200 R I M I N A T O R 4 1 Q C A
0013220 P I T A L I Z E - W O R D S 3
0013240 6 Q C L A S S - N A M E 3 3
0013260 Q C L A S S - O F 2 2 Q P
0013300 R I N C ) \r N I L \r ( 1 0 7 Q
0013320 " > " 7 2 Q " " 2 7 Q
0013340 " ~ A ~ S ~ : S ~ : S "
0013360 1 6 Q " # < " ) \r ( M O V D
0013400 ( Q U O T E M Y - B A S I C
0013420 - D I S C R I M I N A T O R - P
0013440 R I N T - F U N C T I O N ) (
0013460 M E T H O D - F U N C T I O N
0013500 ( F I N D - M E T H O D ( G E
0013520 T ( Q U O T E \r P R I N T -
0013540 I N S T A N C E ) ( Q U O T E
0013560 D I S C R I M I N A T O R ) )
0013600 ( L I S T ( C L A S S - N A
0013620 M E D ( Q U O T E B A S I C
0013640 - D I S C R I M I N A T O R ) )
0013660 ) ) ) ) \r ( M O V D ( Q U O T
0013700 E M Y - B A S I C - M E T H O
0013720 D - P R I N T - F U N C T I O N
0013740 ) ( M E T H O D - F U N C T I
0013760 O N ( F I N D - M E T H O D
0014000 ( G E T ( Q U O T E P R I N
0014020 T - I N S T A N C E ) \r ( Q U
0014040 O T E D I S C R I M I N A T O
0014060 R ) ) ( L I S T ( C L A S S
0014100 - N A M E D ( Q U O T E B A
0014120 S I C - M E T H O D ) ) ) ) ) )
0014140 \r ( P U T P R O P S P C L - E
0014160 N V I R O N M E N T F I L E T
0014200 Y P E C O M P I L E - F I L E
0014220 ) \r N I L \r
0014226