From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 15 Aug 2015 15:25:24 +0000 (+0100)
Subject: src/class-output.lisp: Insert the correct class pointers.
X-Git-Tag: 0.2.0~81
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/fc5d94866b46d979d84cfdf8ea20e94e44976340

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

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 @@ (defmethod hook-output progn ((cptr class-pointer)
 		   (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))))))