$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>HASHBUFFER.LCOM!1 0000000 ( D E F I N E - F I L E - I N F 0000020 O 036 R E A D T A B L E " I N 0000040 T E R L I S P " 036 P A C K A G 0000060 E " I N T E R L I S P " ) \r ( 0000100 F I L E C R E A T E D " 1 5 - 0000120 S e p - 8 7 1 1 : 2 6 : 2 4 " 0000140 ( " c o m p i l e d o n " 0000160 | { M C S : M C S : S T A N F 0000200 O R D } < L A N E > H A S H B U 0000220 F F E R . ; 6 | ) \r " 2 7 - A 0000240 p r - 8 7 1 6 : 4 8 : 4 9 " 0000260 b r e c o m p i l e d e x p r 0000300 s % : n o t h i n g i n " 0000320 X e r o x L i s p 1 0 - A u 0000340 g - 8 7 . . . " d a t e d 0000360 \r " 1 0 - A u g - 8 7 1 0 : 2 0000400 1 : 4 0 " ) \r ( F I L E C R E A 0000420 T E D " 1 5 - S e p - 8 7 1 0000440 1 : 2 6 : 0 6 " | { M C S : M 0000460 C S : S T A N F O R D } < L A N 0000500 E > H A S H B U F F E R . ; 6 | 0000520 6 9 1 6 c h a n g e s t o 0000540 % : ( V A R S \r H A S H B U 0000560 F F E R C O M S ) p r e v i o 0000600 u s d a t e % : " 3 - S e 0000620 p - 8 7 1 7 : 0 6 : 2 3 " | 0000640 { M C S : M C S : S T A N F O R 0000660 D } < L A N E > H A S H B U F F 0000700 E R . ; 5 | ) \r C R E A T E H A 0000720 S H B U F F E R : D 4 \r ( P 0000740 1 H A S H B U F F E R I 6 0000760 E Q U I V F N I 5 H A S 0001000 H B I T S F N I 4 O V E R 0001020 F L O W I 3 % # E N T R I 0001040 E S I 2 I T E M L E N G T 0001060 H I 1 V A L U E T Y P E 0001100 I 0 F I L E ) \0 6 002 \0 \0 \a 0001120 021 020 \0 @ A B C \f \0 \0 270 C 265 005 ` \0 0001140 \0 D E F \f \0 \0 H h d 032 032 032 022 021 001 0001160 001 I 002 002 I 002 001 l 002 \n \0 \0 g \0 \0 \n 0001200 \0 \0 030 I 020 \0 ( 4 9 G E T F I L 0001220 E I N F O 4 3 E L T 2 2 0001240 H A S H A R R A Y 9 C R E A 0001260 T E H A S H F I L E ) \r ( 4 6 0001300 A C C E S S 1 6 H A S H F I 0001320 L E D E F A U L T S I Z E ) \r ( 0001340 ) \r O P E N H A S H B U F F E R 0001360 : D 4 \r ( P 0 H A S H B U 0001400 F F E R I 5 E Q U I V F N 0001420 I 4 H A S H B I T S F N 0001440 I 3 O V E R F L O W I 2 0001460 M I N K E Y S I 1 A C C 0001500 E S S I 0 F I L E ) \0 6 0001520 001 \0 \0 006 h @ A \n \0 \0 h d 032 032 032 021 0001540 001 \0 H B 265 \n d 002 001 l 004 \n \0 \0 C D 0001560 E \f \0 \0 030 H 002 002 H 002 001 l 002 \n \0 \0 0001600 g \0 \0 \n \0 \0 030 H 020 \0 ( 4 9 G E 0001620 T F I L E I N F O 4 3 E L T 0001640 3 1 H A S H A R R A Y 2 5 0001660 E L T 5 O P E N H A S H F 0001700 I L E ) \r ( 4 6 A C C E S S ) 0001720 \r ( ) \r C L O S E H A S H B U F 0001740 F E R : D 4 \r ( I 1 F I L 0001760 E O N L Y ? I 0 H A S H B 0002000 U F F E R ) \0 030 \0 \0 \0 002 @ 002 001 0002020 g \0 \0 \n \0 \0 @ 002 001 \t \0 \0 277 A 243 @ 0002040 h 030 277 020 \0 ( 1 4 C L O S E H A 0002060 S H F I L E 8 H A S H F I L 0002100 E P R O P ) \r ( 5 N A M E ) \r 0002120 ( ) \r G E T H A S H B U F F E R 0002140 : D 4 \r ( P 0 V A L U E 0002160 I 1 H A S H B U F F E R I 0002200 0 K E Y ) \0 6 001 \0 \0 002 021 020 0002220 \0 ` \0 \0 @ A 001 \n \0 \0 X 360 221 h 020 H 0002240 265 027 @ h A 002 001 g \0 \0 \f \0 \0 X 230 @ 0002260 H A 001 \v \0 \0 H 020 @ ` \0 \0 A 001 \v \0 0002300 \0 h 020 \0 ( 5 0 P U T H A S H 0002320 3 9 P U T H A S H 3 0 L O 0002340 O K U P H A S H F I L E 1 1 0002360 G E T H A S H ) \r ( 4 5 E M P 0002400 T Y H A S H E N T R Y M A R K E 0002420 R 2 7 R E T R I E V E 5 0002440 E M P T Y H A S H E N T R Y M A 0002460 R K E R ) \r ( ) \r P U T H A S H 0002500 B U F F E R : D 4 \r ( I 2 0002520 H A S H B U F F E R I 1 V 0002540 A L U E I 0 K E Y ) \0 033 0002560 \0 \0 \0 003 B 002 002 001 g \0 \0 360 250 @ A B 0002600 002 001 \v \0 \0 277 @ A B 001 \v \0 \0 020 \0 ( 0002620 2 4 P U T H A S H 1 6 P U 0002640 T H A S H F I L E ) \r ( 6 I N 0002660 P U T ) \r ( ) \r H A S H A R R A 0002700 Y . T O . H A S H F I L E A 0 0 0002720 0 1 A 0 0 0 2 : D 4 \r ( I 1 0002740 K E Y I 0 V A L U E F 0002760 0 T E S T F N F 1 H A 0003000 S H F I L E F 2 H A S H A 0003020 R R A Y ) \0 025 \0 003 \0 002 P 232 A @ 0003040 R Q l 004 P 017 016 264 \b A @ Q \v \0 \0 020 0003060 \0 ( 1 8 P U T H A S H F I L E 0003100 ) \r N I L \r ( ) \r H A S H A R R 0003120 A Y . T O . H A S H F I L E A 0 0003140 0 0 1 : D 4 \r ( N A M E S I 0003160 : : * U N W I N D - P R O T E C 0003200 T * I 0 S I : : * C L E A 0003220 N U P - F O R M S * F 0 S 0003240 I : : * R E S E T F O R M S * 0003260 F 1 H A S H F I L E F 2 0003300 R E O P E N F 3 H A S H 0003320 A R R A Y ) \0 032 \0 004 \0 001 g \0 \0 0003340 Q R h 032 032 032 h d 032 032 P 032 c \0 S g 0003360 \0 \0 \n \0 \0 020 \0 ( 2 3 M A P H A 0003400 S H ) \r ( 2 0 H A S H A R R A 0003420 Y . T O . H A S H F I L E A 0 0 0003440 0 1 A 0 0 0 2 2 C L O S E H 0003460 A S H F I L E ) \r ( ) \r H A S H 0003500 A R R A Y . T O . H A S H F I L 0003520 E : D 4 \r ( P 2 S I : : * 0003540 R E S E T F O R M S * P 1 0003560 L I S P X H I S T P 0 R E 0003600 O P E N I 2 T E S T F N 0003620 I 1 H A S H F I L E I 0 0003640 H A S H A R R A Y F 3 L 0003660 I S P X H I S T ) \0 ; 003 001 \0 003 0003700 021 020 \0 A \t \0 \0 222 i 270 217 A h d @ g 0003720 \0 \0 \n \0 \0 \f \0 \0 b 002 277 S 021 021 002 g 0003740 \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 \t \0 \0 023 0003760 H 221 A 020 A k \n \0 \0 020 \0 ( 5 6 E 0004000 L T 4 6 C L : V A L U E S - 0004020 L I S T 4 2 S I : : R E S E 0004040 T U N W I N D 3 9 \ M V L I 0004060 S T 3 6 H A S H A R R A Y . 0004100 T O . H A S H F I L E A 0 0 0 1 0004120 2 3 C R E A T E H A S H F I 0004140 L E 2 0 H A R R A Y P R O P 0004160 6 H A S H F I L E P ) \r ( 3 0004200 3 S I : : R E S E T U N W I N 0004220 D 1 7 N U M K E Y S ) \r ( ) 0004240 \r H A S H F I L E . T O . H A S 0004260 H A R R A Y A 0 0 0 1 A 0 0 0 2 0004300 : D 4 \r ( I 1 V A L U E 0004320 I 0 K E Y F 0 T E S T 0004340 F N F 1 H A S H A R R A Y 0004360 F 2 H A S H F I L E ) \0 0004400 025 \0 003 \0 002 P 232 @ A R Q l 004 P 017 016 0004420 264 \b @ A Q \v \0 \0 020 \0 ( 1 8 P U 0004440 T H A S H ) \r N I L \r ( ) \r H A 0004460 S H F I L E . T O . H A S H A R 0004500 R A Y A 0 0 0 1 : D 4 \r ( N A 0004520 M E S I : : * U N W I N D - P 0004540 R O T E C T * I 0 S I : : 0004560 * C L E A N U P - F O R M S * 0004600 F 0 H A S H F I L E F 1 0004620 S I : : * R E S E T F O R M S 0004640 * F 2 R E O P E N ) \0 032 0004660 \0 003 \0 001 g \0 \0 P R h 032 032 032 h d 032 0004700 032 Q 032 c 002 P g \0 \0 \n \0 \0 020 \0 ( 2 0004720 3 M A P H A S H F I L E ) \r ( 0004740 2 0 H A S H F I L E . T O . H 0004760 A S H A R R A Y A 0 0 0 1 A 0 0 0005000 0 2 2 C L O S E H A S H F I 0005020 L E ) \r ( ) \r H A S H F I L E . 0005040 T O . H A S H A R R A Y : D 4 0005060 \r ( P 2 S I : : * R E S E T 0005100 F O R M S * P 1 L I S P X 0005120 H I S T P 0 R E O P E N 0005140 I 2 T E S T F N I 1 H 0005160 A S H A R R A Y I 0 H A S 0005200 H F I L E F 3 L I S P X H 0005220 I S T ) \0 : 003 001 \0 003 021 020 \0 @ \t 0005240 \0 \0 222 i 270 211 @ g \0 \0 \n \0 \0 b \0 277 0005260 A 253 @ l 004 \n \0 \0 \t \0 \0 b 002 277 S 021 0005300 021 002 g \0 \0 \t \0 \0 \t \0 \0 \b \0 \0 277 \t 0005320 \0 \0 A 020 \0 ( 5 4 C L : V A L U 0005340 E S - L I S T 5 0 S I : : R 0005360 E S E T U N W I N D 4 7 \ M 0005400 V L I S T 4 4 H A S H F I L 0005420 E . T O . H A S H A R R A Y A 0 0005440 0 0 1 3 1 H A S H A R R A Y 0005460 2 8 E L T 1 7 O P E N H 0005500 A S H F I L E 6 H A S H F I 0005520 L E P ) \r ( 4 1 S I : : R E S 0005540 E T U N W I N D 1 4 I N P U 0005560 T ) \r ( ) \r ( P R E T T Y C O M 0005600 P R I N T H A S H B U F F E R 0005620 C O M S ) \r ( R P A Q Q H A S 0005640 H B U F F E R C O M S ( ( F N 0005660 S C R E A T E H A S H B U F F 0005700 E R O P E N H A S H B U F F E 0005720 R C L O S E H A S H B U F F E 0005740 R G E T H A S H B U F F E R 0005760 \r P U T H A S H B U F F E R ) 0006000 ( I N I T V A R S ( E M P T Y 0006020 H A S H E N T R Y M A R K E R 0006040 ( Q U O T E * * E M P T Y H A 0006060 S H E N T R Y * * ) ) ) ( G L 0006100 O B A L V A R S \r E M P T Y H 0006120 A S H E N T R Y M A R K E R ) 0006140 ( F N S H A S H A R R A Y . T 0006160 O . H A S H F I L E H A S H F 0006200 I L E . T O . H A S H A R R A Y 0006220 ) ( D E C L A R E % : D O N 0006240 T C O P Y ( R E C O R D S \r 0006260 H A S H B U F F E R ) ) ( F I 0006300 L E S H A S H ) ) ) \r ( R P A 0006320 Q ? E M P T Y H A S H E N T R 0006340 Y M A R K E R ( Q U O T E * 0006360 * E M P T Y H A S H E N T R Y * 0006400 * ) ) \r ( F I L E S L O A D H 0006420 A S H ) \r ( P U T P R O P S H 0006440 A S H B U F F E R C O P Y R I 0006460 G H T ( " S t a n f o r d U 0006500 n i v e r s i t y " 1 9 8 5 0006520 1 9 8 6 1 9 8 7 ) ) \r N I L \r 0006540