Quick util to print out the IP addresses on a machine. Requires Quicklisp.

ips.cl

(ql:quickload :ip-interfaces)

(defun ip-as-string (interface)
  (format nil "~{~A~^~.~}" (map 'list (lambda (x) x) (ip-interfaces:ip-interface-address interface))))

(defun print-interface-ip (interface)
  (format t "~A: ~A~%" (ip-interfaces:ip-interface-name interface) (ip-as-string interface)))
  
(loop for interface in (ip-interfaces:get-ip-interfaces)
  do (print-interface-ip interface))