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