[Openmcl-cvs-notifications] r13196 - /trunk/source/library/leaks.lisp

[gz at clozure.com]

Author: gz
Date: Thu Nov 12 14:29:28 2009
New Revision: 13196

Log:
fix another format call

Modified:
    trunk/source/library/leaks.lisp

Modified: trunk/source/library/leaks.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/library/leaks.lisp (original)
+++ trunk/source/library/leaks.lisp Thu Nov 12 14:29:28 2009
@@ -271,7 +271,7 @@
         (incf malloc-sum (parse-integer (second i) :radix 16 :start 2))
         (format t "~&~A" i))
       (format t "~&Freed but not malloced:~%~{~A~%~}" frees)
-      (format t "~&total-malloc-not-freed: ~~A ~A free not malloc: ~A"
+      (format t "~&total-malloc-not-freed: ~A ~A free not malloc: ~A"
               (/ malloc-sum 1024.0)
               (length mallocs)
               (length frees)))))