1 files changed, 57 insertions, 0 deletions
diff --git a/dev-lisp/sbcl/files/0.8.8/posix-tests.lisp-sandbox-gentoo.patch b/dev-lisp/sbcl/files/0.8.8/posix-tests.lisp-sandbox-gentoo.patch
new file mode 100644
index 000000000000..5e482a6a4b8a
--- /dev/null
+++ b/dev-lisp/sbcl/files/0.8.8/posix-tests.lisp-sandbox-gentoo.patch
@@ -0,0 +1,57 @@
+diff -ur sbcl-0.8.7.original/contrib/sb-posix/posix-tests.lisp sbcl-0.8.7/contrib/sb-posix/posix-tests.lisp
+--- sbcl-0.8.7.original/contrib/sb-posix/posix-tests.lisp	2003-11-28 21:50:00.000000000 -0600
++++ sbcl-0.8.7/contrib/sb-posix/posix-tests.lisp	2004-01-10 20:33:11.527976216 -0600
+@@ -76,19 +76,19 @@
+       (sb-posix:syscall-errno c)))
+   #.sb-posix::eexist)
+ 
+-(deftest mkdir.error.2
+-  (handler-case
+-      (sb-posix:mkdir "/" 0)
+-    (sb-posix:syscall-error (c)
+-      (sb-posix:syscall-errno c)))
+-  #.sb-posix::eexist)
+-
+-(deftest mkdir.error.3
+-  (handler-case
+-      (sb-posix:mkdir "/almost-certainly-does-not-exist" 0)
+-    (sb-posix:syscall-error (c)
+-      (sb-posix:syscall-errno c)))
+-  #.sb-posix::eacces)
++;; (deftest mkdir.error.2
++;;   (handler-case
++;;       (sb-posix:mkdir "/" 0)
++;;     (sb-posix:syscall-error (c)
++;;       (sb-posix:syscall-errno c)))
++;;   #.sb-posix::eexist)
++
++;; (deftest mkdir.error.3
++;;   (handler-case
++;;       (sb-posix:mkdir "/almost-certainly-does-not-exist" 0)
++;;     (sb-posix:syscall-error (c)
++;;       (sb-posix:syscall-errno c)))
++;;   #.sb-posix::eacces)
+ 
+ (deftest rmdir.1
+   (let ((dne (make-pathname :directory '(:relative "rmdir.does-not-exist.1"))))
+@@ -117,13 +117,13 @@
+       (sb-posix:syscall-errno c)))
+   #.sb-posix::enotdir)
+ 
+-#-sunos ; Apparently gives EINVAL on SunOS 8, which doesn't make sense
+-(deftest rmdir.error.3
+-  (handler-case
+-      (sb-posix:rmdir "/")
+-    (sb-posix:syscall-error (c)
+-      (sb-posix:syscall-errno c)))
+-  #.sb-posix::ebusy)
++;; #-sunos ; Apparently gives EINVAL on SunOS 8, which doesn't make sense
++;; (deftest rmdir.error.3
++;;   (handler-case
++;;       (sb-posix:rmdir "/")
++;;     (sb-posix:syscall-error (c)
++;;       (sb-posix:syscall-errno c)))
++;;   #.sb-posix::ebusy)
+ 
+ (deftest rmdir.error.4
+   (let* ((dir (ensure-directories-exist