X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=b67497e9d2f4918b3350bb3773ebe2adb806af0d;hb=43c6634142a96e1d1bab2efe1a39cd8234903c41;hp=5b2798739deb86d3d5bd5fd662a214a99d8eefe5;hpb=3cd0a9aafc20ce12075f38ebaed86676c922fde2;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 5b27987..b67497e 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -1,11 +1,9 @@
 #+#.(cl:if (cl:find-package "ASDF") '(or) '(and))
-(load (merge-pathnames "../contrib/asdf/asdf.fasl"))
+(require :asdf)
 
 #+#.(cl:if (cl:find-package "SB-POSIX") '(or) '(and))
-(let ((asdf:*central-registry*
-       (cons "../contrib/systems/" asdf:*central-registry*)))
-  (handler-bind (#+win32 (warning #'muffle-warning))
-    (asdf:oos 'asdf:load-op 'sb-posix)))
+(handler-bind (#+win32 (warning #'muffle-warning))
+  (require :sb-posix))
 
 (load "test-util.lisp")