Commit d3308985 authored by Daniel Kochmański's avatar Daniel Kochmański

fix: document ignore-no-calls

parent 6c162153
......@@ -38,6 +38,7 @@ daniel@turtleware.eu.
| 25-JAN-94 | mk | 2.1 | Patches for CLISP from Bruno Haible. |
| 26-FEB-16 | dk | 3.0 | General clean-up - removal of the obsolete implementations support and constructs, testing on the active implementations etc. |
| 26-FEB-16 | dk | 3.1 | Make warnings more ASDF-friendly |
| 25-MAY-16 | dk | 3.2 | Improve the documentation (document ignore-no-calls parameter) |
** To Do
......@@ -248,6 +249,7 @@ REPORT-MONITORING &optional names [Function]
(nested :exclusive)
(threshold 0.01)
(key :percent-time)
ignore-no-calls
Creates a table of monitoring information for the specified list
of names, and displays the table using display-monitoring-results.
If names is :all or nil, uses all currently monitored functions.
......@@ -277,9 +279,12 @@ Takes the following arguments:
:cons-per-call by average consing per function
:time same as :percent-time
:cons same as :percent-cons
- IGNORE-NO-CALLS specifies whenever functions which were not
called should be reported.
DISPLAY-MONITORING-RESULTS &optional (threshold 0.01) [Function]
(key :percent-time)
(ignore-no-calls t)
Prints a table showing for each named function:
- the total CPU time used in that function for all calls
- the total number of bytes consed in that function for all calls
......
......@@ -38,7 +38,7 @@
;;; Version ************************
;;; ********************************
(defparameter *metering-version* "v3.1 2016-03-26"
(defparameter *metering-version* "v3.2 2016-05-25"
"Current version number/date for Metering.")
......@@ -728,8 +728,10 @@ below THRESHOLD % of the time will not be reported."
*monitor-results*))))
(display-monitoring-results threshold key ignore-no-calls)))))
(defun display-monitoring-results (&optional (threshold 0.01) (key :percent-time)
(ignore-no-calls t))
(defun display-monitoring-results (&optional
(threshold 0.01)
(key :percent-time)
(ignore-no-calls t))
(let ((max-length 8) ; Function header size
(total-time 0.0)
(total-consed 0)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment