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 c74daa8ff6980bf9916c259b10f39f3d586b0c10..687b22c91af7e30b22ae60ea915e80e2f1dca164 100644 (file)
--- 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")
                   (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))))))
 
               (sod-class-nickname meta-chain-head)
               (sod-class-nickname metaclass))))))