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@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)))))