X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fsb-introspect.asd;fp=contrib%2Fsb-introspect%2Fsb-introspect.asd;h=62734d00ef36b916ddcfbd24c91bb03b68240947;hb=37bf7dd7201a3b8c8db4b07b32934f6c5d3b6fdd;hp=d547cc67f1a9d8ac8859794d3956f9f9e1f5e7e5;hpb=9b69e80c82ef126a8f9c120113d4e75b17845f13;p=sbcl.git

diff --git a/contrib/sb-introspect/sb-introspect.asd b/contrib/sb-introspect/sb-introspect.asd
index d547cc6..62734d0 100644
--- a/contrib/sb-introspect/sb-introspect.asd
+++ b/contrib/sb-introspect/sb-introspect.asd
@@ -63,8 +63,8 @@
          (make-pathname :directory (pathname-directory
                                     '#.(or *compile-file-pathname*
                                            *load-pathname*)))))
-    (multiple-value-bind (soft strict pending)
-        (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+    (multiple-value-bind (soft strict #+sb-testing-contrib pending)
+        (funcall (find-symbol "DO-TESTS" "SB-RT"))
       (fresh-line)
       (unless strict
         #+sb-testing-contrib