$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDESTRUCT.DCOM!2
0000000 ( F I L E C R E A T E D " 1 9
0000020 - J u n - 8 6 1 3 : 2 9 : 5 9
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 > L I B R A R Y > C M L D E S
0000120 T R U C T . ; 1 1 ) \r " 1 9 -
0000140 J u n - 8 6 1 2 : 4 6 : 1 9 "
0000160 " C O M P I L E - F I L E d "
0000200 i n " X e r o x L i s p
0000220 1 9 - J u n - 8 6 . . . " d
0000240 a t e d " 1 9 - J u n - 8 6
0000260 1 2 : 5 8 : 1 1 " ) \r ( F I L E
0000300 C R E A T E D " 2 5 - M a y -
0000320 8 6 0 0 : 2 1 : 2 8 " { E R
0000340 I S } < L I S P C O R E > E V A
0000360 L > C M L D E S T R U C T . ; 1
0000400 2 5 0 2 c h a n g e s t o
0000420 : ( V A R S \r C M L D E S T
0000440 R U C T C O M S ) ( P R O P S
0000460 ( C M L D E S T R U C T F I
0000500 L E T Y P E ) ) p r e v i o u
0000520 s d a t e : " 1 7 - M a y -
0000540 8 6 0 1 : 1 4 : 2 5 " \r { E
0000560 R I S } < L I S P C O R E > L I
0000600 B R A R Y > C M L D E S T R U C
0000620 T . ; 1 0 ) \r ( R P A Q Q C M
0000640 L D E S T R U C T C O M S ( (
0000660 M A C R O S D E S T R U C T U
0000700 R I N G - B I N D D E S T R U
0000720 C T U R I N G - S E T Q ) ( F
0000740 N S E X P A N D - D E S T R U
0000760 C T U R I N G - B I N D ) \r (
0001000 P R O P F I L E T Y P E C M
0001020 L D E S T R U C T ) ) ) \r e x p
0001040 a n d - D E S T R U C T U R I N
0001060 G - B I N D D 1 \r ( L ( 1
0001100 $ $ M A C R O - E N V I R O N M
0001120 E N T 0 $ $ M A C R O - F O
0001140 R M ) ) \0 033 006 \0 \0 002 @ 002 021 Q 005
0001160 H 001 271 H 002 Z 001 273 J 002 274 A 275 I K L
0001200 M \f \0 \0 020 \0 ( 3 0 Q E X P A N
0001220 D - D E S T R U C T U R I N G -
0001240 B I N D ) \r N I L \r ( ) \r ( S E
0001260 T F - M A C R O - F U N C T I O
0001300 N ( Q U O T E D E S T R U C
0001320 T U R I N G - B I N D ) ( Q U
0001340 O T E e x p a n d - D E S T R
0001360 U C T U R I N G - B I N D ) ) \r
0001400 e x p a n d - D E S T R U C T U
0001420 R I N G - S E T Q D 1 \r ( L
0001440 ( 1 $ $ M A C R O - E N V I R
0001460 O N M E N T 0 $ $ M A C R O
0001500 - F O R M ) ) \0 223 004 \0 \0 002 @ 002
0001520 021 1 003 H 001 271 H 002 001 272 I 265 004 J 020 003
0001540 251 g \0 \0 I J h 032 032 032 020 I 002 263 023 g
0001560 \0 \0 I 001 g \0 \0 J h 032 032 h 032 032 032 020
0001600 J 003 262 6 \b \0 \0 273 g \0 \0 K J h 032 032
0001620 h 032 g \0 \0 I 001 g \0 \0 K h 032 032 h 032
0001640 032 032 g \0 \0 I 002 g \0 \0 K h 032 032 h 032
0001660 032 032 h 032 032 032 032 020 g \0 \0 g \0 \0 I 001
0001700 g \0 \0 J h 032 032 h 032 032 032 g \0 \0 I 002
0001720 g \0 \0 J h 032 032 h 032 032 032 h 032 032 032 020
0001740 \0 ( 7 0 Q G E N S Y M ) \r ( 2
0001760 0 4 Q C D R 1 7 7 Q D E S
0002000 T R U C T U R I N G - S E T Q
0002020 1 6 4 Q C A R 1 5 7 Q D E
0002040 S T R U C T U R I N G - S E T Q
0002060 1 5 4 Q P R O G N 1 3 3 Q
0002100 C D R 1 2 6 Q D E S T R U
0002120 C T U R I N G - S E T Q 1 1 3
0002140 Q C A R 1 0 6 Q D E S T R
0002160 U C T U R I N G - S E T Q 7 4
0002200 Q L E T 5 0 Q C A R 4 3
0002220 Q D E S T R U C T U R I N G -
0002240 S E T Q 2 5 Q S E T Q ) \r (
0002260 ) \r ( S E T F - M A C R O - F U
0002300 N C T I O N ( Q U O T E D E
0002320 S T R U C T U R I N G - S E T Q
0002340 ) ( Q U O T E e x p a n d -
0002360 D E S T R U C T U R I N G - S E
0002400 T Q ) ) \r E X P A N D - D E S T
0002420 R U C T U R I N G - B I N D D
0002440 1 \r ( L ( 3 E N V I R O N M
0002460 E N T 2 B O D Y 1 F O R
0002500 M 0 P A T T E R N ) ) \0 8
0002520 004 \0 \0 004 \b \0 \0 021 1 003 @ H B g \0 \0
0002540 C g \0 \0 H g \0 \0 h \r \t \0 \0 \t \0 \0
0002560 Y 001 272 I 002 001 273 g \0 \0 H A h 032 032 h
0002600 032 K J h 032 \n \0 \0 032 032 020 \0 ( 6 3 Q
0002620 \ A P P E N D 2 3 3 Q \ M
0002640 V L I S T 3 0 Q P A R S E -
0002660 D E F M A C R O 2 G E N S Y
0002700 M ) \r ( 4 5 Q L E T 2 3 Q
0002720 : D O C - S T R I N G - A L L O
0002740 W E D 1 7 Q : P A T H 1 3
0002760 Q D E S T R U C T U R I N G -
0003000 B I N D ) \r ( ) \r ( P U T P R O
0003020 P S C M L D E S T R U C T F
0003040 I L E T Y P E C O M P I L E -
0003060 F I L E ) \r ( P U T P R O P S
0003100 C M L D E S T R U C T C O P Y
0003120 R I G H T ( " X e r o x C o
0003140 r p o r a t i o n " 1 9 8 6 )
0003160 ) \r S T O P \r
0003167