src/class-output.lisp: Insert the correct class pointers.

[sod] / src / class-output.lisp

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")
-              (sod-class-metaclass class)
+              class
               (sod-class-nickname meta-chain-head)
               (sod-class-nickname metaclass))))))