(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