From fc5d94866b46d979d84cfdf8ea20e94e44976340 Mon Sep 17 00:00:00 2001
From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 15 Aug 2015 16:25:24 +0100
Subject: [PATCH] src/class-output.lisp: Insert the correct class pointers.

I must have been confused, because vtable class pointers ended up
pointing to the metaclass rather than the object class.  Fix this.
---
 src/class-output.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/class-output.lisp b/src/class-output.lisp
index c74daa8..687b22c 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -436,7 +436,7 @@ const struct ~A ~A__classobj = {~%"
 		   (format nil "_cls_~A"
 			   (sod-class-nickname meta-chain-head))
 		   "_class")
-	       (sod-class-metaclass class)
+	       class
 	       (sod-class-nickname meta-chain-head)
 	       (sod-class-nickname metaclass))))))
 
-- 
2.11.0