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