branch: elpa/slime
commit 67f77eeed36f3df348a82108602c5be01a46bf1c
Author: Stas Boukarev <stass...@gmail.com>
Commit: Stas Boukarev <stass...@gmail.com>
sprof, filter-swank-nodes: find more swank packages.
---
contrib/swank-sprof.lisp | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/contrib/swank-sprof.lisp b/contrib/swank-sprof.lisp
index b0a72ad522..8c9fede966 100644
--- a/contrib/swank-sprof.lisp
+++ b/contrib/swank-sprof.lisp
@@ -50,10 +50,9 @@
(samples-percent (sb-sprof::node-accrued-count node))))
(defun filter-swank-nodes (nodes)
- (let ((swank-packages (load-time-value
- (mapcar #'find-package
- '(swank swank/rpc swank/mop
- swank/match swank/backend)))))
+ (let ((swank-packages (loop for package in (list-all-packages)
+ when (search "SWANK" (package-name package)
:test #'char-equal)
+ collect package)))
(remove-if (lambda (node)
(let ((name (sb-sprof::node-name node)))
(and (symbolp name)
