[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-sprof.lisp 
Log Message:
* swank-sprof.lisp (filter-swank-nodes): Filter other swank
packages too, not only SWANK.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/16 19:19:26	1.418
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/09/17 20:32:55	1.419
@@ -1,3 +1,8 @@
+2010-09-17  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-sprof.lisp (filter-swank-nodes): Filter other swank
+	packages too, not only SWANK.
+
 2010-09-16  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-arglists.lisp (print-variable-to-string): Use
--- /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2010/07/24 20:40:55	1.4
+++ /project/slime/cvsroot/slime/contrib/swank-sprof.lisp	2010/09/17 20:32:55	1.5
@@ -39,12 +39,15 @@
           (samples-percent (sb-sprof::node-accrued-count node))))
 
 (defun filter-swank-nodes (nodes)
-  (let ((swank-package (find-package :swank)))
+  (let ((swank-packages (load-time-value
+                         (mapcar #'find-package
+                                 '(swank swank-rpc swank-mop
+                                   swank-match swank-backend)))))
     (remove-if (lambda (node)
                  (let ((name (sb-sprof::node-name node)))
                    (and (symbolp name)
-                        (eql (symbol-package name)
-                             swank-package))))
+                        (member (symbol-package name) swank-packages
+                                :test #'eq))))
                nodes)))
 
 (defun serialize-call-graph (&key exclude-swank)