From 970d2d697d04e98fc0d8138dbd6ea9364ad14061 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 3 Dec 2016 21:58:43 +0300 Subject: [PATCH] sb-introspect:find-definition-sources-by-name add more :optimizer types. --- contrib/sb-introspect/introspect.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp index 5e01807f5..4f85c9951 100644 --- a/contrib/sb-introspect/introspect.lisp +++ b/contrib/sb-introspect/introspect.lisp @@ -368,7 +368,13 @@ If an unsupported TYPE is requested, the function will return NIL. (sb-c:fun-info-optimizer . sb-c:optimizer) (sb-c:fun-info-ir2-convert . sb-c:ir2-convert) (sb-c::fun-info-stack-allocate-result - . sb-c::stack-allocate-result)))) + . sb-c::stack-allocate-result) + (sb-c::fun-info-constraint-propagate + . sb-c::constraint-propagate) + (sb-c::fun-info-constraint-propagate-if + . sb-c::constraint-propagate-if) + (sb-c::fun-info-call-type-deriver + . sb-c::call-type-deriver)))) (loop for (reader . name) in otypes for fn = (funcall reader fun-info) when fn collect -- 2.11.4.GIT