X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftime.lisp;h=e4e023b23ca181a59e0b021fcd9f8b7085533fe4;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=95fe90b95c1267b47499dcd6b17f64998ac47d6f;hpb=15e14ef1ccd3ab6f4711632435a40493dc4cdd9d;p=sbcl.git diff --git a/src/code/time.lisp b/src/code/time.lisp index 95fe90b..e4e023b 100644 --- a/src/code/time.lisp +++ b/src/code/time.lisp @@ -362,7 +362,7 @@ ~S second~:P of system run time~% ~ ~@[ [Run times include ~S second~:P GC run time.]~% ~]~ ~S page fault~:P and~% ~ - ~S bytes consed.~%" + ~:D bytes consed.~%" (max (/ (- new-real-time old-real-time) (float sb!xc:internal-time-units-per-second)) 0.0)