X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=6a7931efba3d0bba6ed38c58b8f2f343bbf055a1;hb=1b650be8b800cf96e2c268ae317fb26d0bf36827;hp=eea023a805342f4723157ae64cbafef557fd435b;hpb=9cf13e525f0496e50e01abca173cc0e2037d55ee;p=sbcl.git
diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index eea023a..6a7931e 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -133,7 +133,7 @@ Tests are in the file tests.lisp and also make good examples.
;;; to look at /etc/syslog.conf or local equivalent to find out where
;;; the message ended up
-#-sunos
+#-(or sunos darwin)
(deftest simple-local-client
(let ((s (make-instance 'local-socket :type :datagram)))
(format t "Connecting ~A... " s)
@@ -153,7 +153,7 @@ Tests are in the file tests.lisp and also make good examples.
t)
-;;; these require that the internet (or bits of it, atleast) is available
+;;; these require that the internet (or bits of it, at least) is available
#+internet-available
(deftest get-host-by-name