(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 3-Nov-93 15:49:56" ("compiled on " |{DSK}export>lispcore>sources>CLTL2>CMLTIME.;1|) "19-Feb-93 17:03:08" "COMPILE-FILEd" |in| "Medley 19-Feb-93 ..." |dated| "19-Feb-93 18:20:42") (FILECREATED "18-Oct-93 15:20:26" "{Pele:mv:envos}Sources>CLTL2>CMLTIME.;2" 15445 |previous| |date:| " 3-Sep-91 17:50:39" "{Pele:mv:envos}Sources>CLTL2>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-|)) ”eka lHñ•`„iºla»ðJhð´`_¿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$ (371 \\DTSCAN 326 \\ISDST? 308 CL:MOD 292 \\DTSCAN 273 CL:MOD 259 CL:MOD 243 \\DTSCAN 196 \\MVLIST 191 CL:FLOOR 166 \\MVLIST 161 CL:FLOOR 143 \\MVLIST 138 CL:FLOOR 106 \\MVLIST 101 CL:FLOOR 79 \\MVLIST 74 CL:FLOOR 54 \\MVLIST 49 CL:FLOOR) (38 |\\DayLightSavings| 18 |\\TimeZoneComp|) ( 366 ((335 . 12) (305 . 11) (274 . 10) (244 . 9) (213 . 8) (182 . 7) (152 . 6) (121 . 5) (91 . 4) (60 . 3) (31 . 2) (0 . 1)) 287 ((1096 . 1461) (1037 . 1095) (731 . 1096) (672 . 730) (366 . 731) (307 . 365) (1 . 366) (0 . 0)) 281 ((1402 . 1460) (1096 . 1461) (1037 . 1095) (731 . 1096) (672 . 730) (366 . 731) (307 . 365) (1 . 366) (0 . 0)) 238 ((1096 . 4) (731 . 3) (366 . 2) (1 . 1) (0 . 0))) CL:SLEEP :D8 (L (0 CL::SECONDS)) @nèÖ h(14 DISMISS 9 ROUND) NIL () (PUTPROPS CMLTIME FILETYPE CL:COMPILE-FILE) (PUTPROPS CMLTIME COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1990 1991 1993)) NIL