Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!SUMEX-AIM.STANFORD.EDU!schmidt
From: schmidt@SUMEX-AIM.STANFORD.EDU (Christopher Schmidt)
Newsgroups: comp.sys.xerox
Subject: Re: ether weirdness
Message-ID: <644533306.A7119.KSL-1186-1.schmidt@SUMEX-AIM.Stanford.EDU>
Date: 23 Jun 89 00:15:54 GMT
References: <890622-141111-1426@Xerox>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 18


	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))))

))