projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove a style-warning from sb-bsd-sockets.asd when #-sb-testing-contrib.
[sbcl.git]
/
tests
/
run-tests.lisp
diff --git
a/tests/run-tests.lisp
b/tests/run-tests.lisp
index
5b27987
..
1020dad
100644
(file)
--- a/
tests/run-tests.lisp
+++ b/
tests/run-tests.lisp
@@
-1,11
+1,9
@@
#+#.(cl:if (cl:find-package "ASDF") '(or) '(and))
#+#.(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))
#+#.(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")
(load "test-util.lisp")
@@
-143,7
+141,7
@@
(t
(format *error-output* "~&Unhandled ~a: ~a~%"
(type-of condition) condition)
(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 ()
(invoke-restart 'skip-file))))
,test-code)
(skip-file ()
@@
-176,7
+174,7
@@
(t
(format *error-output* "~&Unhandled ~a: ~a~%"
(type-of condition) condition)
(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*))
(invoke-restart 'skip-file)))
(defun append-failures (&optional (failures *failures*))