src/class-output.lisp: Use `vtable-name' rather than doing it by hand.

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 35269a7eb43ce7b4c6db9d76d3f648638bd735a5..91dc0bfdd1185ee855a4569ab2a780b899318449 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -311,9 +311,9 @@ (defmethod hook-output progn ((vtable vtable) (reason (eql :h)) sequencer)
                         (sod-class-chain chain-tail))))))
     (sequence-output (stream sequencer)
       ((class :vtable-externs)
                         (sod-class-chain chain-tail))))))
     (sequence-output (stream sequencer)
       ((class :vtable-externs)

-       (format stream "~@<extern const union ~A ~2I~_~A__vtable_~A;~:>~%"
+       (format stream "~@<extern const union ~A ~2I~_~A;~:>~%"

               (vtable-union-tag chain-tail chain-head)
               (vtable-union-tag chain-tail chain-head)

-              class (sod-class-nickname chain-head))))))
+              (vtable-name class chain-head))))))

 
 (defmethod hook-output progn ((vtmsgs vtmsgs) (reason (eql :h)) sequencer)
   (with-slots ((class %class) subclass chain-head chain-tail) vtmsgs
 
 (defmethod hook-output progn ((vtmsgs vtmsgs) (reason (eql :h)) sequencer)
   (with-slots ((class %class) subclass chain-head chain-tail) vtmsgs