anchor.diff:                                      (t
                                        (undefined-field-type
                                         "While generating 'deserialize-object' for ~S,"
  -                                      message val-type field))))))))))
  +                                      message val-class field))))))))))
                 (t
                  (setf nslot temp)
                  ;; Non-repeating field.
  
positive.code:              (msg    (and class (not (keywordp class))
                            (or (find-message class)
                                (find-enum class)
                                (find-type-alias class))))
               (index  (proto-index field))
               (temp (make-symbol (string (proto-internal-field-name field)))))
          (cond ((eq (proto-label field) :repeated)
  
negative.code:                      (t
                        (undefined-field-type "While generating 'deserialize-object' for ~S,"
                                              message class field))))
                ((typep msg 'map-descriptor)
                 (setf nslot temp)
                 (let* ((start vidx)
                        (key-class (map-descriptor-key-class msg))
                        (val-class (map-descriptor-val-class msg))
                        (val-msg  (and val-class (not (keywordp val-class))
                                       (or (find-message val-class)
                                           (find-enum val-class)
                                           (find-type-alias val-class)))))
                   (ret
                    (make-tag $wire-type-string index)
                    `(progn
  