X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/3dca7758421664a838c54b273bd9221f02072045..ddfe426573957fa52102832a51582bb134ee7b42:/src/class-output.lisp?ds=sidebyside

diff --git a/src/class-output.lisp b/src/class-output.lisp
index 35269a7..91dc0bf 100644
--- 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