$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLTIME.DCOM!3
0000000 ( F I L E C R E A T E D " 1 8
0000020 - J u l - 8 6 1 2 : 1 5 : 0 2
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 T I M
0000120 E . ; 4 ) \r " 1 5 - J u l - 8
0000140 6 2 0 : 4 5 : 0 5 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 G E T - I N T E R N A L - R E A
0000220 L - T I M E G E T - I N T E R
0000240 N A L - R U N - T I M E \r G E
0000260 T - U N I V E R S A L - T I M E
0000300 G E T - D E C O D E D - T I M
0000320 E D E C O D E - U N I V E R S
0000340 A L - T I M E E N C O D E - U
0000360 N I V E R S A L - T I M E S L
0000400 E E P i n \r " X e r o x L
0000420 i s p 1 5 - J u l - 8 6 . .
0000440 . " d a t e d " 1 5 - J u l
0000460 - 8 6 2 0 : 5 7 : 0 8 " ) \r (
0000500 F I L E C R E A T E D " 1 8 -
0000520 J u l - 8 6 1 2 : 1 4 : 2 6 "
0000540 { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > C M L T I M E
0000600 . ; 4 1 5 2 4 2 c h a n g e
0000620 s t o : ( F N S \r G E T -
0000640 U N I V E R S A L - T I M E G
0000660 E T - I N T E R N A L - R E A L
0000700 - T I M E G E T - I N T E R N
0000720 A L - R U N - T I M E G E T -
0000740 D E C O D E D - T I M E D E C
0000760 O D E - U N I V E R S A L - T I
0001000 M E \r E N C O D E - U N I V E
0001020 R S A L - T I M E S L E E P )
0001040 ( V A R S C M L T I M E C O
0001060 M S ) ( F U N C T I O N S %
0001100 % C O N V E R T - I N T E R N A
0001120 L - T I M E - T O - C L U T )
0001140 p r e v i o u s \r d a t e :
0001160 " 3 - J u l - 8 6 2 3 : 0 3
0001200 : 1 4 " { E R I S } < L I S P
0001220 C O R E > L I B R A R Y > C M L
0001240 T I M E . ; 3 ) \r G E T - I N T
0001260 E R N A L - R E A L - T I M E
0001300 D 1 \r N I L \0 006 \0 \0 \0 \0 j \t \0
0001320 \0 020 \0 ( 3 C L O C K ) \r N I L
0001340 \r ( ) \r G E T - I N T E R N A L
0001360 - R U N - T I M E D 1 \r N I L
0001400 \0 \a \0 \0 \0 \0 l 002 \t \0 \0 020 \0 ( 4
0001420 C L O C K ) \r N I L \r ( ) \r G
0001440 E T - U N I V E R S A L - T I M
0001460 E D 1 \r N I L \0 \n \0 \0 \0 \0 \b
0001500 \0 \0 o \0 \0 \0 324 020 \0 ( 2 D A Y T
0001520 I M E ) \r N I L \r ( 6 2 0 1
0001540 7 0 2 3 1 6 0 0 Q ) \r G E T - D
0001560 E C O D E D - T I M E D 1 \r N
0001600 I L \0 \b \0 \0 \0 \0 \b \0 \0 \t \0 \0 020
0001620 \0 ( 5 D E C O D E - U N I V E
0001640 R S A L - T I M E 2 G E T -
0001660 U N I V E R S A L - T I M E ) \r
0001700 N I L \r ( ) \r D E C O D E - U N
0001720 I V E R S A L - T I M E D 1 \r
0001740 ( L ( 0 - a r g s - ) F
0001760 3 1 Q \ T i m e Z o n e C o m
0002000 p F 3 2 Q \ D a y L i g h
0002020 t S a v i n g s F 3 3 Q *
0002040 ) 001 \ 031 003 002 \0 e 021 001 \0 k a 021 201
0002060 \t l 002 H 361 222 W 2 204 i 272 l 002 a 273 021
0002100 360 030 J h 360 264 004 W 4 _ 024 277 I l < \n
0002120 \0 \0 \t \0 \0 \ 001 _ 026 277 L 002 001 _ 032 277
0002140 O 026 l < \n \0 \0 \t \0 \0 ] 001 _ 026 277 M
0002160 002 001 _ . 277 O 026 K 325 l 030 \n \0 \0 \t \0
0002200 \0 ^ 001 _ 036 277 N 002 001 _ 034 277 n 216 254 O
0002220 036 325 o \0 \0 \0 \n \0 \0 \t \0 \0 _ 016 001 _
0002240 " 277 O 016 002 001 n 216 254 \n \0 \0 \t \0 \0 _
0002260 020 001 _ $ 277 O 020 002 001 n 005 265 \n \0 \0 \t
0002300 \0 \0 _ 022 001 _ & 277 O 022 002 001 _ 277 n
0002320 \a 320 O " n 001 220 326 325 O $ l d 326 325 O
0002340 & l 004 326 325 O o \0 \0 \0 \n \0 \0 002 325
0002360 _ ( 277 O O ( l d \n \0 \0 j 360 237 O
0002400 ( n 001 220 \n \0 \0 j 360 244 o \0 \0 \0 203 o
0002420 \0 \0 \0 \n \0 \0 002 O 325 _ * 277 O 036 l
0002440 006 324 l \a \n \0 \0 _ , 277 O 024 262 , O *
0002460 O 034 O , \v \0 \0 _ 0 262 037 O 034 k 324 _
0002500 034 l 027 363 262 024 O 036 k 324 _ 036 277 j _ 034
0002520 277 h _ 024 277 261 377 7 O * o \0 \0 \0 \n \0
0002540 \0 _ 030 277 O 032 O . O 034 O * O 030 001 325
0002560 k 324 O 030 002 O ( O , O 0 K \r \t \0 \0
0002600 W 6 020 \0 ( 5 2 7 Q V A L U E S
0002620 4 7 0 Q \ D T S C A N 4 1
0002640 6 Q \ I S D S T ? 3 7 6 Q
0002660 C L : M O D 3 5 5 Q \ D T S
0002700 C A N 3 3 6 Q C L : M O D
0002720 3 2 3 Q C L : M O D 3 0 5 Q
0002740 \ D T S C A N 2 3 1 Q \ M
0002760 V L I S T 2 2 6 Q C L : F L
0003000 O O R 2 0 6 Q \ M V L I S T
0003020 2 0 3 Q C L : F L O O R 1
0003040 6 3 Q \ M V L I S T 1 6 0 Q
0003060 C L : F L O O R 1 3 0 Q \
0003100 M V L I S T 1 2 5 Q C L : F
0003120 L O O R 1 0 1 Q \ M V L I S
0003140 T 7 6 Q C L : F L O O R 5
0003160 4 Q \ M V L I S T 5 1 Q C
0003200 L : F L O O R ) \r N I L \r ( 4
0003220 6 5 Q ( ( 5 1 7 Q . 1 4 Q
0003240 ) ( 4 6 1 Q . 1 3 Q ) (
0003260 4 2 2 Q . 1 2 Q ) ( 3 6 4
0003300 Q . 1 1 Q ) ( 3 2 5 Q .
0003320 1 0 Q ) ( 2 6 6 Q . 7 )
0003340 ( 2 3 0 Q . 6 ) ( 1 7 1
0003360 Q . 5 ) ( 1 3 3 Q . 4
0003400 ) ( 7 4 Q . 3 ) ( 3 7 Q
0003420 . 2 ) ( 0 . 1 ) ) \r
0003440 3 5 2 Q ( ( 2 1 1 0 Q . 2
0003460 6 6 5 Q ) ( 2 0 1 5 Q . 2
0003500 1 0 7 Q ) ( 1 3 3 3 Q . 2
0003520 1 1 0 Q ) ( 1 2 4 0 Q . 1
0003540 3 3 2 Q ) ( 5 5 6 Q . 1 3
0003560 3 3 Q ) ( 4 6 3 Q . 5 5 5
0003600 Q ) ( 1 . 5 5 6 Q ) ( 0
0003620 . 0 ) ) \r 3 4 5 Q ( ( 2
0003640 5 7 2 Q . 2 6 6 4 Q ) ( 2
0003660 1 1 0 Q . 2 6 6 5 Q ) ( 2
0003700 0 1 5 Q . 2 1 0 7 Q ) ( 1
0003720 3 3 3 Q . 2 1 1 0 Q ) ( 1
0003740 2 4 0 Q . 1 3 3 2 Q ) ( 5
0003760 5 6 Q . 1 3 3 3 Q ) ( 4 6
0004000 3 Q . 5 5 5 Q ) ( 1 .
0004020 5 5 6 Q ) ( 0 . 0 ) ) \r
0004040 3 0 2 Q ( ( 2 1 1 0 Q . 4
0004060 ) ( 1 3 3 3 Q . 3 ) ( 5
0004100 5 6 Q . 2 ) ( 1 . 1 )
0004120 ( 0 . 0 ) ) 1 5 5 Q 4
0004140 3 5 2 6 1 Q ) \r E N C O D E - U
0004160 N I V E R S A L - T I M E D 1
0004200 \r ( L ( 6 T I M E - Z O N E
0004220 5 Y E A R 4 M O N T H
0004240 3 D A T E 2 H O U R 1
0004260 M I N U T E 0 S E C O N D )
0004300 F 4 \ T i m e Z o n e C o
0004320 m p F 5 \ D a y L i g h t
0004340 S a v i n g s ) 001 016 004 002 \0 \a 021
0004360 @ 003 l d E 363 262 . \b \0 \0 \t \0 \0 002 002
0004400 002 002 002 001 273 E K l d \n \0 \0 k 325 l d
0004420 326 324 Z d K 325 \t \0 \0 l 2 363 242 277 J 204
0004440 l d 260 357 E b \n D l 002 361 262 033 d l 004
0004460 334 j 360 262 023 d l d 334 j 360 227 d n 001 220
0004500 334 j 360 221 k 200 j D d k 360 223 277 j 260 j
0004520 l 002 360 223 l 037 260 b D d l 003 360 224 277 l
0004540 ; 260 W l 004 360 223 l Z 260 O D d l 005 360
0004560 224 277 l x 260 D l 006 360 223 l 227 260 < D d
0004600 l \a 360 224 277 l 265 260 1 l \b 360 223 l 324 260
0004620 ) D d l \t 360 224 277 l 363 260 036 l \n 360 224
0004640 n 001 021 260 025 D d l \v 360 224 277 n 001 0 207
0004660 l \f 360 264 005 n 001 N C k 331 330 330 X d E
0004700 n \a l 331 b \n n 001 m 332 E k 331 l 004 333
0004720 330 330 Y B I l 030 332 F 265 023 U 235 H B I
0004740 l \a 334 \v \0 \0 223 T k 331 200 T 324 324 b 004
0004760 @ A B l < 332 330 l < 332 330 020 \0 ( 3 6
0005000 6 Q \ I S D S T ? 5 1 Q A
0005020 B S 3 4 Q T R U N C A T E
0005040 1 6 Q \ M V L I S T 1 3 Q
0005060 G E T - D E C O D E D - T I M E
0005100 ) \r N I L \r ( ) \r S L E E P D
0005120 1 \r ( L ( 0 S E C O N D S )
0005140 ) \0 \v \0 \0 \0 001 @ n 003 350 326 \t \0 \0
0005160 h 020 \0 ( 7 B L O C K ) \r N I L
0005200 \r ( ) \r ( P R E T T Y C O M P R
0005220 I N T C M L T I M E C O M S )
0005240 \r ( R P A Q Q C M L T I M E C
0005260 O M S ( ( * * " C o m m o
0005300 n L i s p T i m e F u n c
0005320 t i o n s - - S e c t i o n
0005340 2 5 . 4 . 1 - - B y K e
0005360 l l y R o a c h e t c .
0005400 * " ) ( \r C O N S T A N T S
0005420 ( I N T E R N A L - T I M E - U
0005440 N I T S - P E R - S E C O N D
0005460 1 0 0 0 ) ) ( F U N C T I O N
0005500 S % % C O N V E R T - I N T E
0005520 R N A L - T I M E - T O - C L U
0005540 T ) ( F N S \r G E T - I N T
0005560 E R N A L - R E A L - T I M E
0005600 G E T - I N T E R N A L - R U N
0005620 - T I M E G E T - U N I V E R
0005640 S A L - T I M E G E T - D E C
0005660 O D E D - T I M E D E C O D E
0005700 - U N I V E R S A L - T I M E \r
0005720 E N C O D E - U N I V E R S A
0005740 L - T I M E S L E E P ) ( D
0005760 E C L A R E : D O N T E V A L
0006000 @ L O A D D O E V A L @ C O M
0006020 P I L E D O N T C O P Y C O
0006040 M P I L E R V A R S ( A D D V
0006060 A R S ( \r N L A M A ) ( N L
0006100 A M L ) ( L A M A S L E E P
0006120 E N C O D E - U N I V E R S A
0006140 L - T I M E D E C O D E - U N
0006160 I V E R S A L - T I M E G E T
0006200 - D E C O D E D - T I M E \r G
0006220 E T - U N I V E R S A L - T I M
0006240 E G E T - I N T E R N A L - R
0006260 U N - T I M E ) ) ) ) ) \r ( R P
0006300 A Q Q I N T E R N A L - T I M
0006320 E - U N I T S - P E R - S E C O
0006340 N D 1 0 0 0 ) \r ( C O N S T A
0006360 N T S ( I N T E R N A L - T I
0006400 M E - U N I T S - P E R - S E C
0006420 O N D 1 0 0 0 ) ) \r ( D E F M
0006440 A C R O % % C O N V E R T - I
0006460 N T E R N A L - T I M E - T O -
0006500 C L U T ( T I M E ) ( * *
0006520 \r " c o n v e r t s f r o m
0006540 I n t e r l i s p - D i n t
0006560 e r n a l t i m e f o r m a
0006600 t t o C o m m o n L i s p
0006620 U n i v e r s a l T i m e "
0006640 ) ( B Q U O T E ( + ( \ ,
0006660 T I M E ) ( \r C L : * 3 6
0006700 5 8 6 4 0 0 ) M A X . F I X
0006720 P 1 ) ) ) \r ( P U T P R O P S
0006740 C M L T I M E C O P Y R I G
0006760 H T ( " X e r o x C o r p o
0007000 r a t i o n " 1 9 8 6 ) ) \r N
0007020 I L \r
0007023