The parent of an extended message is the context in which it was defined

diff --git a/define-proto.lisp b/define-proto.lisp
index 000ae6b..fa08e89 100644 (file)
--- a/define-proto.lisp
+++ b/define-proto.lisp
@@ -350,7 +350,7 @@
                          :class  (proto-class message)
                          :name   (proto-name message)
                          :qualified-name (proto-qualified-name message)
-                         :parent (proto-parent message)
+                         :parent *protobuf*
                          :alias-for alias-for
                          :conc-name conc-name
                          :enums    (copy-list (proto-enums message))

diff --git a/parser.lisp b/parser.lisp
index 620c487..dd8a293 100644 (file)
--- a/parser.lisp
+++ b/parser.lisp
@@ -542,7 +542,7 @@
                          :class (proto-class message)
                          :name  (proto-name message)
                          :qualified-name (proto-qualified-name message)
-                         :parent (proto-parent message)
+                         :parent protobuf
                          :alias-for (proto-alias-for message)
                          :conc-name (proto-conc-name message)
                          :enums    (copy-list (proto-enums message))