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

Modified Files: tftp.lisp Log Message: Say #\escape rather than #\esc, since that seems to be more generally acceptable.

Date: Thu Dec 9 00:40:15 2004 Author: ffjeld

Index: movitz/losp/lib/net/tftp.lisp diff -u movitz/losp/lib/net/tftp.lisp:1.3 movitz/losp/lib/net/tftp.lisp:1.4 --- movitz/losp/lib/net/tftp.lisp:1.3 Thu Nov 25 03:09:55 2004 +++ movitz/losp/lib/net/tftp.lisp Thu Dec 9 00:40:15 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Oct 6 12:42:51 2004 ;;;; -;;;; $Id: tftp.lisp,v 1.3 2004/11/25 02:09:55 ffjeld Exp $ +;;;; $Id: tftp.lisp,v 1.4 2004/12/08 23:40:15 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -56,14 +56,14 @@ (tftp/ethernet-write :129.242.16.151 file-name data :mac (polling-arp :129.242.16.1 (lambda () - (eql #\esc (muerte.x86-pc.keyboard:poll-char))))))) + (eql #\space (muerte.x86-pc.keyboard:poll-char)))))))

(defun tftp/ethernet-write (ip file-name data-vector &key (mode "octet") mac quiet (timeout 2) (data-length (length data-vector)) (breaker (lambda () - (eql #\esc (muerte.x86-pc.keyboard:poll-char))))) + (eql #\space (muerte.x86-pc.keyboard:poll-char))))) "TFTP write data-vector to file-name on host ip using *ip4-nic*. The host's MAC is looked up by ARP unless provided." (let ((speak (if quiet nil *query-io*))