Changeset 10821


Ignore:
Timestamp:
Sep 22, 2008, 12:07:56 PM (11 years ago)
Author:
gb
Message:

move GET-UNIVERSAL-TIME elsewhere

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/time.lisp

    r10651 r10821  
    4343         (funk (%incf-ptr copy timeval-size)))))))
    4444
    45 (defun get-universal-time ()
    46   "Return a single integer for the current time of
    47    day in universal time format."
    48   #-windows-target
    49   (rlet ((tv :timeval))
    50     (#_gettimeofday tv (%null-ptr))
    51     (+ (pref tv :timeval.tv_sec) unix-to-universal-time))
    52   #+windows-target
    53   (rlet ((ft #>FILETIME))
    54     (#_GetSystemTimeAsFileTime ft)
    55     (windows-filetime-to-universal-time ft)))
     45
    5646
    5747
Note: See TracChangeset for help on using the changeset viewer.