X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=834f143af08eea29f55d7d24ccedecd1a682773d;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=b572f36d430ea571bd9a856d40dd11325a3df3a8;hpb=0c36486ca7b0e7bac8ea09743cd2cb4aae851923;p=sbcl.git diff --git a/src/code/time.lisp b/src/code/time.lisp index b572f36..834f143 100644 --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -265,7 +265,7 @@ format." (defun print-time (&key real-time-ms user-run-time-us system-run-time-us gc-run-time-ms processor-cycles eval-calls - lambda-conversions page-faults bytes-consed + lambdas-converted page-faults bytes-consed aborted) (let ((total-run-time-us (+ user-run-time-us system-run-time-us))) (format *trace-output* @@ -294,7 +294,7 @@ format." 100.0 (float (* 100 (/ (round total-run-time-us 1000) real-time-ms)))) eval-calls - lambda-conversions + lambdas-converted processor-cycles page-faults bytes-consed @@ -500,8 +500,10 @@ EXPERIMENTAL: Interface subject to change." (note :aborted aborted #'not) (note :bytes-consed (max (- new-bytes-consed old-bytes-consed) 0)) (note :page-faults page-faults #'zerop) - (note :processor-cycles cycles #'zerop) - (note :lambdas-converted sb!c::*lambda-conversions* #'zerop) + ;; cycle counting isn't supported everywhere. + (when cycles + (note :processor-cycles cycles #'zerop) + (note :lambdas-converted sb!c::*lambda-conversions* #'zerop)) (note :eval-calls *eval-calls* #'zerop) (note :gc-run-time-ms gc-internal-run-time) (note :system-run-time-us system-run-time)