From 98d71ca0700d2599d2c3e7c547779a6a3077dff9 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Sun, 31 Aug 2025 15:53:48 -0400 Subject: [PATCH] Stop calling clock-gettime to gather data that users never see It was an attempt to track changes in regression test timing which segregate compile vs execution times. --- src/compiler/main.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp index e1271bc76..bffc93dc9 100644 --- a/src/compiler/main.lisp +++ b/src/compiler/main.lisp @@ -1734,8 +1734,10 @@ necessary, since type inference may take arbitrarily long to converge.") (defglobal *compile-elapsed-time* 0) ; nanoseconds (defglobal *compile-file-elapsed-time* 0) ; nanoseconds (defun get-thread-virtual-time () - #+(and linux (not sb-xc-host)) (sb-unix:clock-gettime sb-unix:clock-thread-cputime-id) - #-(and linux (not sb-xc-host)) (values 0 0)) + #+(and linux sb-devel (not sb-xc-host)) + (return-from get-thread-virtual-time + (sb-unix:clock-gettime sb-unix:clock-thread-cputime-id)) + (values 0 0)) (defun accumulate-compiler-time (symbol start-sec start-nsec) (declare (ignorable symbol start-sec start-nsec))