When extending, find extended message by type rather than unqualified name

diff --git a/define-proto.lisp b/define-proto.lisp
index 6ac39fcda7c341404b234a6bac7906e46147b392..000ae6bfc97d01b2d3f7e0060afb19f674803daa 100644 (file)
--- a/define-proto.lisp
+++ b/define-proto.lisp
@@ -341,7 +341,7 @@
                         collect (make-instance 'protobuf-option
                                   :name  (if (symbolp key) (slot-name->proto key) key)
                                   :value val)))
-         (message   (find-message *protobuf* name))
+         (message   (find-message *protobuf* type))
          (conc-name (or (conc-name-for-type type conc-name)
                         (and message (proto-conc-name message))))
          (alias-for (and message (proto-alias-for message)))