Changeset 13196

Timestamp:

Nov 12, 2009, 11:29:28 AM (15 years ago)

Author:

gz

Message:

fix another format call

File:

• trunk/source/library/leaks.lisp (modified) (1 diff)

trunk/source/library/leaks.lisp

@@ -272 +272 @@
         (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)