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