From cf136a58e0377069d4f5f79e7dcac70723ca514e Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Thu, 5 Jan 2017 17:13:48 +0300 Subject: [PATCH] sb-introspect:find-definition-sources-by-name return all locations of VOPs. Both translated and named. --- contrib/sb-introspect/introspect.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp index fb830f9ce..2839ac6f5 100644 --- a/contrib/sb-introspect/introspect.lisp +++ b/contrib/sb-introspect/introspect.lisp @@ -383,10 +383,12 @@ If an unsupported TYPE is requested, the function will return NIL. (list name)) source)))))) (:vop - (let ((loc (sb-int:info :source-location type name))) + (let ((loc (sb-int:info :source-location type name)) + (translated (find-vop-source name))) (if loc - (translate-source-location loc) - (find-vop-source name)))) + (cons (translate-source-location loc) + translated) + translated))) (:alien-type (let ((loc (sb-int:info :source-location type name))) (and loc -- 2.11.4.GIT