Update of /project/movitz/cvsroot/movitz/losp/lib/net In directory common-lisp.net:/tmp/cvs-serv30174 Modified Files: arp.lisp Log Message: *** empty log message *** Date: Wed Nov 24 18:27:43 2004 Author: ffjeld Index: movitz/losp/lib/net/arp.lisp diff -u movitz/losp/lib/net/arp.lisp:1.7 movitz/losp/lib/net/arp.lisp:1.8 --- movitz/losp/lib/net/arp.lisp:1.7 Wed Nov 24 11:09:12 2004 +++ movitz/losp/lib/net/arp.lisp Wed Nov 24 18:27:42 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Thu Mar 20 15:01:15 2003 ;;;; -;;;; $Id: arp.lisp,v 1.7 2004/11/24 10:09:12 ffjeld Exp $ +;;;; $Id: arp.lisp,v 1.8 2004/11/24 17:27:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -79,10 +79,10 @@ (defvar *ne2000* nil) -(defun polling-arp (ip &optional (waiter #'false)) +(defun polling-arp (ip &optional (breaker #'false)) (loop with ip = (ip4-address ip) and nic = *ip4-nic* and transmit-time = 0 for packet = (muerte.ethernet:receive nic) - until (funcall waiter) + until (funcall breaker) do (when (and packet (eq +ether-type-arp+ (ether-type packet)) (eq +arp-op-reply+ (arp-operation packet))