Changeset 9275


Ignore:
Timestamp:
Apr 25, 2008, 9:06:51 AM (11 years ago)
Author:
gb
Message:

Fix (?) #+windows GET-INTERNAL-REAL-TIME.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-lisp-threads.lisp

    r8946 r9275  
    106106  (rlet ((ft #>FILETIME))
    107107    (#_GetSystemTimeAsFileTime ft)
    108     (floor (dpb (pref ft #>FILETIME.dwHighDateTime) (byte 32 32)
     108    (values
     109     (floor (dpb (pref ft #>FILETIME.dwHighDateTime) (byte 32 32)
    109110                (pref ft #>FILETIME.dwLowDateTime))
    110            (floor 10000000 internal-time-units-per-second))))
     111           (floor 10000000 internal-time-units-per-second)))))
    111112
    112113(defun get-tick-count ()
Note: See TracChangeset for help on using the changeset viewer.