X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=00d78a02ca7187a77cf35cec13e419d96b0ad26f;hb=6dc30bee17d029acf6bb6da730f03e63b2a01948;hp=b188592a84f6e42aa2930ad05e37cec293604de6;hpb=2b82a3b74bce63abaf496587eba08339ac938c91;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index b188592..00d78a0 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -778,7 +778,9 @@
                               (print-unreadable-object (s stream :type t))))
              (:copier nil))
   ;; the UT that compilation started at
-  (start-time (get-internal-real-time) :type unsigned-byte)
+  (start-time (get-internal-real) :type unsigned-byte)
+  ;; the IRT that compilation started at
+  (start-real-time (get-internal-real-time) :type unsigned-byte)
   ;; the FILE-INFO structure for this compilation
   (file-info nil :type (or file-info null))
   ;; the stream that we are using to read the FILE-INFO, or NIL if
@@ -1654,7 +1656,7 @@
                    won
                    (elapsed-time-to-string
                     (- (get-internal-real-time)
-                       (source-info-start-time source-info))))
+                       (source-info-start-real-time source-info))))
   (values))
 
 ;;; Open some files and call SUB-COMPILE-FILE. If something unwinds