0.9.6.31:

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index c0f051d..165fa06 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -830,6 +830,8 @@
      (format stream ", ")
      (destructuring-bind (type data) (cdr reference)
        (ecase type
+         (:initialization
+          (format stream "Initialization of ~A Metaobjects" data))
          (:generic-function (format stream "Generic Function ~S" data))
          (:section (format stream "Section ~{~D~^.~}" data)))))
     (:ansi-cl