X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=834f143af08eea29f55d7d24ccedecd1a682773d;hb=8eee0d3a30bf39d9f201acff28c92059fe6c3e4e;hp=a6dbc9435449f42b09904bd91565b14c9f1969c7;hpb=fcd65db754f3a5062fccf136bc633e658e4967b3;p=sbcl.git

diff --git a/src/code/time.lisp b/src/code/time.lisp
index a6dbc94..834f143 100644
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -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)