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 000ae6bfc97d01b2d3f7e0060afb19f674803daa..fa08e89899e5d4582554161d31a5db41ca0bcc9d 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 620c487619c11b97d5c76bd6bfb91b6181ccc473..dd8a2931ef89d466d3b0574294dab9f38a525dba 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))