Remove a style-warning from sb-bsd-sockets.asd when #-sb-testing-contrib.

[sbcl.git] / contrib / sb-bsd-sockets / sb-bsd-sockets.asd

diff --git a/contrib/sb-bsd-sockets/sb-bsd-sockets.asd b/contrib/sb-bsd-sockets/sb-bsd-sockets.asd
index 7bbf5d9..e17fc63 100644 (file)
--- 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