$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITABBREV!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 1 - O c t - 8 6 0 3 : 5 7 : 3
0000140 9 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T A B B R E V . ; 1
0000200 4 006 001 1 0 1 4 2 \r \r
0000220 p r e v i o u s d a t e
0000240 % : " 6 - O c t - 8 6 1 3
0000260 : 0 6 : 4 9 " { E R I S } < T
0000300 E D I T > T E D I T A B B R E V
0000320 . ; 1 3 ) \r \r \r ( * " \r C o p
0000340 y r i g h t ( c ) 1 9 8 3 ,
0000360 1 9 8 4 , 1 9 8 5 , 1 9 8
0000400 6 b y J o h n S y b a l s
0000420 k y & X e r o x C o r p o
0000440 r a t i o n . A l l r i g
0000460 h t s r e s e r v e d . \r " )
0000500 \r \r ( P R E T T Y C O M P R I N
0000520 T T E D I T A B B R E V C O M
0000540 S ) \r \r ( R P A Q Q 006 002 T E D
0000560 I T A B B R E V C O M S 006 001 (
0000600 ( F I L E S T E D I T D E C L
0000620 S ) \r
0000640 ( D E C L
0000660 A R E % : E V A L @ C O M P I
0000700 L E D O N T C O P Y ( C O N
0000720 S T A N T S ( \ S C R A T C H
0000740 L E N 6 4 ) ) \r
0000760
0001000 ( F I L E S (
0001020 L O A D C O M P ) \r
0001040
*
0001100 T E D I T D E C L S ) ) \r
0001120
0001140 ( F N S \ T E D I T
0001160 . A B B R E V . E X P A N D \
0001200 T E D I T . E X P A N D . D A T
0001220 E \ T E D I T . T R Y . A B B
0001240 R E V ) \r
0001260 ( G L
0001300 O B A L V A R S T E D I T . A
0001320 B B R E V S ) \r
0001340
0001360 ( V A R S ( T E D I T . A B B
0001400 R E V S ( L I S T ( C O N S
0001420 " b " ( M K S T R I N G (
0001440 C H A R A C T E R ( C H A R C
0001460 O D E 3 5 7 , 1 4 6 ) ) \r
0001500
*
0001600 ) ) \r
0001620
*
0001660 ( C O N S " n
0001700 " ( M K S T R I N G ( C H A
0001720 R A C T E R ( C H A R C O D E
0001740 3 5 7 , 4 4 ) ) ) \r
0001760
*
0002040 ) \r
0002060
*
0002120 ( C O N S "
0002140 m " ( M K S T R I N G ( C H
0002160 A R A C T E R ( C H A R C O D
0002200 E 3 5 7 , 4 5 ) ) ) \r
0002220
*
0002300 ) \r
0002320
*
0002360 ( C O N S
0002400 " T " ( M K S T R I N G ( C
0002420 H A R A C T E R ( C H A R C O
0002440 D E 3 5 7 , 5 7 ) ) ) \r
0002460
*
0002540 ) \r
0002560
*
0002620 ( C O N S
0002640 " d " ( M K S T R I N G (
0002660 C H A R A C T E R ( C H A R C
0002700 O D E 3 5 7 , 6 0 ) ) ) \r
0002720
*
0003000 ) \r
0003020
*
0003060 ( C O N
0003100 S " D " ( M K S T R I N G
0003120 ( C H A R A C T E R ( C H A R
0003140 C O D E 3 5 7 , 6 1 ) ) ) \r
0003160
*
0003240 ) \r
0003260
*
0003320 ( C O
0003340 N S " s " ( M K S T R I N G
0003360 ( C H A R A C T E R ( C H A
0003400 R C O D E 0 , 2 4 7 ) ) ) ) \r
0003420
*
0003500 ( C O N S " ' " ( M K
0003520 S T R I N G ( C H A R A C T E
0003540 R ( C H A R C O D E 0 , 2 7
0003560 1 ) ) ) ) \r
0003600
*
0003640 ( C O N S "
0003660 ` " ( M K S T R I N G ( C H
0003700 A R A C T E R ( C H A R C O D
0003720 E 0 , 2 5 1 ) ) ) ) \r
0003740
*
0004000 (
0004020 C O N S " % " " ( M K S T R
0004040 I N G ( C H A R A C T E R (
0004060 C H A R C O D E 0 , 2 5 2 ) )
0004100 ) \r
0004120
*
0004160 ) \r
0004200
*
0004260 ( C O N S " ~ " ( M K S T R
0004300 I N G ( C H A R A C T E R (
0004320 C H A R C O D E 0 , 2 7 2 ) )
0004340 ) ) \r
0004360
*
0004420 ( C O N S " 1 / 4
0004440 " ( M K S T R I N G ( C H A
0004460 R A C T E R ( C H A R C O D E
0004500 0 , 2 7 4 ) ) \r
0004520
*
0004600 )
0004620 ) \r
0004640
*
0004700 ( C O N S " 1 / 2 "
0004720 ( M K S T R I N G ( C H A R
0004740 A C T E R ( C H A R C O D E
0004760 0 , 2 7 5 ) ) \r
0005000
*
0005060 ) )
0005100 \r
0005120
*
0005160 ( C O N S " 3 / 4 "
0005200 ( M K S T R I N G ( C H A R A
0005220 C T E R ( C H A R C O D E 0
0005240 , 2 7 6 ) ) \r
0005260
*
0005340 ) ) \r
0005360
*
0005440 ( C O N S " 1 / 3 " (
0005460 M K S T R I N G ( C H A R A C
0005500 T E R ( C H A R C O D E 3 5
0005520 7 , 2 7 5 \r
0005540
*
0005660 ) ) ) ) \r
0005700
*
0005740 ( C O N S "
0005760 2 / 3 " ( M K S T R I N G (
0006000 C H A R A C T E R ( C H A R C
0006020 O D E 3 5 7 , 3 7 6 \r
0006040
*
0006160 ) ) ) ) \r
0006200
*
0006240 (
0006260 C O N S " c " ( M K S T R I
0006300 N G ( C H A R A C T E R 2 1
0006320 1 ) ) ) \r
0006340
*
0006400 ( C O N S " c
0006420 / o " ( M K S T R I N G ( C
0006440 H A R A C T E R ( C H A R C O
0006460 D E 3 5 7 , 1 0 0 \r
0006500
*
0006620 ) ) ) ) \r
0006640
*
0006700 ( C
0006720 O N S " % % " ( M K S T R I
0006740 N G ( C H A R A C T E R ( C
0006760 H A R C O D E 3 5 7 , 1 0 0 )
0007000 \r
0007020
*
0007120 ) ) ) \r
0007140
*
0007200 ' ( " D A T E "
0007220 . \ T E D I T . E X P A N D .
0007240 D A T E ) \r
0007260
*
0007320 ' ( " > > D A
0007340 T E < < " . \ T E D I T . E
0007360 X P A N D . D A T E ) ) ) ) ) )
0007400 \r ( F I L E S L O A D T E D I
0007420 T D E C L S ) \r ( D E C L A R E
0007440 % : E V A L @ C O M P I L E
0007460 D O N T C O P Y \r ( D E C L A
0007500 R E % : E V A L @ C O M P I L
0007520 E \r \r ( R P A Q Q 006 002 \ S C
0007540 R A T C H L E N 006 001 6 4 ) \r \r
0007560 ( C O N S T A N T S ( \ S C R
0007600 A T C H L E N 6 4 ) ) \r ) \r \r
0007620 ( F I L E S L O A D ( L O A D
0007640 C O M P ) \r T E D
0007660 I T D E C L S ) \r ) \r ( D E F I
0007700 N E Q \r \r ( 006 004 \ T E D I T . A
0007720 B B R E V . E X P A N D 006 001 \r
0007740 ( L A M B D A ( S T R E A M
0007760 ) 006 006 006 001
0010000
*
0010040 006 006 ( * j d s " 2 7 - A u g
0010060 - 8 5 1 5 : 0 9 " ) 006 001 \r
0010100
*
0010160 006 006 ( *
0010200 E x p a n d a n a b b v r e
0010220 v i a t i o n ) 006 001 \r (
0010240 P R O G ( ( T E X T O B J (
0010260 006 002 f e t c h 006 001 ( T E X T S
0010300 T R E A M T E X T O B J ) 006
0010320 002 o f 006 001 S T R E A M ) ) \r
0010340 S E L C H
0010360 # ( C H N I L ) \r
0010400 E X P A N S I O N )
0010420 \r ( S E T Q
0010440 S E L ( 006 002 f e t c h 006 001
0010460 S E L 006 002 o f 006 001 T E X T O
0010500 B J ) ) \r (
0010520 S E T Q C H # ( S E L E C T
0010540 Q ( 006 002 f e t c h 006 001 P O I
0010560 N T 006 002 o f 006 001 S E L ) \r
0010600
0010620 ( L E F T ( S U
0010640 B 1 ( 006 002 f e t c h 006 001 C H
0010660 # 006 002 o f 006 001 S E L ) ) ) \r
0010700
0010720 ( R I G H T (
0010740 S U B 1 ( 006 002 f e t c h 006 001
0010760 C H L I M 006 002 o f 006 001 S E L
0011000 ) ) ) \r
0011020 0 ) ) \r
0011040 ( C O N D \r
0011060 ( ( Z
0011100 E R O P ( 006 002 f e t c h 006 001
0011120 D C H 006 002 o f 006 001 S E L ) )
0011140
0011160 006 006 ( * P o i n t
0011200 S e l e c t i o n , s o u s
0011220 e t h e \r 006 001
0011240
*
0011320 006 006 c h a r a c t e
0011340 r t o t h e l e f t ) 006 001
0011360 \r (
0011400 C O N D \r
0011420 ( ( Z E R O P C H
0011440 # ) \r \r
0011460 006 006 ( * I f
0011500 w e ' r e o f f t h e f r
0011520 o n t o f t h e d o c u m
0011540 e n t , d o n ' t b o t h e
0011560 r t r y i n g . ) 006 001 \r \r
0011600
0011620 ( R E T U R N ) ) ) \r
0011640 ( \ S E T U P
0011660 G E T C H C H # T E X T O B
0011700 J ) \r
0011720 ( S E T Q C H ( M K S T R
0011740 I N G ( C H A R A C T E R (
0011760 \ B I N S T R E A M ) ) ) ) \r
0012000 ( T
0012020 E D I T . S E T S E L S T R E
0012040 A M C H # 1 ' R I G H T )
0012060 ) \r (
0012100 T \r \r
0012120 006 006 ( * W e
0012140 h a v e a s e l e c t i o n
0012160 t h a t i s n ' t j u s t
0012200 a c a r e t . \r 006 001
0012220 006 006 U s e i t . )
0012240 006 001 \r \r
0012260 ( S E T Q C H ( T E
0012300 D I T . S E L . A S . S T R I N
0012320 G S T R E A M ) ) ) ) \r
0012340 ( S E T Q E X P
0012360 A N S I O N ( 006 002 \ T E D I T
0012400 . T R Y . A B B R E V 006 001 C H
0012420 S T R E A M ) ) \r
0012440 \r 006
0012460 006 ( * F i n d t h e a b b
0012500 r e v i a t i o n ' s e x p a
0012520 n s i o n - - f i r s t t r
0012540 y i t a s - i s , t h e n
0012560 t r y t h e \r 006 001
0012600 006 006 u p p e r - c a
0012620 s e v e r s i o n t o b e
0012640 s a f e . ) 006 001 \r \r
0012660 ( C O N D \r
0012700 ( E X P A N S I
0012720 O N \r \r
0012740 006 006 ( * I t
0012760 e x i s t s , s o i n s e
0013000 r t i t w h e r e t h e
0013020 a b b r e v u s e d t o b
0013040 e ) 006 001 \r \r
0013060 ( 006 002 r e p
0013100 l a c e 006 001 \ I N S E R T P C
0013120 V A L I D 006 002 o f 006 001 T E X
0013140 T O B J 006 002 w i t h 006 001 N I
0013160 L ) \r
0013200
*
0013260 006 006 ( * F o r c e i t t o
0013300 a b a n d o n c a c h i n g
0013320 ) 006 001 \r
0013340 ( T E D I T . D
0013360 E L E T E T E X T O B J S E
0013400 L )
0013420 006 006 ( * F i r s t , d e l
0013440 e t e t h e t h i n g b e
0013460 i n g \r 006 001
0013500
*
0013560 006 006 e x p a n d e d . )
0013600 006 001 \r
0013620 ( T E D I T . I N
0013640 S E R T S T R E A M E X P A
0013660 N S I O N S E L ) ) ) ) ) ) \r
0013700 \r ( 006 004 \ T E D I T . E X P A N
0013720 D . D A T E 006 001 \r ( L A M B
0013740 D A ( S T R E A M C H ) 006 006
0013760 006 001
0014000
0014020 006 006 ( * j
0014040 d s " 1 3 - A u g - 8 5 0 9
0014060 : 1 5 " ) 006 001 \r
0014100
*
0014160 006 006 ( * P r o v i d
0014200 e t h e d a t e a s t h
0014220 e e x p a n s i o n \r 006 001
0014240
*
0014320 006 006 f o
0014340 r a n a b b r e v i a t i o
0014360 n ) 006 001 \r ( P R O G *
0014400 ( ( D A T E ( \ U N P A C K D
0014420 A T E ) ) \r
0014440 ( Y E A R ( 006 002 p o p 006 001
0014460 D A T E ) ) \r
0014500 ( M O N T H ( 006 002 p o
0014520 p 006 001 D A T E ) ) \r
0014540 ( D A Y ( 006 002 p
0014560 o p 006 001 D A T E ) ) ) \r
0014600 ( R E T U R N
0014620 ( C O N C A T ( C A R ( N T
0014640 H ' ( J a n u a r y F e b r
0014660 u a r y M a r c h A p r i l
0014700 M a y J u n e J u l y A
0014720 u g u s t S e p t e m b e r
0014740 \r
0014760
0015000 O c
0015020 t o b e r N o v e m b e r D
0015040 e c e m b e r ) ( A D D 1 M
0015060 O N T H ) ) ) \r
0015100
0015120 " " D A Y " , " Y
0015140 E A R ) ) ) ) ) \r \r ( 006 004 \ T E
0015160 D I T . T R Y . A B B R E V 006 001
0015200 \r ( L A M B D A ( A B B R
0015220 E V S T R E A M ) 006 006 006 001
0015240
*
0015300 006 006 ( * j d s " 1 1 - J
0015320 u l - 8 5 1 2 : 4 6 " ) 006 001 \r
0015340 \r
0015360 006 006 ( * T r y e x
0015400 p a n d i n g A B B R E V a
0015420 s a n a b b r e v i a t i o
0015440 n . \r 006 001 006
0015460 006 R e t u r n t h e e x p a
0015500 n s i o n ; N I L = n o
0015520 s u c h a b b r e v i a t i o
0015540 n . ) 006 001 \r \r ( P R O G
0015560 ( S E L C H # ( C H N I
0015600 L ) \r
0015620 E X P A N S I O N ) \r
0015640 ( S E T Q E X P
0015660 A N S I O N ( O R ( S A S S
0015700 O C A B B R E V T E D I T .
0015720 A B B R E V S ) \r
0015740
0015760 ( S A S S O C (
0016000 U - C A S E A B B R E V ) \r
0016020
*
0016060 T E D I T . A B B R E V
0016100 S ) ) ) \r \r
0016120 006 006 ( * F
0016140 i n d t h e a b b r e v i a
0016160 t i o n ' s e x p a n s i o n
0016200 - - f i r s t t r y i t
0016220 a s - i s , t h e n t r y
0016240 t h e \r 006 001
0016260 006 006 u p p e r - c a s e v e
0016300 r s i o n t o b e s a f e
0016320 . ) 006 001 \r \r
0016340 ( R E T U R N ( C O N D \r
0016360
0016400 ( E X P A N S I O N
0016420
0016440 006 006 ( *
0016460 T h e r e ' s a n e x p a n
0016500 s i o n . \r 006 001
0016520
*
0016600 006 006 T u r n i t i
0016620 n t o a n i n s e r t a b l
0016640 e s t r i n g . ) 006 001 \r
0016660
0016700 ( C O N D \r
0016720
0016740 ( (
0016760 O R ( S T R I N G P ( C D R
0017000 E X P A N S I O N ) ) \r
0017020
*
0017060 ( N U M B E R P ( C D R E
0017100 X P A N S I O N ) ) ) \r
0017120 \r
0017140 006 006 ( * T h e a b b r e v
0017160 i a t i o n e x p a n d s t
0017200 o a s t r i n g o r a
0017220 n u m b e r \r 006 001
0017240 006 006 ( c h a r c o d e ) %
0017260 . I n s e r t i t . ) 006 001 \r
0017300 \r
0017320
0017340 ( C D R E X P A N S I O N )
0017360 ) \r
0017400
0017420 ( ( A N D ( L I T A T O M
0017440 ( C D R E X P A N S I O N ) )
0017460 \r
0017500
0017520 ( G E T D ( C D R
0017540 E X P A N S I O N ) ) ) 006 006
0017560 ( * I t ' s a f u n c t i
0017600 o n t o b e c a l l e d .
0017620 ) 006 001 \r
0017640
0017660 ( A P P L Y * ( C D R
0017700 E X P A N S I O N ) \r
0017720
*
0017760 S T R E A M C H ) ) \r
0020000
0020020 ( T
0020040
0020060 006 006 ( *
0020100 A n y t h i n g e l s e i
0020120 s a f o r m t o E V A L
0020140 . ) 006 001 \r
0020160
0020200 ( E V A L ( C D
0020220 R E X P A N S I O N ) ) ) ) )
0020240 ) ) ) ) ) \r ) \r ( D E C L A R E
0020260 % : D O E V A L @ C O M P I L
0020300 E D O N T C O P Y \r \r ( G L O
0020320 B A L V A R S T E D I T . A B
0020340 B R E V S ) \r ) \r \r ( R P A Q
0020360 006 002 T E D I T . A B B R E V S 006
0020400 001 ( L I S T ( C O N S " b
0020420 " ( M K S T R I N G ( C H A
0020440 R A C T E R ( C H A R C O D E
0020460 3 5 7 , 1 4 6 ) ) ) ) \r
0020500
0020520 ( C O N S " n "
0020540 ( M K S T R I N G ( C H A R
0020560 A C T E R ( C H A R C O D E
0020600 3 5 7 , 4 4 ) ) ) ) \r
0020620
0020640 ( C O N S " m " (
0020660 M K S T R I N G ( C H A R A C
0020700 T E R ( C H A R C O D E 3 5
0020720 7 , 4 5 ) ) ) ) \r
0020740
0020760 ( C O N S " T " ( M K
0021000 S T R I N G ( C H A R A C T E
0021020 R ( C H A R C O D E 3 5 7 ,
0021040 5 7 ) ) ) ) \r
0021060
0021100 ( C O N S " d " ( M K S T
0021120 R I N G ( C H A R A C T E R
0021140 ( C H A R C O D E 3 5 7 , 6 0
0021160 ) ) ) ) \r
0021200 (
0021220 C O N S " D " ( M K S T R I
0021240 N G ( C H A R A C T E R ( C
0021260 H A R C O D E 3 5 7 , 6 1 ) )
0021300 ) ) \r
0021320 ( C O
0021340 N S " s " ( M K S T R I N G
0021360 ( C H A R A C T E R ( C H A
0021400 R C O D E 0 , 2 4 7 ) ) ) ) \r
0021420
0021440 ( C O N S
0021460 " ' " ( M K S T R I N G ( C
0021500 H A R A C T E R ( C H A R C O
0021520 D E 0 , 2 7 1 ) ) ) ) \r
0021540
0021560 ( C O N S " ` "
0021600 ( M K S T R I N G ( C H A R
0021620 A C T E R ( C H A R C O D E
0021640 0 , 2 5 1 ) ) ) ) \r
0021660
0021700 ( C O N S " % " " (
0021720 M K S T R I N G ( C H A R A C
0021740 T E R ( C H A R C O D E 0 ,
0021760 2 5 2 ) ) ) ) \r
0022000
0022020 ( C O N S " ~ " ( M K S
0022040 T R I N G ( C H A R A C T E R
0022060 ( C H A R C O D E 0 , 2 7 2
0022100 ) ) ) ) \r
0022120 (
0022140 C O N S " 1 / 4 " ( M K S T
0022160 R I N G ( C H A R A C T E R
0022200 ( C H A R C O D E 0 , 2 7 4 )
0022220 ) ) ) \r
0022240 ( C
0022260 O N S " 1 / 2 " ( M K S T R
0022300 I N G ( C H A R A C T E R (
0022320 C H A R C O D E 0 , 2 7 5 ) )
0022340 ) ) \r
0022360 ( C O
0022400 N S " 3 / 4 " ( M K S T R I
0022420 N G ( C H A R A C T E R ( C
0022440 H A R C O D E 0 , 2 7 6 ) ) )
0022460 ) \r
0022500 ( C O N
0022520 S " 1 / 3 " ( M K S T R I N
0022540 G ( C H A R A C T E R ( C H
0022560 A R C O D E 3 5 7 , 2 7 5 ) )
0022600 ) ) \r
0022620 ( C O
0022640 N S " 2 / 3 " ( M K S T R I
0022660 N G ( C H A R A C T E R ( C
0022700 H A R C O D E 3 5 7 , 3 7 6 )
0022720 ) ) ) \r
0022740 ( C
0022760 O N S " c " ( M K S T R I N
0023000 G ( C H A R A C T E R 2 1 1
0023020 ) ) ) \r
0023040 ( C
0023060 O N S " c / o " ( M K S T R
0023100 I N G ( C H A R A C T E R (
0023120 C H A R C O D E 3 5 7 , 1 0 0
0023140 ) ) ) ) \r
0023160 (
0023200 C O N S " % % " ( M K S T R
0023220 I N G ( C H A R A C T E R (
0023240 C H A R C O D E 3 5 7 , 1 0 0
0023260 ) ) ) ) \r
0023300 '
0023320 ( " D A T E " . \ T E D I T
0023340 . E X P A N D . D A T E ) \r
0023360
0023400 ' ( " > > D A T
0023420 E < < " . \ T E D I T . E X
0023440 P A N D . D A T E ) ) ) \r ( P U
0023460 T P R O P S T E D I T A B B R
0023500 E V C O P Y R I G H T ( " J
0023520 o h n S y b a l s k y & X
0023540 e r o x C o r p o r a t i o n
0023560 " 1 9 8 3 1 9 8 4 1 9 8 5
0023600 1 9 8 6 ) ) \r ( D E C L A R E
0023620 % : D O N T C O P Y \r ( F
0023640 I L E M A P ( N I L ( 4 0 2
0023660 7 8 3 5 9 ( \ T E D I T . A
0023700 B B R E V . E X P A N D 4 0 3
0023720 7 . 6 0 7 9 ) ( \ T E D I
0023740 T . E X P A N D . D A T E 6 0
0023760 8 1 . 6 7 6 0 ) ( \r \ T E
0024000 D I T . T R Y . A B B R E V 6
0024020 7 6 2 . 8 3 5 7 ) ) ) ) ) \r
0024040 S T O P \r
0024045