[packages/sbcl.git] / sbcl-tests.patch

--- sbcl-1.1.6/contrib/sb-bsd-sockets/tests.lisp~	2013-03-29 20:38:41.000000000 +0100
+++ sbcl-1.1.6/contrib/sb-bsd-sockets/tests.lisp	2013-04-26 13:07:32.325668837 +0200
@@ -191,7 +191,7 @@
                                 (declare (ignore e))
                                 (return nil))))
                 (sb-posix:s-issock
-                 (sb-posix::stat-mode (sb-posix:stat "/dev/log")))))
+                 (sb-posix::stat-mode (sb-posix:stat "/dev/log-dont-touch-that")))))
         (let ((s (make-instance 'local-socket :type :datagram)))
           (format t "Connecting ~A... " s)
           (finish-output)
Commit	Line	Data
9edfda11 JR	1	--- sbcl-1.1.6/contrib/sb-bsd-sockets/tests.lisp~ 2013-03-29 20:38:41.000000000 +0100
	2	+++ sbcl-1.1.6/contrib/sb-bsd-sockets/tests.lisp 2013-04-26 13:07:32.325668837 +0200
	3	@@ -191,7 +191,7 @@
	4	(declare (ignore e))
	5	(return nil))))
	6	(sb-posix:s-issock
	7	- (sb-posix::stat-mode (sb-posix:stat "/dev/log")))))
	8	+ (sb-posix::stat-mode (sb-posix:stat "/dev/log-dont-touch-that")))))
	9	(let ((s (make-instance 'local-socket :type :datagram)))
	10	(format t "Connecting ~A... " s)
	11	(finish-output)