From aee08db8b5328dc1bc2608b89a54ca6a10b50690 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 4 Feb 2024 19:38:16 +0000 Subject: [PATCH] net.lisp: Report some more useful errors. Organization: Straylight/Edgeware From: Mark Wooding --- net.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/net.lisp b/net.lisp index d245e91..aa7e395 100644 --- a/net.lisp +++ b/net.lisp @@ -1162,7 +1162,9 @@ (defun net-parse-to-ipnets (form &optional (family t)) (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 @@ (defun host-parse (addr &optional (family t)) :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) -- [mdw]