Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv31936/contrib/sb-bsd-sockets

Modified Files:
	tests.lisp 
Log Message:
1.0.5.15: fix SB-BSD-SOCKETS tests on chrooted NetBSD 

         * Handle dangling /dev/log symlink
         * Patch by Richard Kreuter


Index: tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/tests.lisp,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- tests.lisp	4 Mar 2007 23:42:32 -0000	1.21
+++ tests.lisp	30 Apr 2007 21:01:42 -0000	1.22
@@ -162,9 +162,13 @@
       ;; something, so don't fail this test just because the file is
       ;; unavailable, or if it's a symlink to some weird character
       ;; device.
-      (when (and (probe-file "/dev/log")
-                 (sb-posix:s-issock
-                  (sb-posix::stat-mode (sb-posix:stat "/dev/log"))))
+      (when (block nil
+              (handler-bind ((sb-posix:syscall-error
+                              (lambda (e)
+                                (declare (ignore e))
+                                (return nil))))
+                (sb-posix:s-issock
+                 (sb-posix::stat-mode (sb-posix:stat "/dev/log")))))
         (let ((s (make-instance 'local-socket :type :datagram)))
           (format t "Connecting ~A... " s)
           (finish-output)