1 files changed, 56 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.8.17/sbcl-no-tests-gentoo.patch b/dev-lisp/sbcl/files/0.8.17/sbcl-no-tests-gentoo.patch
new file mode 100644
index 000000000000..6fc4aa2b360d
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.8.17/sbcl-no-tests-gentoo.patch
@@ -0,0 +1,56 @@
+diff -ur sbcl-0.8.17.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.8.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+--- sbcl-0.8.17.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2004-02-11 05:00:40.000000000 -0600
++++ sbcl-0.8.17/contrib/sb-bsd-sockets/sb-bsd-sockets.asd	2004-07-11 15:30:52.230966464 -0500
+@@ -103,14 +103,3 @@
+ (defmethod perform :after ((o load-op) (c (eql (find-system :sb-bsd-sockets))))
+   (provide 'sb-bsd-sockets))
+ 
+-(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))
+-
+-(defsystem sb-bsd-sockets-tests
+-  :depends-on (sb-rt sb-bsd-sockets sb-posix)
+-  :components ((:file "tests")))
+-
+-(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.8.17.orig/contrib/sb-posix/sb-posix.asd sbcl-0.8.17/contrib/sb-posix/sb-posix.asd
+--- sbcl-0.8.17.orig/contrib/sb-posix/sb-posix.asd	2003-11-29 14:41:47.000000000 -0600
++++ sbcl-0.8.17/contrib/sb-posix/sb-posix.asd	2004-07-11 15:52:38.766342896 -0500
+@@ -86,34 +86,3 @@
+ 		  "constants"
+ 		  :package :sb-posix :depends-on  ("defpackage"))
+ 		 (:file "interface" :depends-on ("constants" "macros" "designator" "alien"))))
+-
+-(defsystem sb-posix-tests
+-    :depends-on (sb-rt)
+-    :components ((:file "posix-tests")))
+-
+-(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!")))))