X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftime.lisp;h=6cdb53d8c91cc845277aa49141d44c4f73bc3792;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=834f143af08eea29f55d7d24ccedecd1a682773d;hpb=7f96d22df74999904529adc41639b64f88f5a144;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 834f143..6cdb53d 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -95,9 +95,7 @@ Includes both \"system\" and \"user\" time."
   #!+sb-doc
   "Return a single integer for the current time of day in universal time
 format."
-  (multiple-value-bind (res secs) (sb!unix:unix-gettimeofday)
-    (declare (ignore res))
-    (+ secs unix-to-universal-time)))
+  (+ (get-time-of-day) unix-to-universal-time))
 
 (defun get-decoded-time ()
   #!+sb-doc