(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 11:30:50" ("compiled on " |{DSK}sources>CMLTIME.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED "16-May-90 14:48:46" |{DSK}local>lde>lispcore>sources>CMLTIME.;2| 10763 |changes| |to:| (VARS CMLTIMECOMS) |previous| |date:| "27-Oct-87 19:13:42" |{DSK}local>lde>lispcore>sources>CMLTIME.;1|) (RPAQQ CMLTIMECOMS ((* |;;;| "Common Lisp Time Functions") (FUNCTIONS %CONVERT-INTERNAL-TIME-TO-CLUT) (CONSTANTS (CL:INTERNAL-TIME-UNITS-PER-SECOND 1000)) (FNS CL:GET-INTERNAL-REAL-TIME CL:GET-INTERNAL-RUN-TIME CL:GET-UNIVERSAL-TIME CL:GET-DECODED-TIME CL:DECODE-UNIVERSAL-TIME CL:ENCODE-UNIVERSAL-TIME CL:SLEEP) (PROP FILETYPE CMLTIME) (DECLARE\: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA CL:SLEEP CL:ENCODE-UNIVERSAL-TIME CL:DECODE-UNIVERSAL-TIME CL:GET-DECODED-TIME CL:GET-UNIVERSAL-TIME CL:GET-INTERNAL-RUN-TIME))))) |expand-%CONVERT-INTERNAL-TIME-TO-CLUT| :D8 (L (1 SI::$$MACRO-ENVIRONMENT 0 SI::$$MACRO-FORM)) @gHoNIL (10 +) ( 16 ((CL:* 365 24 60 60) MAX.FIXP 1)) (SETF-MACRO-FUNCTION (QUOTE %CONVERT-INTERNAL-TIME-TO-CLUT) (QUOTE |expand-%CONVERT-INTERNAL-TIME-TO-CLUT|)) (RPAQQ CL:INTERNAL-TIME-UNITS-PER-SECOND 1000) (CONSTANTS (CL:INTERNAL-TIME-UNITS-PER-SECOND 1000)) CL:GET-INTERNAL-REAL-TIME :D8 NIL j (5 CLOCK) NIL () CL:GET-INTERNAL-RUN-TIME :D8 NIL l (6 CLOCK) NIL () CL:GET-UNIVERSAL-TIME :D8 NIL nmlÖl<Öl<ÖÔoÔkÔ(4 DAYTIME) NIL ( 22 2147483647) CL:GET-DECODED-TIME :D8 NIL  (9 CL:DECODE-UNIVERSAL-TIME 4 CL:GET-UNIVERSAL-TIME) NIL () CL:DECODE-UNIVERSAL-TIME :D8 (L (0 |-args-|) F 25 |\\TimeZoneComp| F 26 |\\DayLightSavings|) Žeka lHñ’W2„iºla»ðJhð´W4_¿Il< \_¿L_¿Ol< ]_¿M_.¿OKÕl ^_¿N_¿nŽ¬OÕnŽ­lnŽ¬ÖÔ __"¿OnŽ¬ __$¿OnnlnmÖÔ __&¿O_ ¿nÐnO"ÖÕldO$ÖÕlO&ÖÕO o Õ_(¿O O(ld jð²O(n jð¥o„o O Õ_*¿Ol _,¿O².O*OO, _0²OkÔ_ló²OkÔ_¿j_¿h_¿±ÿO*o _¿OO.OO*OÕkÔOO(O,O0K$ (365 \\DTSCAN 320 \\ISDST? 302 CL:MOD 286 \\DTSCAN 267 CL:MOD 253 CL:MOD 237 \\DTSCAN 190 \\MVLIST 185 CL:FLOOR 160 \\MVLIST 155 CL:FLOOR 137 \\MVLIST 132 CL:FLOOR 100 \\MVLIST 95 CL:FLOOR 73 \\MVLIST 68 CL:FLOOR 48 \\MVLIST 43 CL:FLOOR) NIL ( 360 ((335 . 12) (305 . 11) (274 . 10) (244 . 9) (213 . 8) (182 . 7) (152 . 6) (121 . 5) (91 . 4) (60 . 3) (31 . 2) (0 . 1)) 281 ((1096 . 1461) (1037 . 1095) (731 . 1096) (672 . 730) (366 . 731) (307 . 365) (1 . 366) (0 . 0)) 275 ((1402 . 1460) (1096 . 1461) (1037 . 1095) (731 . 1096) (672 . 730) (366 . 731) (307 . 365) (1 . 366) (0 . 0)) 232 ((1096 . 4) (731 . 3) (366 . 2) (1 . 1) (0 . 0))) CL:ENCODE-UNIVERSAL-TIME :D8 (L (6 TIME-ZONE 5 YEAR 4 MONTH 3 DATE 2 HOUR 1 MINUTE 0 SECOND) F 6 |\\TimeZoneComp| F 7 |\\DayLightSavings|) G`ldEó²6 »EldKld kÕÖÔZdKÕ l2ó¢¿J„ld°íEb Ddkð“¿j°jlð“l°bDdlð”¿l;°Wlð“lZ°ODdlð”¿lx°Dlð“l—°