src/: Split the frontend out into its own separate system.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index c74daa8..687b22c 100644 (file)
--- 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))))))