[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23766

Modified Files:
	ChangeLog swank-sprof.lisp 
Log Message:
* swank-sprof.lisp (swank-sprof-get-call-graph): Don't call
serialize-call-graph when there's no samples. That prevents it
from crashing.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/03/13 21:33:54	1.433
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/03/14 07:18:35	1.434
@@ -1,3 +1,9 @@
+2011-03-14  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sprof.lisp (swank-sprof-get-call-graph): Don't call
+	serialize-call-graph when there's no samples. That prevents it
+	from crashing.
+
 2011-03-13  Stas Boukarev  <stassats at gmail.com>
 
 	* slime-sprof.el(abbreviate-name): Rename to
--- /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2010/09/17 20:32:55	1.5
+++ /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2011/03/14 07:18:35	1.6
@@ -74,8 +74,8 @@
                                       `((nil "Elsewhere" ,rest nil nil)))))))))
 
 (defslimefun swank-sprof-get-call-graph (&key exclude-swank)
-  (setf *call-graph* (sb-sprof:report :type nil))
-  (serialize-call-graph :exclude-swank exclude-swank))
+  (when (setf *call-graph* (sb-sprof:report :type nil))
+    (serialize-call-graph :exclude-swank exclude-swank)))
 
 (defslimefun swank-sprof-expand-node (index)
   (let* ((node (gethash index *number-nodes*)))