[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-serv27926

Modified Files:
	tftp.lisp 
Log Message:
minor edit.

Date: Thu Nov 25 03:09:56 2004
Author: ffjeld

Index: movitz/losp/lib/net/tftp.lisp
diff -u movitz/losp/lib/net/tftp.lisp:1.2 movitz/losp/lib/net/tftp.lisp:1.3
--- movitz/losp/lib/net/tftp.lisp:1.2	Wed Nov 24 17:22:21 2004
+++ movitz/losp/lib/net/tftp.lisp	Thu Nov 25 03:09:55 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.2 2004/11/24 16:22:21 ffjeld Exp $
+;;;; $Id: tftp.lisp,v 1.3 2004/11/25 02:09:55 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -64,7 +64,7 @@
 				 (data-length (length data-vector))
 				 (breaker (lambda ()
 					    (eql #\esc (muerte.x86-pc.keyboard:poll-char)))))
-  "Low-level TFTP write data-vector to file-name on host ip using *ip4-nic*.
+  "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*))
 	(ip (ip4-address ip)))