X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tools-for-build%2Fwxs.lisp;h=bfe05b40d8ea75327a07dcd88f377e9ee3176c32;hb=8f79e6459a0e8fdd33c81a66f7e4adfa13f25005;hp=bcc928e7387807f1eaf3ac3d2f799038305ef5d9;hpb=e6132565e6dc12d8ec7f05224ffb422107e3ef4e;p=sbcl.git

diff --git a/tools-for-build/wxs.lisp b/tools-for-build/wxs.lisp
index bcc928e..bfe05b4 100644
--- a/tools-for-build/wxs.lisp
+++ b/tools-for-build/wxs.lisp
@@ -95,7 +95,7 @@
       (free-alien guid))))
 
 (defun list-all-contribs ()
-  (loop for flag in (directory "../contrib/*/test-passed")
+  (loop for flag in (directory "../obj/asdf-cache/*/test-passed.test-report")
         collect (car (last (pathname-directory flag)))))
 
 (defvar *id-char-substitutions* '((#\\ . #\_)
@@ -170,7 +170,7 @@
                 append (collect-components directory))))
 
 (defun collect-contrib-components ()
-  (loop for contrib in (directory "../contrib/*/test-passed")
+  (loop for contrib in (directory "../obj/asdf-cache/*/test-passed.test-report")
         append (collect-components (make-pathname :name nil
                                                   :type nil
                                                   :version nil