branch: externals/sly
commit 6662cf28f1efbd6dc3cf5417dfe958c9836f6eee
Author: Luís Oliveira <lolive...@common-lisp.net>
Commit: João Távora <joaotav...@gmail.com>
sbcl: Ignore DEFGENERICs without location
* slynk/backend/sbcl.lisp (find-definitions): Rework.
Cherry-picked-from: SLIME commit 4dabbe24ad064edf4ae2802dd93d22e130b7056d
Co-authored-by: João Távora <joaotav...@gmail.com>
---
slynk/backend/sbcl.lisp | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/slynk/backend/sbcl.lisp b/slynk/backend/sbcl.lisp
index 728ab88..9516569 100644
--- a/slynk/backend/sbcl.lisp
+++ b/slynk/backend/sbcl.lisp
@@ -828,10 +828,12 @@ QUALITIES is an alist with (quality . value)"
(defimplementation find-definitions (name)
(loop for type in *definition-types* by #'cddr
- for defsrcs = (remove :invalid
- (sb-introspect:find-definition-sources-by-name
name type)
- :key #'categorize-definition-source)
- append (loop for defsrc in defsrcs collect
+ for defsrcs = (sb-introspect:find-definition-sources-by-name name type)
+ for filtered-defsrcs = (if (eq type :generic-function)
+ (remove :invalid defsrcs
+ :key #'categorize-definition-source)
+ defsrcs)
+ append (loop for defsrc in filtered-defsrcs collect
(list (make-dspec type name defsrc)
(converting-errors-to-error-location
(definition-source-for-emacs defsrc
