[movitz-cvs] CVS update: movitz/losp/lib/net/arp.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/lib/net
In directory common-lisp.net:/tmp/cvs-serv13863

Modified Files:
	arp.lisp 
Log Message:
There's no #'false, it's (constantly nil).

Date: Wed Nov 24 23:11:43 2004
Author: ffjeld

Index: movitz/losp/lib/net/arp.lisp
diff -u movitz/losp/lib/net/arp.lisp:1.8 movitz/losp/lib/net/arp.lisp:1.9
--- movitz/losp/lib/net/arp.lisp:1.8	Wed Nov 24 18:27:42 2004
+++ movitz/losp/lib/net/arp.lisp	Wed Nov 24 23:11:43 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Mar 20 15:01:15 2003
 ;;;;                
-;;;; $Id: arp.lisp,v 1.8 2004/11/24 17:27:42 ffjeld Exp $
+;;;; $Id: arp.lisp,v 1.9 2004/11/24 22:11:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -79,7 +79,7 @@
 
 (defvar *ne2000* nil)
 
-(defun polling-arp (ip &optional (breaker #'false))
+(defun polling-arp (ip &optional (breaker (constantly nil)))
   (loop with ip = (ip4-address ip) and nic = *ip4-nic* and transmit-time = 0
       for packet = (muerte.ethernet:receive nic)
       until (funcall breaker)