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