X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fcondition.lisp;h=32db3f77f42e5f7e50c3023b4297790f9feff46d;hb=1831934a29eb9361472e4f49efbcd5398392a6b0;hp=165fa06c7c5a8288138d01d8a4db47764ff5630f;hpb=ef793f0d484ac3a527e945a62c93f904d73049a6;p=sbcl.git

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 165fa06..32db3f7 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -831,7 +831,8 @@
      (destructuring-bind (type data) (cdr reference)
        (ecase type
          (:initialization
-          (format stream "Initialization of ~A Metaobjects" data))
+          (format stream "Initialization of ~:(~A~) Metaobjects"
+                  (substitute #\  #\- (symbol-name data))))
          (:generic-function (format stream "Generic Function ~S" data))
          (:section (format stream "Section ~{~D~^.~}" data)))))
     (:ansi-cl