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

[Frode Vatvedt Fjeld]

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

Modified Files:
	ip6.lisp 
Log Message:
Comment out some old profiling stuff.

Date: Thu Feb 26 06:27:07 2004
Author: ffjeld

Index: movitz/losp/lib/net/ip6.lisp
diff -u movitz/losp/lib/net/ip6.lisp:1.4 movitz/losp/lib/net/ip6.lisp:1.5
--- movitz/losp/lib/net/ip6.lisp:1.4	Fri Feb 13 17:11:34 2004
+++ movitz/losp/lib/net/ip6.lisp	Thu Feb 26 06:27:07 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Nov 14 17:25:31 2001
 ;;;;                
-;;;; $Id: ip6.lisp,v 1.4 2004/02/13 22:11:34 ffjeld Exp $
+;;;; $Id: ip6.lisp,v 1.5 2004/02/26 11:27:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -611,7 +611,7 @@
 		   (unless request
 		     (return-from process-request))
 		   (macrolet ((profile-point ()
-				`(vector-push (pit8253-timer-count 0) timings)))
+				#+ignore `(vector-push (pit8253-timer-count 0) timings)))
 		     (profile-point)
 		     (when (and (= +ether-type-ip6+ (ether-type request))
 				(= 6 (packet-version request))
@@ -737,6 +737,7 @@
 			   (t (warn "Unknown IPv6 header type: #x~X"
 				    (packet-next-header request))))
 			 (profile-point)
+			 #+ignore
 			 (dotimes (i (length timings))
 			   (format t "~D: ~:D~%" i
 				   (* 838 (- #x10000 (aref timings i)))))