Changeset 13440


Ignore:
Timestamp:
Feb 8, 2010, 12:48:19 PM (15 years ago)
Author:
gz
Message:

report-heap-utilization: don't crash if no data

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/lib/misc.lisp

    r13435 r13440  
    11191119            do (incf total-psize psize))
    11201120
    1121       (when threshold
     1121      (when (and data threshold)
    11221122        (setq data (sort data #'< :key #'cadddr))
    11231123        (loop while (< (/ (cadddr (car data)) total-psize) threshold)
Note: See TracChangeset for help on using the changeset viewer.