X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-introspect%2Fsb-introspect.asd;h=bb1cbaa8edcd5c17d7c72ca768652bd77d1d0a76;hb=e5334bc7f2c88a5819e45e2d6e1cfe18af355169;hp=b484c237ed054e737ba9e101c6de28dbaa439981;hpb=d351f80b1076dd54e5aee3dacab82d59c2e58060;p=sbcl.git

diff --git a/contrib/sb-introspect/sb-introspect.asd b/contrib/sb-introspect/sb-introspect.asd
index b484c23..bb1cbaa 100644
--- a/contrib/sb-introspect/sb-introspect.asd
+++ b/contrib/sb-introspect/sb-introspect.asd
@@ -46,5 +46,13 @@
                (:file "test-driver" :depends-on ("test"))))
 
 (defmethod perform ((op test-op) (com (eql (find-system :sb-introspect-tests))))
-  (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
-      (error "~S failed" 'test-op)))
+  ;; N.b. At least DEFINITION-SOURCE-PLIST.1 assumes that CWD is the
+  ;; contrib/sb-introspect directory which is true for when this is
+  ;; implicitly run via make-target-contribs.sh -- but not when this
+  ;; is executed manually.
+  (let ((*default-pathname-defaults*
+         (make-pathname :directory (pathname-directory
+                                    '#.(or *compile-file-pathname*
+                                           *load-pathname*)))))
+    (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+        (error "~S failed" 'test-op))))