X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsb-bsd-sockets.asd;h=e17fc63beaf27b140ad4f95a9c12653cf1d81ee9;hb=a7699535aaba71765335f3be0a2103b2f07941af;hp=7bbf5d90839cd449c07a4b1977fecf79a15b51f2;hpb=d0f4d5a8caeb1982083cb973cb1e6844457ed58f;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
index 7bbf5d9..e17fc63 100644
--- a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
+++ b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
@@ -54,6 +54,7 @@
 (defmethod perform ((o test-op) (c (eql (find-system :sb-bsd-sockets-tests))))
   (multiple-value-bind (soft strict pending)
       (funcall (intern "DO-TESTS" (find-package "SB-RT")))
+    (declare (ignorable pending))
     (fresh-line)
     (unless strict
       #+sb-testing-contrib