From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 22 Sep 2015 10:27:11 +0000 (+0100)
Subject: src/class-output.lisp: Use `vtable-name' rather than doing it by hand.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/7c3bae74a11efeefafa38ea599409a69e2af5c4f

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 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