1 files changed, 0 insertions, 54 deletions
diff --git a/dev-lisp/sbcl/files/0.9.17/disable-tests-gentoo.patch b/dev-lisp/sbcl/files/0.9.17/disable-tests-gentoo.patch
deleted file mode 100644
index d68ee4250ba6..000000000000
--- a/dev-lisp/sbcl/files/0.9.17/disable-tests-gentoo.patch
+++ /dev/null
@@ -1,54 +0,0 @@
-diff -ur sbcl-0.9.14.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.9.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
---- sbcl-0.9.17.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2006-06-09 09:11:29.000000000 -0500
-+++ sbcl-0.9.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2006-07-09 11:42:19.000000000 -0500
-@@ -42,19 +42,3 @@
- 
- (defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
-   (provide 'sb-bsd-sockets))
--
--#-win32
--(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets))))
--  (operate 'load-op 'sb-bsd-sockets-tests)
--  (operate 'test-op 'sb-bsd-sockets-tests))
--
--#-win32
--(defsystem sb-bsd-sockets-tests
--  :depends-on (sb-rt sb-bsd-sockets #-win32 sb-posix)
--  :components ((:file "tests")))
--
--#-win32
--(defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
--  (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
--      (error "test-op failed")))
--
-diff -ur sbcl-0.9.17.orig/contrib/sb-posix/sb-posix.asd sbcl-0.9.17/contrib/sb-posix/sb-posix.asd
---- sbcl-0.9.17.orig/contrib/sb-posix/sb-posix.asd	2006-03-07 06:04:27.000000000 -0600
-+++ sbcl-0.9.17/contrib/sb-posix/sb-posix.asd	2006-07-09 11:43:16.000000000 -0500
-@@ -22,27 +22,3 @@
- 
- (defmethod perform :after ((o load-op) (c (eql (find-system :sb-posix))))
-   (provide 'sb-posix))
--
--(defmethod perform ((o test-op) (c (eql (find-system :sb-posix))))
--  (operate 'load-op 'sb-posix-tests)
--  (operate 'test-op 'sb-posix-tests))
--
--(defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests))))
--  (funcall (intern "DO-TESTS" (find-package "SB-RT")))
--  (let ((failures (funcall (intern "PENDING-TESTS" "SB-RT")))
--	(ignored-failures (loop for sym being the symbols of :sb-posix-tests
--			        if (search ".ERROR" (symbol-name sym))
--			        collect sym)))
--    (cond
--      ((null failures)
--       t)	     
--      ((null (set-difference failures ignored-failures))
--       (warn "~@<some POSIX implementations return incorrect error values for ~
--              failing calls, but there is legitimate variation between ~
--              implementations too.  If you think the errno ~
--              from your platform is valid, please contact the sbcl ~
--              developers; otherwise, please submit a bug report to your ~
--              kernel distributor~@:>")
--       t)
--      (t
--       (error "non-errno tests failed!")))))