blob: 7a7b12bdea14b77ad5b51581e52f4e8561dd467b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
diff -r -U1 sbcl-1.2.2.orig/contrib/sb-bsd-sockets/tests.lisp sbcl-1.2.2/contrib/sb-bsd-sockets/tests.lisp
--- sbcl-1.2.2.orig/contrib/sb-bsd-sockets/tests.lisp 2014-07-28 17:15:05.000000000 +0700
+++ sbcl-1.2.2/contrib/sb-bsd-sockets/tests.lisp 2014-08-01 19:48:30.011931081 +0700
@@ -31,11 +31,11 @@
;;; for unknown protocols...
-#-(and freebsd sb-thread)
-#-(and dragonfly sb-thread)
-(deftest get-protocol-by-name/error
- (handler-case (get-protocol-by-name "nonexistent-protocol")
- (unknown-protocol ()
- t)
- (:no-error ()
- nil))
- t)
+;#-(and freebsd sb-thread)
+;#-(and dragonfly sb-thread)
+;(deftest get-protocol-by-name/error
+; (handler-case (get-protocol-by-name "nonexistent-protocol")
+; (unknown-protocol ()
+; t)
+; (:no-error ()
+; nil))
+; t)
|
GitWeb
