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