[Sbcl-commits] CVS: sbcl/contrib/sb-posix posix-tests.lisp, 1.40, 1.41

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv460/contrib/sb-posix

Modified Files:
	posix-tests.lisp 
Log Message:
1.0.24.15: contrib fixes for HPPA

 * Fix or disable what breaks in contribs, so not everything breaks.

 * Patch by Larry Valkama.


Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- posix-tests.lisp	5 Nov 2008 03:46:47 -0000	1.40
+++ posix-tests.lisp	3 Jan 2009 16:10:19 -0000	1.41
@@ -405,6 +405,7 @@
         (ignore-errors (sb-posix:unlink name))))
   nil)
 
+#-hpux ; fix: cant handle c-vargs
 (deftest open.error.1
   (handler-case (sb-posix:open *test-directory* sb-posix::o-wronly)
     (sb-posix:syscall-error (c)
@@ -428,7 +429,7 @@
                   sb-posix::o-nonblock)))
   t)
 
-#-win32
+#-(or hpux win32) ; fix: cant handle c-vargs
 (deftest fcntl.flock.1
     (locally (declare (sb-ext:muffle-conditions sb-ext:compiler-note))
       (let ((flock (make-instance 'sb-posix:flock
@@ -643,6 +644,7 @@
   ;; Same thing, but with a very long link target (which doesn't have
   ;; to exist).  This tests the array adjustment in the wrapper,
   ;; provided that the target's length is long enough.
+  #-hpux ; arg2 to readlink is 80, and arg0 is larger than that
   (deftest readlink.2
       (let ((target-pathname (make-pathname
                               :name (make-string 255 :initial-element #\a)
@@ -765,7 +767,7 @@
           (delete-file temp))))
   t "mkstemp-1")
 
-#-(or win32 sunos)
+#-(or win32 sunos hpux)
 ;;; mkdtemp is unimplemented on at least Solaris 10
 (deftest mkdtemp.1
     (let ((pathname