anchor.diff:        ;; Register it by the full symbol name.
         (record-protobuf-object type msg-desc :message)
         (collect-form `(record-protobuf-object ',type ,msg-desc :message))
  -      `(progn ,@type-forms ,@forms))))
  +      (create-progn-with-enum-forms-if-top-level top-level-form-p type-forms forms))))
   
   (defun conc-name-for-type (type conc-name)
     (and conc-name
  
positive.code:       (collect-form `(record-protobuf-object ',type ,enum :enum))
        ;; Register it by the full symbol name.
        (record-protobuf-object type enum :enum)
        `(progn ,@forms))))
  
  (declaim (inline proto-%bytes))
  
negative.code:           (collect-type-form
             (make-structure-class-forms type slots non-lazy-fields lazy-fields)))
        (collect-form `(record-protobuf-object ',type ,message :message))
        ;; Group can never be a top level element.
        `(progn
           define-group
           ,message
  