$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>WHOCALLS!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " X C L " 247 B A S E 1 0
0000100 ) \r 006 001 ( f i l e c r e a t e d
0000120 " 1 8 - D e c - 8 6 1 9 : 0
0000140 3 : 2 5 " 006 004 { e r i s } < l
0000160 i s p c o r e > i n t e r n a l
0000200 > l i b r a r y > w h o c a l l
0000220 s . \ ; 2 006 001 4 5 0 0 \r
0000240 \r | c h a n g e s |
0000260 | t o : | ( f n s d i s
0000300 t r i b u t e . c a l l i n f o
0000320 d i s t r i b u t e - c a l l
0000340 - i n f o - f o r - s y m b o l
0000360 ) \r
0000400 ( v a r s w
0000420 h o c a l l s c o m s ) \r \r
0000440 | p r e v i o u s | |
0000460 d a t e : | " 7 - N o v - 8
0000500 6 0 2 : 4 7 : 1 1 " { e r i
0000520 s } < l i s p u s e r s > l i s
0000540 p c o r e > w h o c a l l s . \
0000560 ; 2 ) \r \r \r ; C o p y r i g h
0000600 t ( c ) 1 9 8 6 b y X e
0000620 r o x C o r p o r a t i o n .
0000640 A l l r i g h t s r e s
0000660 e r v e d . \r \r ( p r e t t y c
0000700 o m p r i n t w h o c a l l s
0000720 c o m s ) \r \r ( r p a q q 006 002
0000740 w h o c a l l s c o m s 006 001 (
0000760 ( f n s w h o c a l l s w h
0001000 o c a l l s 1 d i s t r i b u
0001020 t e . c a l l i n f o d i s t
0001040 r i b u t e - c a l l - i n f o
0001060 - f o r - s y m b o l ) \r
0001100
0001120 ( p r o p p r o p t y p e
0001140 c a l l e d b y u s e d f r
0001160 e e b y u s e d g l o b a l b
0001200 y b o u n d b y ) ) ) \r ( d e
0001220 f i n e q \r \r ( 006 004 W H O C A L
0001240 L S 006 001 \r ( L A M B D A (
0001260 C A L L E E U S A G E ) \r
0001300 ( 006 002 D E C L A R E 006 001 (
0001320 S P E C V A R S C A L L E E
0001340 U S A G E C A L L T Y P E V
0001360 A L ) ) 006 006 006 001
0001400 006 006 ( * | b v m : | "
0001420 1 - O c t - 8 6 1 4 : 0 5 "
0001440 ) 006 001 \r ( P R O G ( (
0001460 C A L L T Y P E ( 006 002 | i f |
0001500 006 001 ( L I S T P U S A G E )
0001520 \r
0001540 006 002 | t h e
0001560 n | 006 001
0001600
0001620 006 006 ( * \ ; \r 006 001
0001640
*
0001720 006 006 " s o m e
0001740 s u b s e t o f ( B O U N
0001760 D U S E D F R E E G L O B A
0002000 L S ) " ) 006 001 \r
0002020
0002040 ( S E T Q U S A
0002060 G E ( 006 002 | f o r | 006 001 T Y
0002100 P E 006 002 | i n | 006 001 U S A G
0002120 E \r
0002140
*
0002200 006 002 | c o l l e c t | 006 001 ( O
0002220 R ( M I S S P E L L E D ? T
0002240 Y P E 7 0 \r
0002260
*
0002340 ' ( B O U N
0002360 D U S E D F R E E G L O B A
0002400 L S ) ) \r
0002420
*
0002500 ( \ \ I L L E G A L . A R G
0002520 T Y P E ) ) ) ) \r
0002540
0002560 ' V A R A P P L
0002600 Y \r
0002620 006 002 | e l s e
0002640 | 006 001 ( S E L E C T Q U S A
0002660 G E \r
0002700
0002720 ( ( U S E S V A R
0002740 V A R S B O U N D U S E D F
0002760 R E E G L O B A L S ) \r
0003000
*
0003040 ( S E T Q U S A G E
0003060 ' U S E S ) \r
0003100
0003120 '
0003140 V A R A P P L Y ) \r
0003160
0003200 ( ( B O
0003220 U N D U S E D F R E E G L O
0003240 B A L S ) \r
0003260
0003300 ( S
0003320 E T Q U S A G E ( L I S T
0003340 U S A G E ) ) \r
0003360
0003400 '
0003420 V A R A P P L Y ) \r
0003440
0003460 ( ( N I
0003500 L C A L L S ) \r
0003520
*
0003560 ' F N A P P L Y ) \r
0003600
0003620 ( \ \
0003640 I L L E G A L . A R G U S A G
0003660 E ) ) ) ) \r
0003700 V A L ) \r
0003720 ( M A P A T O M S ( F U N C T
0003740 I O N W H O C A L L S 1 ) ) \r
0003760 ( R E T U R
0004000 N V A L ) ) ) ) \r \r ( 006 004 W H
0004020 O C A L L S 1 006 001 \r ( L A M
0004040 B D A ( F N ) \r ( 006 002
0004060 D E C L A R E 006 001 ( U S E D F
0004100 R E E C A L L E E U S A G E
0004120 C A L L T Y P E V A L ) ) 006
0004140 006 006 001 006 006
0004160 ( * | b v m : | " 1 - O c
0004200 t - 8 6 1 4 : 0 5 " ) 006 001 \r
0004220
*
0004300 006 006 ( *
0004320 | ; ; | " I f F N u s e
0004340 s C A L L E E i n t h e
0004360 C A L L T Y P E m a n n e r ,
0004400 a d d F N t o t h e l
0004420 i s t V A L . T h i s i
0004440 s s e p a r a t e f n b e
0004460 c a u s e o f t h e R E T
0004500 F R O M . " ) 006 001 \r ( C
0004520 O N D \r ( ( C C O
0004540 D E P F N ) \r
0004560 ( C A L L S C C O D E F N C
0004600 A L L T Y P E ( F U N C T I O
0004620 N ( L A M B D A ( C A L L E
0004640 D F L G ) \r
0004660
*
0004720 ( C O N D \r
0004740
*
0005000 ( ( A N D ( O
0005020 R ( N L I S T P U S A G E )
0005040 \r
0005060
*
0005120 ( M E M B
0005140 F L G U S A G E ) ) \r
0005160
*
0005240 ( C O N D \r
0005260
*
0005320 (
0005340 ( L I S T P C A L L E E ) \r
0005360
*
0005440 ( M E M B C A
0005460 L L E D C A L L E E ) ) \r
0005500
*
0005560 ( T ( E Q C A L
0005600 L E D C A L L E E ) ) ) ) \r
0005620
*
0005660 (
0005700 | p r i n t o u t | T F N
0005720 " , " ) \r
0005740
*
0006000 ( 006 002 | p u s h | 006
0006020 001 V A L F N ) \r
0006040
*
0006100 ( R E T F R
0006120 O M ' W H O C A L L S 1 ) ) )
0006140 ) ) ) \r ( B L O
0006160 C K ) ) ) ) ) \r \r ( 006 004 d i s t
0006200 r i b u t e . c a l l i n f o 006
0006220 001 \r ( l a m b d a n i l 006
0006240 003 006 001
0006260
*
0006320 006 003 ( * \ ; " E d i t e
0006340 d 1 8 - D e c - 8 6 1 9 : 0
0006360 3 b y P a v e l " ) 006 001 \r
0006400 ( a d d . p r o c e s s
0006420 ' ( m a p a t o m s ' d i s t
0006440 r i b u t e - c a l l - i n f o
0006460 - f o r - s y m b o l ) ' n a
0006500 m e ' d i s t r i b u t e - c
0006520 a l l - i n f o ) ) ) \r \r ( 006 004
0006540 d i s t r i b u t e - c a l l -
0006560 i n f o - f o r - s y m b o l 006
0006600 001 \r ( l a m b d a ( x ) 006
0006620 003 006 001
0006640
*
0006700 006 003 ( * \ ; " E d i t e
0006720 d 1 8 - D e c - 8 6 1 9 : 0
0006740 0 b y P a v e l " ) 006 001 \r
0006760 ( b l o c k ) \r (
0007000 a n d ( c c o d e p x ) \r
0007020 ( p r o g ( (
0007040 y ( c a l l s c c o d e x )
0007060 ) ) \r
0007100 ( 006 002 | f o r | 006 001 z 006
0007120 002 | i n | 006 001 ( c a d r y )
0007140 006 002 | d o | 006 001 ( 006 002 | p u
0007160 s h n e w | 006 001 ( g e t p r o
0007200 p z ' c a l l e d b y ) \r
0007220
*
0007300 x ) ) \r
0007320 ( 006 002 | f o r | 006 001 z
0007340 006 002 | i n | 006 001 ( c a d d r
0007360 y ) 006 002 | d o | 006 001 ( 006 002
0007400 | p u s h n e w | 006 001 ( g e t
0007420 p r o p z ' b o u n d b y )
0007440 \r
0007460
*
0007520 x ) ) \r
0007540 ( 006 002 | f o r | 006
0007560 001 z 006 002 | i n | 006 001 ( c a
0007600 d d d r y ) 006 002 | d o | 006 001
0007620 ( 006 002 | p u s h n e w | 006 001
0007640 ( g e t p r o p z ' u s e d
0007660 f r e e b y ) \r
0007700
*
0007740 x ) ) \r
0007760 (
0010000 006 002 | f o r | 006 001 z 006 002 | i
0010020 n | 006 001 ( c a r ( c d d d d
0010040 r y ) ) 006 002 | d o | 006 001 (
0010060 006 002 | p u s h n e w | 006 001 ( g
0010100 e t p r o p z ' u s e d g l
0010120 o b a l b y ) \r
0010140
*
0010220 x ) ) ) ) ) ) \r ) \r \r ( p u
0010240 t p r o p s 006 002 c a l l e d b
0010260 y p r o p t y p e 006 001 i g n
0010300 o r e ) \r \r ( p u t p r o p s
0010320 006 002 u s e d f r e e b y p r o
0010340 p t y p e 006 001 i g n o r e ) \r
0010360 \r ( p u t p r o p s 006 002 u s e
0010400 d g l o b a l b y p r o p t y
0010420 p e 006 001 i g n o r e ) \r \r ( p
0010440 u t p r o p s 006 002 b o u n d b
0010460 y p r o p t y p e 006 001 i g n
0010500 o r e ) \r ( p u t p r o p s w
0010520 h o c a l l s c o p y r i g h
0010540 t ( " X e r o x C o r p o r
0010560 a t i o n " 1 9 8 6 ) ) \r ( d
0010600 e c l a r e \ : d o n t c o p
0010620 y \r ( f i l e m a p ( n i
0010640 l ( 6 5 3 4 2 5 1 ( w h o
0010660 c a l l s 6 6 3 . 2 0 5 7
0010700 ) ( w h o c a l l s 1 2 0 5
0010720 9 . 3 1 9 1 ) ( d i s t r
0010740 i b u t e . c a l l i n f o 3
0010760 1 9 3 . 3 4 1 9 \r ) ( d i
0011000 s t r i b u t e - c a l l - i n
0011020 f o - f o r - s y m b o l 3 4
0011040 2 1 . 4 2 4 9 ) ) ) ) ) \r s
0011060 t o p \r
0011064