[Openmcl-cvs-notifications] r12876 - /trunk/source/tools/advice-profiler/profiler.lisp

[rme at clozure.com]

Author: rme
Date: Tue Sep 22 16:36:55 2009
New Revision: 12876

Log:
GET-REAL-TIME: no "id" arg in scope, so remove it and update format
control string.

Modified:
    trunk/source/tools/advice-profiler/profiler.lisp

Modified: trunk/source/tools/advice-profiler/profiler.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/tools/advice-profiler/profiler.lisp (original)
+++ trunk/source/tools/advice-profiler/profiler.lisp Tue Sep 22 16:36:55 20=
09
@@ -120,7 +120,7 @@
   (defun get-real-time ()
     (ccl:rlet ((ts :mach_timespec))
       (unless (zerop (#_clock_get_time (%get-ptr clock-port) ts))
-        (error "error reading clock ~A: ~A~%" id (ccl::%strerror (ccl::%ge=
t-errno))))
+        (error "error reading Mach clock: ~A~%" (ccl::%strerror (ccl::%get=
-errno))))
       (mach-timespec->nanoseconds ts))))
 =

 ;;; For non-Darwin platforms, we use clock_gettime() with the
@@ -650,4 +650,4 @@
           (format stream "Profile results combined for all profiledy proce=
sses~%~%"))
       (do-report results))
     (when (and *can-report-cpu* *clock-errors*)
-      (format stream "Warning: real time and CPU time clocks are inconsist=
ent.~%"))))
+      (format stream "Warning: real time and CPU time clocks are inconsist=
ent.~%"))))