1.1--- a/lisp/lib/net/util.lisp	Tue May 21 17:13:34 2024 -0400
     1.2+++ b/lisp/lib/net/util.lisp	Tue May 21 22:20:29 2024 -0400
     1.3@@ -4,6 +4,7 @@
     1.4 
     1.5 ;; from usocket
     1.6 (defun get-address-by-name (name)
     1.7+  "Return the address of a host by NAME."
     1.8   (multiple-value-bind (host4 host6)
     1.9       (get-host-by-name name)
    1.10     (let ((addr4 (when host4
    1.11@@ -14,7 +15,7 @@
    1.12 
    1.13 ;; from https://github.com/eudoxia0/find-port
    1.14 (defun port-open-p (port &key (host *localhost*))
    1.15-  "Determine if the port is open."
    1.16+  "Determine if a PORT is open on the given HOST."
    1.17   (handler-case
    1.18       (let ((socket (make-instance 'inet-socket :type :stream)))
    1.19         (setf (sockopt-reuse-address socket) t)