net.lisp: Report some more useful errors.

[zone] / net.lisp

diff --git a/net.lisp b/net.lisp
index d245e91..aa7e395 100644 (file)
--- a/net.lisp
+++ b/net.lisp
@@ -1162,7 +1162,9 @@
                                 (cons ipn ipns)))
                           ipns
                           :initial-value nil)))
-      (or merged (error "No matching addresses.")))))
+      (or merged
+         (error "No addresses match ~S~:[ in family ~S~;~*~]."
+                form (eq family t) family)))))
 
 (export 'net-host)
 (defun net-host (net-form host &optional (family t))
@@ -1279,7 +1281,8 @@
                                                   :initial-value nil))
                     (car list))))
       (unless (host-addrs host)
-       (error "No matching addresses."))
+       (error "No addresses match ~S~:[ in family ~S~;~*~]."
+              addr (eq family t) family))
       host)))
 
 (export 'host-create)