[movitz-cvs] CVS update: movitz/losp/muerte/environment.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	environment.lisp 
Log Message:
Be less worried about bignums when computing CPU-cycles in time.

Date: Wed Mar  9 08:19:20 2005
Author: ffjeld

Index: movitz/losp/muerte/environment.lisp
diff -u movitz/losp/muerte/environment.lisp:1.9 movitz/losp/muerte/environment.lisp:1.10
--- movitz/losp/muerte/environment.lisp:1.9	Tue Jan 25 14:45:54 2005
+++ movitz/losp/muerte/environment.lisp	Wed Mar  9 08:19:19 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Sat Oct 20 00:41:57 2001
 ;;;;                
-;;;; $Id: environment.lisp,v 1.9 2005/01/25 13:45:54 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.10 2005/03/09 07:19:19 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -139,13 +139,10 @@
 				    (time-skew-measure start-mem x-lo x-hi))
 			   finally (return x)))))
 	   (clumps (and start-mem (- (malloc-cons-pointer) start-mem)))
-	   (delta-hi (- end-time-hi start-time-hi))
-	   (delta-lo (- end-time-lo start-time-lo skew)))
-      (if (= 0 delta-hi)
-	  (format t "~&;; CPU cycles: ~D.~@[~%;; Space used: ~D clumps = ~/muerte:pprint-clumps/.~]~%"
-		  delta-lo clumps clumps)
-	(format t "~&;; CPU cycles: ~DM.~%~@[;; Space used: ~D clumps = ~/muerte:pprint-clumps/.~]~%"
-		(+ (ash delta-hi 9) (ash delta-lo -20)) clumps clumps)))))
+	   (delta-time (+ (ash (- end-time-hi start-time-hi) 29)
+			  (- end-time-lo start-time-lo skew))))
+      (format t "~&;; CPU cycles: ~D.~%~@[;; Space used: ~D clumps = ~/muerte:pprint-clumps/.~]~%"
+	      delta-time clumps clumps))))
 
 (defmacro time (form)
   `(let ((start-mem (malloc-cons-pointer)))