diff options
Diffstat (limited to 'dev-lisp/sbcl/files/0.9.5/sbcl-gentoo.patch')
| -rw-r--r-- | dev-lisp/sbcl/files/0.9.5/sbcl-gentoo.patch | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.9.5/sbcl-gentoo.patch b/dev-lisp/sbcl/files/0.9.5/sbcl-gentoo.patch new file mode 100644 index 000000000000..adb5d40d479d --- /dev/null +++ b/dev-lisp/sbcl/files/0.9.5/sbcl-gentoo.patch @@ -0,0 +1,70 @@ +diff -ur sbcl-0.9.5.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd sbcl-0.9.5/contrib/sb-bsd-sockets/sb-bsd-sockets.asd +--- sbcl-0.9.5.orig/contrib/sb-bsd-sockets/sb-bsd-sockets.asd 2004-08-02 06:42:56.000000000 -0500 ++++ sbcl-0.9.5/contrib/sb-bsd-sockets/sb-bsd-sockets.asd 2005-09-28 12:34:17.000000000 -0500 +@@ -102,15 +102,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"))) +Only in sbcl-0.9.5/contrib/sb-bsd-sockets: sb-bsd-sockets.asd.~1.22.~ +diff -ur sbcl-0.9.5.orig/contrib/sb-posix/sb-posix.asd sbcl-0.9.5/contrib/sb-posix/sb-posix.asd +--- sbcl-0.9.5.orig/contrib/sb-posix/sb-posix.asd 2004-08-04 05:54:18.000000000 -0500 ++++ sbcl-0.9.5/contrib/sb-posix/sb-posix.asd 2005-09-28 12:35:34.000000000 -0500 +@@ -88,33 +88,5 @@ + :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!"))))) +Only in sbcl-0.9.5/contrib/sb-posix: sb-posix.asd.~1.11.~ +diff -ur sbcl-0.9.5.orig/src/runtime/runtime.c sbcl-0.9.5/src/runtime/runtime.c +--- sbcl-0.9.5.orig/src/runtime/runtime.c 2005-09-21 10:01:15.000000000 -0500 ++++ sbcl-0.9.5/src/runtime/runtime.c 2005-09-28 16:33:46.000000000 -0500 +@@ -62,7 +62,7 @@ + #endif + + #ifndef SBCL_HOME +-#define SBCL_HOME "/usr/local/lib/sbcl/" ++#define SBCL_HOME "/usr/lib/sbcl/" + #endif + + |