X-Git-Url: http://dolda2000.com/gitweb/?p=lisp-utils.git;a=blobdiff_plain;f=net-sb-bsd.lisp;h=9c757c5bd40dbfbcb95362e86abedbd65f3ed233;hp=67d9c3199acc28e4f77f344496195f7f7816f918;hb=d1cf3c66517b1f83cf465eeb1d0b44fc653cf2f8;hpb=b5018cad88ddc3109c7ae27b6eb249709f1bbc71

diff --git a/net-sb-bsd.lisp b/net-sb-bsd.lisp
index 67d9c31..9c757c5 100644
--- a/net-sb-bsd.lisp
+++ b/net-sb-bsd.lisp
@@ -52,13 +52,13 @@
     (udp4-address
      '(sb-bsd-sockets:inet-socket :type :datagram))
     (ipv6-address
-     (error "SBCL does not support IPv6."))
+     (simple-network-error "SBCL does not support IPv6."))
     (inet-host-address
-     (error "SBCL does not support raw sockets."))
+     (simple-network-error "SBCL does not support raw sockets."))
     (local-stream-address
      '(sb-bsd-sockets:local-socket :type :stream))
     (local-seq-address
-     (error "SBCL does not support Unix seqpacket sockets."))
+     (simple-network-error "SBCL does not support Unix seqpacket sockets."))
     (local-datagram-address
      '(sb-bsd-sockets:local-socket :type :datagram))))
 
@@ -137,7 +137,7 @@
 (defmethod socket-send-to ((socket sbcl-socket) buf destination &key (start 0) (end (length buf)) from no-hang)
   (check-not-closed socket)
   (when from
-    (error "SB-BSD-THREADS does not support specifying the source address of individual packets."))
+    (simple-network-error "SB-BSD-THREADS does not support specifying the source address of individual packets."))
   (let ((result (map-sb-bsd-errors (socket)
 		  (retry-loop ("Retry the send operation.")
 		    (sb-bsd-sockets:socket-send (slot-value socket 'sb-socket)