X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Froom.lisp;h=ecd7c012124911458bbec67687664f1e404b4364;hb=bee53328c93be3433477821131ab805557476c8b;hp=30327e96ec4b5cf00f0fcee488dbe0db2599ecd5;hpb=cb7837b769ce190baec60a2159c33099816ea6e3;p=sbcl.git diff --git a/src/code/room.lisp b/src/code/room.lisp index 30327e9..ecd7c01 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -521,7 +521,7 @@ (let ((residual-objects (- total-objects printed-objects)) (residual-bytes (- total-bytes printed-bytes))) (unless (zerop residual-objects) - (format t " Other types: ~:D bytes, ~D: object~:P.~%" + (format t " Other types: ~:D bytes, ~D object~:P.~%" residual-bytes residual-objects)))) (format t " ~:(~A~) instance total: ~:D bytes, ~:D object~:P.~%"