doc/: Initial work on an index.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 35269a7..91dc0bf 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -311,9 +311,9 @@
                         (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)
-              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