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

[Frode Vatvedt Fjeld]

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