[Sbcl-commits] CVS: sbcl/contrib/sb-sprof sb-sprof.lisp,1.22,1.23

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-sprof
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv9690/contrib/sb-sprof

Modified Files:
	sb-sprof.lisp 
Log Message:
1.0.13.41: SB-SPROF:REPORT when there are no samples

  * Used to signal an error -- report lack of samples, and return NIL
    instead. Reported by Andy Hefner on sbcl-devel 2008-01-06.


Index: sb-sprof.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-sprof/sb-sprof.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- sb-sprof.lisp	4 Oct 2007 23:01:57 -0000	1.22
+++ sb-sprof.lisp	15 Jan 2008 18:25:55 -0000	1.23
@@ -1083,16 +1083,21 @@
      Print a report from <graph> instead of the latest profiling
      results.
 
-   Value of this function is a CALL-GRAPH object representing the
-   resulting call-graph."
-  (let ((graph (or call-graph (make-call-graph most-positive-fixnum))))
-    (ecase type
-      (:flat
-       (print-flat graph :stream stream :max max :min-percent min-percent))
-      (:graph
-       (print-graph graph :stream stream :max max :min-percent min-percent))
-      ((nil)))
-    graph))
+Value of this function is a CALL-GRAPH object representing the
+resulting call-graph, or NIL if there are no samples (eg. right after
+calling RESET.)"
+  (cond (*samples*
+         (let ((graph (or call-graph (make-call-graph most-positive-fixnum))))
+           (ecase type
+             (:flat
+              (print-flat graph :stream stream :max max :min-percent min-percent))
+             (:graph
+              (print-graph graph :stream stream :max max :min-percent min-percent))
+             ((nil)))
+           graph))
+        (t
+         (format stream "~&; No samples to report.~%")
+         nil)))
 
 ;;; Interface to DISASSEMBLE