X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fprint-object.lisp;h=df187c37d32f3c659ee87b15e2c3b79e6ae2e1b2;hb=60a7d6fe1a3005f89973181c065d2bfa8c974e55;hp=b3774441099696cef9446da9202460ecb6966779;hpb=990728854b8ba017888811d1b0453b15dfa8a581;p=sbcl.git diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp index b377444..df187c3 100644 --- a/src/pcl/print-object.lisp +++ b/src/pcl/print-object.lisp @@ -131,7 +131,7 @@ (multiple-value-bind (lines-used lines-total max-depth depth-limit) (cache-statistics cache) (format stream - "~D key, ~P~:[no value~;value~], ~D/~D lines, depth ~D/~D" + "~D key~P, ~:[no value~;value~], ~D/~D lines, depth ~D/~D" (cache-key-count cache) (cache-key-count cache) (cache-value cache)