$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>COMHACK.DCOM!1
0000000 ( F I L E C R E A T E D " 2 2
0000020 - J u n - 8 4 0 6 : 5 9 : 1 4
0000040 " ( " c o m p i l e d o n
0000060 " { I V Y } < H T H O M P S O
0000100 N > L I S P > C O M H A C K . ;
0000120 2 ) \r " 1 9 - J u n - 8 4 1
0000140 4 : 3 0 : 1 4 " r e c o m p i
0000160 l e d e x p r s : \ S t r i
0000200 p C o m m e n t s i n W O R
0000220 K d a t e d " 2 1 - J u n -
0000240 8 4 1 5 : 3 1 : 4 8 " ) \r ( F
0000260 I L E C R E A T E D " 2 2 - J
0000300 u n - 8 4 0 6 : 5 8 : 3 2 "
0000320 { I V Y } < H T H O M P S O N >
0000340 L I S P > C O M H A C K . ; 2
0000360 1 4 4 1 c h a n g e s t o :
0000400 ( V A R S C O M H A C K C O
0000420 M S ) \r p r e v i o u s d a
0000440 t e : " 2 1 - J u n - 8 4 2
0000460 1 : 0 3 : 0 3 " { I V Y } < H
0000500 T H O M P S O N > C O M H A C K
0000520 . ; 3 ) \r \ S t r i p C o m m e
0000540 n t s D 1 \r ( I 0 f o r m
0000560 F 3 C O M M E N T F L G )
0000600 \0 , 003 001 \0 001 021 0 002 @ 260 032 d 001 d
0000620 003 001 S 360 222 277 h 201 h 032 X 003 226 I 265 \f
0000640 H Z Y 277 002 003 265 347 J 020 \t \0 \0 Y H 031
0000660 260 363 \0 ( 4 5 Q L A S T ) \r N I
0000700 L \r ( ) \r ( P R E T T Y C O M P
0000720 R I N T C O M H A C K C O M S
0000740 ) \r ( R P A Q Q C O M H A C K
0000760 C O M S ( ( E ( S E T Q C
0001000 L I S P I F Y P R E T T Y F L G
0001020 N I L ) ) ( F N S \ S t r
0001040 i p C o m m e n t s ) ( P (
0001060 M A P C ( Q U O T E ( \r \ D
0001100 W I M I F Y B L O C K / C L I S
0001120 P I F \ D W I M I F Y B L O C
0001140 K / C L I S P F O R C L I S P
0001160 F O R C L I S P I F ) ) ( F
0001200 U N C T I O N ( L A M B D A
0001220 ( X ) ( C O N D ( ( G E T D
0001240 X ) \r ( A D V I S E X (
0001260 Q U O T E A R O U N D ) ( Q
0001300 U O T E ( P R O G ( ( * * O
0001320 l d F o r m * * F O R M ) )
0001340 ( S E T Q F O R M ( \ S t r
0001360 i p C o m m e n t s F O R M )
0001400 ) * ( \r P U T H A S H * *
0001420 O l d F o r m * * ( G E T H A
0001440 S H F O R M C L I S P A R R
0001460 A Y ) C L I S P A R R A Y )
0001500 ( P U T H A S H F O R M N I
0001520 L ) ( R E T U R N * * O l d
0001540 F o r m * * ) ) ) ) ) ) \r ) ) )
0001560 ) ( E ( S E T Q C L I S P
0001600 I F Y P R E T T Y F L G T ) )
0001620 ) ) \r ( M A P C ( Q U O T E
0001640 ( \ D W I M I F Y B L O C K / C
0001660 L I S P I F \ D W I M I F Y B
0001700 L O C K / C L I S P F O R C L
0001720 I S P F O R C L I S P I F ) )
0001740 ( F U N C T I O N ( L A M B
0001760 D A ( X ) ( \r C O N D ( (
0002000 G E T D X ) ( A D V I S E
0002020 X ( Q U O T E A R O U N D )
0002040 ( Q U O T E ( P R O G ( (
0002060 * * O l d F o r m * * F O R M
0002100 ) ) ( S E T Q F O R M ( \
0002120 S t r i p C o m m e n t s \r F
0002140 O R M ) ) * ( P U T H A S H
0002160 * * O l d F o r m * * ( G E
0002200 T H A S H F O R M C L I S P
0002220 A R R A Y ) C L I S P A R R A
0002240 Y ) ( P U T H A S H F O R M
0002260 N I L ) ( R E T U R N \r *
0002300 * O l d F o r m * * ) ) ) ) ) )
0002320 ) ) ) \r N I L \r
0002330