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