X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/4b8e5c0347115ff30841f1d1e71afe59ecb6c82c..9fb4a980fa2deb95726ae25a3db62497e9abf7a6:/src/class-output.lisp

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 @@ (defmethod hook-output progn ((vtable vtable) (reason (eql :h)) sequencer)
 			 (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