[movitz-cvs] CVS update: movitz/losp/muerte/environment.lisp
Frode Vatvedt Fjeld
ffjeld at common-lisp.net
Wed Aug 24 07:28:36 UTC 2005
Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv4084
Modified Files:
environment.lisp
Log Message:
Print CPU cycles with ~:D.
Date: Wed Aug 24 09:28:21 2005
Author: ffjeld
Index: movitz/losp/muerte/environment.lisp
diff -u movitz/losp/muerte/environment.lisp:1.12 movitz/losp/muerte/environment.lisp:1.13
--- movitz/losp/muerte/environment.lisp:1.12 Wed Apr 20 08:53:20 2005
+++ movitz/losp/muerte/environment.lisp Wed Aug 24 09:28: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.12 2005/04/20 06:53:20 ffjeld Exp $
+;;;; $Id: environment.lisp,v 1.13 2005/08/24 07:28:19 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
@@ -140,7 +140,7 @@
(clumps (and start-mem (- (malloc-cons-pointer) start-mem)))
(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/.~]~%"
+ (format t "~&;; CPU cycles: ~:D.~%~@[;; Space used: ~D clumps = ~/muerte:pprint-clumps/.~]~%"
delta-time clumps clumps))))
(defmacro time (form)
More information about the Movitz-cvs
mailing list