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

[Frode Vatvedt Fjeld]

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

Modified Files:
	ip4.lisp 
Log Message:
Minor edits.

Date: Thu Apr  1 12:29:44 2004
Author: ffjeld

Index: movitz/losp/lib/net/ip4.lisp
diff -u movitz/losp/lib/net/ip4.lisp:1.5 movitz/losp/lib/net/ip4.lisp:1.6
--- movitz/losp/lib/net/ip4.lisp:1.5	Thu Feb 26 06:26:24 2004
+++ movitz/losp/lib/net/ip4.lisp	Thu Apr  1 12:29:44 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Apr 30 13:52:57 2003
 ;;;;                
-;;;; $Id: ip4.lisp,v 1.5 2004/02/26 11:26:24 ffjeld Exp $
+;;;; $Id: ip4.lisp,v 1.6 2004/04/01 17:29:44 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -91,8 +91,12 @@
 	     (loop for x from y below (min (length packet) (+ y 16))
 		 as c = (code-char (aref packet x))
 		 do (write-char (if (alphanumericp c) c #\.)))))
-     ((mismatch packet (address stack) :start1 (+ start +ip-header-destination+) :end1 (+ start +ip-header-destination+ 4))
-      #+ignore (warn "IPv4 Packet from ~@/ip4:pprint-ip4/ not for me, but for ~:/ip4:pprint-ip4/." packet packet))
+     ((mismatch packet (address stack)
+		:start1 (+ start +ip-header-destination+)
+		:end1 (+ start +ip-header-destination+ 4))
+      #+ignore
+      (warn "IPv4 Packet from ~@/ip4:pprint-ip4/ not for me, but for ~:/ip4:pprint-ip4/."
+	    packet packet))
      (t (named-integer-case ip-protocol (ip-protocol packet start)
 	  (icmp
 	   (icmp-input stack packet start (+ start header-size)))
@@ -244,7 +248,7 @@
 	  (+ (ldb (byte 16 0) new-checksum)
 	     (ash new-checksum -16))))
       (transmit (interface stack) packet)
-      (write-char #\.)))))
+      #+ignore (write-char #\.)))))
 
 ;;;; UDP