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

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 5b27987..1020dad 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")
 
@@ -143,7 +141,7 @@
                                 (t
                                  (format *error-output* "~&Unhandled ~a: ~a~%"
                                          (type-of condition) condition)
-                                 (sb-debug:backtrace)))
+                                 (sb-debug:print-backtrace)))
                           (invoke-restart 'skip-file))))
               ,test-code)
           (skip-file ()
@@ -176,7 +174,7 @@
           (t
            (format *error-output* "~&Unhandled ~a: ~a~%"
                    (type-of condition) condition)
-           (sb-debug:backtrace)))
+           (sb-debug:print-backtrace)))
     (invoke-restart 'skip-file)))
 
 (defun append-failures (&optional (failures *failures*))