$ od -c -N 50000 [eris]<LispCore>PAVCOMPILER>ZAP.DCOM!3
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " X C
0000040 L " 247 P A C K A G E " I N T
0000060 E R L I S P " ) \r ( f i l e c r
0000100 e a t e d " 1 8 - O c t - 8 6
0000120 0 2 : 1 7 : 3 1 " ( " c o m
0000140 p i l e d o n " { e r i s
0000160 } < l i s p c o r e > p a v c o
0000200 m p i l e r > z a p . \ ; 3 )
0000220 \r " 1 4 - O c t - 8 6 2 1 : 0
0000240 6 : 0 5 " " C O M P I L E - F
0000260 I L E d " | i n | " X e r o
0000300 x L i s p 1 4 - O c t - 8 6
0000320 . . . " | d a t e d | " 1
0000340 4 - O c t - 8 6 2 2 : 2 4 : 4
0000360 7 " ) \r ( f i l e c r e a t e d
0000400 " 1 8 - O c t - 8 6 0 2 : 1
0000420 6 : 4 3 " { e r i s } < l i s
0000440 p c o r e > p a v c o m p i l e
0000460 r > z a p . \ ; 3 7 7 1 7 |
0000500 c h a n g e s | | t o : | (
0000520 f u n c t i o n s \r c o m p i
0000540 l e r : : z a p ) | p r e v i
0000560 o u s | | d a t e : | " 1 4
0000600 - O c t - 8 6 2 3 : 1 9 : 3 3
0000620 " { e r i s } < l i s p c o r
0000640 e > p a v c o m p i l e r > z a
0000660 p . \ ; 2 ) \r ( r p a q q z a
0000700 p c o m s ( ( f u n c t i o n
0000720 s c o m p i l e r : : z a p
0000740 c o m p i l e r : : f i l e s -
0000760 i n t o - p a c k a g e ) ( f
0001000 n s m u t a t e - b y ) ( a
0001020 p p e n d v a r s ( \r | \ \ \
0001040 \ c o m m a n d . t a b l e . s
0001060 p e c | ( ^ z ( m u t a t e
0001100 - b y c o m p i l e r : : z a
0001120 p ) ( " Z a p \t \t C - Z " \r
0001140 " C o n v e r t a l l i n a
0001160 c c e s s a b l e s y m b o l
0001200 s i n t h e s e l e c t i
0001220 o n . " ) ) ) ) ( p r o p f
0001240 i l e t y p e z a p ) ) ) \r z
0001260 a p a 0 0 0 1 d 1 \r ( l ( 0
0001300 c o m p i l e r : : f o r m )
0001320 f 1 a 1 5 7 6 f 2 c
0001340 o m p i l e r : : * z a p - l i
0001360 s t * f 3 c o m m e n t f
0001400 l g ) \0 _ 001 003 \0 001 @ 021 001 \0 H d
0001420 303 \0 \0 262 024 277 @ 001 S 360 263 L @ 001 k Q
0001440 016 @ 002 k Q 016 020 \t \0 \0 263 < H 303 \0 \0
0001460 264 7 @ 301 002 311 \0 g \0 \0 ' 221 h 200 i 264
0001500 ( @ 301 002 311 \0 g \0 \0 ' 221 h 200 i 264 031
0001520 @ \t \0 \0 \t \0 \0 \t \0 \0 001 @ 360 247 @ R
0001540 \n \0 \0 c 004 020 h 020 \0 ( 8 8 c l :
0001560 a d j o i n 7 9 \ \ m v l i
0001600 s t 7 6 c l : f i n d - s y
0001620 m b o l 7 3 c l : s y m b o
0001640 l - n a m e 3 1 c l : k e y
0001660 w o r d p ) \r ( 6 2 p r e t t
0001700 y w r a p p e r 4 7 c l i s
0001720 p w o r d 3 7 l i t a t o m
0001740 8 l i s t p ) \r ( ) \r c o m
0001760 p i l e r : : z a p d 1 \r ( l
0002000 ( 0 c o m p i l e r : : f o
0002020 r m ) p 1 a 1 5 7 6 p
0002040 0 c o m p i l e r : : * z a p
0002060 - l i s t * ) \0 | \a \0 \0 001 021 @
0002100 003 g \0 \0 Y @ k I 016 H 241 @ 020 ` \0 \0
0002120 037 d H 024 004 277 d o \0 \0 \0 024 " 277 d g
0002140 \0 \0 024 277 d g \0 \0 024 034 277 j d n 177
0002160 377 d h 032 032 032 032 272 d J 024 \n 277 \t \0 \0
0002200 [ 241 h 200 i 227 K H \n \0 \0 X 260 276 021 0
0002220 006 H 260 035 d 001 d \t \0 \0 \t \0 \0 032 274 M
0002240 221 h 200 i 224 L h 032 ^ 202 M L & 275 002 003
0002260 265 344 N 022 @ \n \0 \0 020 \0 ( 1 2 1 c
0002300 l : s u b l i s 9 4 c l : i
0002320 n t e r n 9 1 c l : s y m b
0002340 o l - n a m e 7 6 c l : d e
0002360 l e t e 6 5 m e n u ) \r ( 4
0002400 2 d e f a u l t m e n u h e l
0002420 d f n 3 5 c l r p r o m p t
0002440 1 7 | 004 003 M E N U T Y P E #
0002460 | 5 z a p a 0 0 0 1 ) \r (
0002500 2 8 ( : e s c a p e t ) ) \r
0002520 c o m p i l e r : : f i l e s -
0002540 i n t o - p a c k a g e d 1 \r
0002560 ( l ( 0 | - a r g s - | )
0002600 p 2 8 l i t a t o m - p a c
0002620 k a g e - c o n v e r s i o n -
0002640 t a b l e f 2 9 f i l e p
0002660 k g t y p e s ) 001 341 035 001 002 \0 e
0002700 021 001 \0 k a 021 361 020 021 260 033 H l 002 273 272
0002720 K d J 363 262 p 277 o \0 \0 \0 274 H l 002 276
0002740 275 N d M 363 262 s 277 h _ 016 277 H l 002 _
0002760 022 277 _ 020 277 O 022 d O 020 363 262 q 277 h _
0003000 024 277 H l 002 _ 030 277 _ 026 277 O 030 d O 026
0003020 363 262 r 277 o \0 \0 \0 _ 032 277 H l 002 _ 036
0003040 277 _ 034 277 O 036 d O 034 363 262 p 277 o \0 \0
0003060 \0 _ 277 I _ " 265 z L \t \0 \0 242 261 \0
0003100 201 h 260 ~ a g \0 \0 360 225 K k 330 a 260 215
0003120 K l 002 324 [ 261 377 | a g \0 \0 360 225 N k
0003140 330 a 260 207 N l 002 324 ^ 261 377 y a g \0 \0
0003160 360 226 O 022 k 330 a 260 210 O 022 l 002 324 _ 022
0003200 261 377 w a g \0 \0 360 226 O 030 k 330 a 260 212
0003220 O 030 l 002 324 _ 030 261 377 v a g \0 \0 360 226
0003240 O 036 k 330 a 260 214 O 036 l 002 324 _ 036 261 377
0003260 x 001 g \0 \0 \n \0 \0 277 O " 002 261 377 y i
0003300 224 L \t \0 \0 274 O 024 021 001 034 I h _ . 277
0003320 _ , 265 027 023 O 016 L \n \0 \0 I _ 4 265 d
0003340 I _ 6 d 222 261 \0 255 020 001 _ . 277 W : h
0003360 _ * 277 _ ( 265 \a O , 002 260 326 001 _ * 277
0003400 O . O * \n \0 \0 h _ & 277 _ $ 265 \a O
0003420 ( 002 260 341 001 _ & 004 l 004 360 262 " L O &
0003440 \t \0 \0 360 221 h 200 i 262 025 O & \t \0 \0 277
0003460 O & \t \0 \0 277 O & L \n \0 \0 277 O $ 002
0003500 260 313 001 _ 2 277 g \0 \0 O g \0 \0 g \0
0003520 \0 L \t \0 \0 O 016 264 \n g \0 \0 O 016 032 h
0003540 032 g \0 \0 g \0 \0 \t \0 \0 L \t \0 \0 \n \0
0003560 \0 032 h 032 \n \0 \0 032 032 h 032 032 032 032 _ 0
0003600 277 O 2 g \0 \0 O 0 \v \0 \0 277 O 4 002 261
0003620 377 M 001 O 032 \n \0 \0 277 O 6 002 261 377 E \0
0003640 ( 4 7 2 m a k e f i l e 4 5
0003660 9 p u t p r o p 4 3 9 \ \
0003700 a p p e n d 2 4 3 3 c l : m
0003720 a p c a r 4 3 0 c l : p a c
0003740 k a g e - u s e - l i s t 4 2
0003760 6 c l : s y m b o l - f u n c
0004000 t i o n 4 0 5 c l : p a c k
0004020 a g e - n a m e 3 8 0 i m p
0004040 o r t 3 7 3 c o n v e r t -
0004060 l i t a t o m 3 6 7 c l : u
0004100 n i n t e r n 3 5 5 c l : s
0004120 y m b o l - p a c k a g e 3 2
0004140 7 f i l e c o m s l s t 2 8
0004160 3 e x p o r t 2 6 1 c l :
0004200 f i n d - p a c k a g e 2 4 8
0004220 l o a d ? 1 2 5 c l : p a
0004240 c k a g e p ) \r ( 4 5 4 m a k
0004260 e f i l e - e n v i r o n m e n
0004300 t 4 2 3 c l : p a c k a g e
0004320 - n a m e 4 2 0 : u s e 4
0004340 1 2 : e x p o r t 4 0 1 d
0004360 e f p a c k a g e 3 9 8 : p
0004400 a c k a g e 3 9 3 : r e a d
0004420 t a b l e 2 4 5 p r o p 2
0004440 2 2 : r e a d t a b l e 1 9
0004460 9 : m a k e - o p t i o n s
0004500 1 7 6 : c o n v e r s i o n s
0004520 1 5 6 : e x p o r t s 1 3
0004540 6 : p a c k a g e ) \r ( 1 1
0004560 3 " X C L " 8 8 ( c o m p
0004600 i l e r : : n e w ) 2 7 " U
0004620 S E R " ) \r ( l e t * ( ( a 1
0004640 5 7 3 ( q u o t e c o m p i
0004660 l e r : : f i l e s - i n t o -
0004700 p a c k a g e ) ) ( a 1 5 7 4
0004720 ( q u o t e c l : f u n c t
0004740 i o n ) ) ( a 1 5 7 5 \r " M
0004760 o v e t h e s y m b o l s
0005000 i n a f i l e o r g r o
0005020 u p o f f i l e s i n t o
0005040 a p a c k a g e . " ) ) (
0005060 p r o g n ( c o n d ( ( c l
0005100 : f b o u n d p ( q u o t e
0005120 \r s e t - d o c u m e n t a t i
0005140 o n ) ) ( s e t - d o c u m e
0005160 n t a t i o n a 1 5 7 3 a 1
0005200 5 7 4 a 1 5 7 5 ) ) ) a 1 5
0005220 7 5 ) ) \r m u t a t e - b y a 0
0005240 0 0 1 d 1 \r ( n a m e e r r
0005260 o r s e t f 0 | n o d e |
0005300 f 1 | m u t a t o r | )
0005320 \0 016 \0 002 002 \0 P 006 \0 \0 311 \n k Q 017 016
0005340 h 032 020 \0 n i l \r ( 3 | E d i t
0005360 N o d e | ) \r ( ) \r m u t a t e
0005400 - b y d 1 \r ( p 4 | r e s
0005420 u l t | p 3 | n o d e |
0005440 p 2 | p o i n t | p 1
0005460 | s e l e c t i o n | p 0
0005500 | p r o m p t w i n d o w | i
0005520 2 | m u t a t o r | i 1
0005540 c h a r c o d e i 0 | c
0005560 o n t e x t | ) \0 k 005 \0 \0 003 @
0005600 006 \0 \0 311 002 \t \0 \0 021 A 004 @ 006 \0 \0 311
0005620 6 271 @ 006 \0 \0 311 2 272 I 006 \0 \0 311 \0 273
0005640 h 274 K 262 D I 006 \0 \0 311 006 g \0 \0 360 262
0005660 8 I 006 \0 \0 311 002 263 0 o \0 \0 \0 \t \0 \0
0005700 \ 265 022 H \t \0 \0 277 o \0 \0 \0 H \n \0 \0
0005720 277 260 026 001 K 006 \0 \0 311 \n 360 252 @ K L 001
0005740 @ \n \0 \0 \v \0 \0 i 020 \0 ( 1 0 3 |
0005760 \ \ \ \ r e p l a c e . n o d e
0006000 | 1 0 0 | \ \ \ \ p a r s e
0006020 . n e w | 8 0 p r i n 1 7
0006040 1 t e r p r i 6 4 m u t a
0006060 t e - b y a 0 0 0 1 8 g e t
0006100 p r o m p t w i n d o w ) \r ( 8
0006120 8 | E d i t N o d e | 5 3
0006140 | E d i t S e l e c t i o n |
0006160 4 6 | S t r u c t u r e | 4
0006200 1 | E d i t S e l e c t i o n
0006220 | 2 9 | E d i t S e l e c t
0006240 i o n | 2 2 | E d i t C o n
0006260 t e x t | 1 5 | E d i t C o
0006300 n t e x t | 3 | E d i t C o
0006320 n t e x t | ) \r ( 7 6 " E r
0006340 r o r d u r i n g m u t a t
0006360 i o n ! " 6 1 ( m u t a t e
0006400 - b y a 0 0 0 1 ) ) \r ( a p p e
0006420 n d t o v a r | \ \ \ \ c o m
0006440 m a n d . t a b l e . s p e c |
0006460 ( ^ z ( m u t a t e - b y
0006500 c o m p i l e r : : z a p ) (
0006520 " Z a p \t \t C - Z " \r " C o n
0006540 v e r t a l l i n a c c e s
0006560 s a b l e s y m b o l s i n
0006600 t h e s e l e c t i o n . "
0006620 ) ) ) \r ( p u t p r o p s z a
0006640 p f i l e t y p e c l : c o
0006660 m p i l e - f i l e ) \r ( p u t
0006700 p r o p s z a p c o p y r i
0006720 g h t ( " X e r o x C o r p
0006740 o r a t i o n " 1 9 8 6 ) ) \r
0006760 n i l \r
0006764