Changeset 14628


Ignore:
Timestamp:
Feb 2, 2011, 4:35:01 AM (8 years ago)
Author:
gb
Message:

Tell the user that we're waiting for shark to process samples.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/chud-metering.lisp

    r14610 r14628  
    126126   
    127127(defun scan-shark-process-output (p)
     128  (format t "~&;;; Waiting for shark to process samples ...")
    128129  (with-interrupts-enabled
    129130      (let* ((out (ccl::external-process-output p)))
     
    133134            (format t "~&~a" line))
    134135          (when (search "Created session file:" line)
     136            (format t "done.~&")
    135137            (display-shark-session-file line)
    136138            (return))))))
Note: See TracChangeset for help on using the changeset viewer.