$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDOC.DCOM!3
0000000 ( F I L E C R E A T E D " 1
0000020 - O c t - 8 6 1 7 : 5 3 : 0 4
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 > C M L D O C
0000120 . ; 3 ) \r " 3 0 - S e p - 8 6
0000140 2 1 : 3 5 : 3 8 " i n " X
0000160 e r o x L i s p 2 9 - S e p
0000200 - 8 6 . . . " d a t e d "
0000220 2 9 - S e p - 8 6 1 5 : 4 1 :
0000240 0 4 " ) \r ( F I L E C R E A T E
0000260 D " 1 - O c t - 8 6 1 7 :
0000300 5 2 : 4 3 " { E R I S } < L I
0000320 S P C O R E > S O U R C E S > C
0000340 M L D O C . ; 3 4 5 2 0 c h
0000360 a n g e s t o : ( F U N C T
0000400 I O N S \r P R O P - N A M E -
0000420 F R O M - D O C - T Y P E D O
0000440 C U M E N T A T I O N H A S H
0000460 - T A B L E - F O R - D O C - T
0000500 Y P E ) ( C O M M A N D S D
0000520 O C ) ( S E T F S D O C U M
0000540 E N T A T I O N ) ( \r V A R S
0000560 C M L D O C C O M S ) ( V A
0000600 R I A B L E S * D O C - S T R
0000620 I N G - T Y P E - M A P * * D
0000640 O C U M E N T A T I O N - H A S
0000660 H - T A B L E * ) ( F N S \r
0000700 P R O P - N A M E - F R O M - D
0000720 O C - T Y P E S E T - D O C U
0000740 M E N T A T I O N ) p r e v i
0000760 o u s d a t e : " 2 9 - M a
0001000 y - 8 6 2 3 : 2 3 : 5 2 " \r
0001020 { E R I S } < L I S P C O R E >
0001040 S O U R C E S > C M L D O C . ;
0001060 2 ) \r ( R P A Q Q C M L D O C
0001100 C O M S ( ( * ; ; ; " D o
0001120 c u m e n t a t i o n s t r i
0001140 n g s " ) ( V A R I A B L E S
0001160 * D O C U M E N T A T I O N -
0001200 H A S H - T A B L E * ) ( F U
0001220 N C T I O N S \r D O C U M E N
0001240 T A T I O N H A S H - T A B L
0001260 E - F O R - D O C - T Y P E S
0001300 E T - D O C U M E N T A T I O N
0001320 ) ( S E T F S D O C U M E N
0001340 T A T I O N ) ( C O M M A N D
0001360 S D O C ) ( * ; ; \r " U
0001400 s e t h e p r o p e r c o
0001420 m p i l e r " ) ( P R O P F
0001440 I L E T Y P E C M L D O C ) )
0001460 ) \r ( P R O C L A I M ( Q U O
0001500 T E ( G L O B A L * D O C U
0001520 M E N T A T I O N - H A S H - T
0001540 A B L E * ) ) ) \r ( O R ( B O
0001560 U N D P ( Q U O T E * D O C
0001600 U M E N T A T I O N - H A S H -
0001620 T A B L E * ) ) ( S E T Q *
0001640 D O C U M E N T A T I O N - H A
0001660 S H - T A B L E * ( L E T (
0001700 ( H T ( \r M A K E - H A S H -
0001720 T A B L E : T E S T ( Q U O
0001740 T E E Q ) : S I Z E 1 0
0001760 : R E H A S H - S I Z E 5 ) )
0002000 ) ( M A P C ( Q U O T E (
0002020 T Y P E S E T F S T R U C T
0002040 U R E \r C L : F U N C T I O N
0002060 V A R I A B L E ) ) ( F U N
0002100 C T I O N ( L A M B D A ( T
0002120 Y P E ) ( L E T * ( ( A 1 0
0002140 0 1 T Y P E ) ( A 1 0 0 2
0002160 H T ) ( A 1 0 0 4 ( M A K E
0002200 - H A S H - T A B L E \r : T E
0002220 S T ( Q U O T E C L : E Q U
0002240 A L ) : S I Z E 5 0 : R E
0002260 H A S H - S I Z E 5 0 ) ) )
0002300 ( C L : P U T H A S H A 1 0 0
0002320 1 A 1 0 0 2 A 1 0 0 4 ) ) )
0002340 ) ) H T ) ) ) \r D O C U M E N
0002360 T A T I O N D 1 \r ( L ( 1
0002400 D O C - T Y P E 0 N A M E )
0002420 ) \0 \n \0 \0 \0 002 @ A \t \0 \0 \n \0 \0
0002440 020 \0 ( 7 G E T H A S H 4 H
0002460 A S H - T A B L E - F O R - D O
0002500 C - T Y P E ) \r N I L \r ( ) \r H
0002520 A S H - T A B L E - F O R - D O
0002540 C - T Y P E D 1 \r ( L ( 0
0002560 D O C - T Y P E ) F 3 * D
0002600 O C U M E N T A T I O N - H A S
0002620 H - T A B L E * ) \0 3 003 001 \0 001
0002640 @ S \n \0 \0 265 , o \0 \0 \0 @ \n \0 \0 277
0002660 @ 021 ! 002 S 272 g \0 \0 g \0 \0 g \0 \0 l
0002700 2 g \0 \0 l 2 \r 006 \0 \0 271 H J I \v \0
0002720 \0 020 \0 ( 6 0 Q C L : P U T H A
0002740 S H 5 1 Q M A K E - H A S H
0002760 - T A B L E 1 6 Q W A R N
0003000 4 G E T H A S H ) \r ( 4 3 Q
0003020 : R E H A S H - S I Z E 3 6 Q
0003040 : S I Z E 3 3 Q C L : E Q
0003060 U A L 3 0 Q : T E S T ) \r (
0003100 1 2 Q " T h e d o c u m e
0003120 n t a t i o n t y p e % " ~
0003140 S % " w a s n o t p r e v
0003160 i o u s l y k n o w n " ) \r S
0003200 E T - D O C U M E N T A T I O N
0003220 D 1 \r ( L ( 2 N E W - S T
0003240 R I N G 1 D O C - T Y P E
0003260 0 N A M E ) ) \0 023 003 \0 \0 003 @
0003300 021 ! 002 A \t \0 \0 271 B 272 H I J \v \0 \0
0003320 020 \0 ( 2 0 Q C L : P U T H A S
0003340 H 7 H A S H - T A B L E - F
0003360 O R - D O C - T Y P E ) \r N I L
0003400 \r ( ) \r ( R E M P R O P ( Q U
0003420 O T E D O C U M E N T A T I O
0003440 N ) ( Q U O T E S E T F - I
0003460 N V E R S E ) ) \r D O C U M E N
0003500 T A T I O N - s e t f - e x p a
0003520 n d e r D 1 \r ( P 1 1 Q N
0003540 E W - S T R I N G P 5 D O
0003560 C U M E N T A T I O N - s e t f
0003600 - f o r m P 4 D U M M I E
0003620 S P 3 X I 0 A C C E
0003640 S S - F O R M ) \0 l \n \0 \0 001 021
0003660 @ 003 @ 260 030 d 001 273 \b \0 \0 270 I 221 h 200
0003700 i 224 H h 032 Z 202 I H & 271 002 003 265 350 J
0003720 022 021 A \b @ 001 L 032 275 \b \0 \0 021 001 \t L
0003740 @ 002 O 022 h 032 M 002 _ 020 001 _ 016 277 O 020
0003760 002 001 276 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0004000 O 016 N O 022 h 032 032 032 032 h 032 032 032 O 022
0004020 h 032 032 032 M \r 005 \0 \0 020 \0 ( 1 5 1 Q
0004040 V A L U E S 5 4 Q G E N S
0004060 Y M 1 3 Q G E N S Y M ) \r (
0004100 1 2 0 Q S E T - D O C U M E N
0004120 T A T I O N 1 1 1 Q C L : W
0004140 H E N 1 0 6 Q P R O G N ) \r
0004160 ( 1 1 5 Q ( F B O U N D P
0004200 ( Q U O T E S E T - D O C U M
0004220 E N T A T I O N ) ) ) \r ( P U T
0004240 P R O P S D O C U M E N T A T
0004260 I O N S E T F - M E T H O D -
0004300 E X P A N D E R D O C U M E N
0004320 T A T I O N - s e t f - e x p a
0004340 n d e r ) \r e x e c - D O C D
0004360 1 \r ( L ( 1 $ $ M A C R O -
0004400 E N V 0 $ $ M A C R O - F O
0004420 R M ) ) \0 003 \0 \0 002 @ 002 021 ! 002
0004440 H 001 271 H 002 265 022 g \0 \0 272 I J \n \0 \0
0004460 \t \0 \0 \b \0 \0 020 001 260 362 \0 ( 3 2 Q
0004500 V A L U E S 2 7 Q P R I N C
0004520 2 4 Q D O C U M E N T A T I
0004540 O N ) \r ( 1 6 Q C L : F U N C
0004560 T I O N ) \r ( ) \r ( S E T Q E
0004600 X E C - C O M M A N D S ( A D
0004620 J O I N ( Q U O T E ( D O C
0004640 e x e c - D O C : E V A L
0004660 N I L ) ) E X E C - C O M M A
0004700 N D S ) ) \r ( P U T P R O P S
0004720 C M L D O C F I L E T Y P E
0004740 C O M P I L E - F I L E ) \r ( P
0004760 U T P R O P S C M L D O C C
0005000 O P Y R I G H T ( " X e r o x
0005020 C o r p o r a t i o n " 1 9
0005040 8 6 ) ) \r N I L \r
0005051