🚀 go-pugleaf

	I'd wondered where the IP ARP table was hidden...  Anyway, to
celebrate its revelation, I wrote the following Medley function to dump the
interesting stuff to the terminal (for the idly curious).  [I know I should
have used WITH to decode the NSHOSTNUMBER typerecord, but this way the
function can be compiled without additional support files.]
--Christopher

(DEFINEQ (SHOW-ARP-CACHE ()

(LAMBDA NIL (* ; "Edited 22-Jun-89 17:07 by cvs") "symbolically displays the
contents of the IP Protocol ARP cache" (for HOST in (SORT \AR.IP.TO.10MB.ALIST
(CL:FUNCTION (LAMBDA (A B) (< (fetch IPADDRESS of A) (fetch IPADDRESS of
B))))) do (with ARENTRY HOST (PRINTOUT T (CL:PROGV (QUOTE (TYPENAME UPPER
MIDDLE RIGHT)) ETHERADDRESS (CL:FORMAT NIL "~O.~O.~O" UPPER MIDDLE RIGHT)) 21
(IPHOSTNAME IPADDRESS) 35 (DOMAIN.LOOKUP.NAME IPADDRESS) T))))

))