bug#27371: 26.0.50; Unexpected element (define-type . tramp-file-name) in load-history

[Michael Albinus]

Stefan Monnier <monnier@IRO.UMontreal.CA> writes:

>> +    ;; Remove internal functions.
>> +    (dolist (fun
>> +         (append
>> +          ;; constructor, copier, predicate, tag-symbol.
>> +          `(,(format "make-%s" name)
>> +            ,(format "copy-%s" name)
>> +            ,(format "%s-p" name)
>> +            ,(format "cl-struct-%s-tags" name))
>> +          ;; accessors.
>> +          (mapcar #'(lambda (y) (format "%s-%s" name y)) slots)))
>
> AFAIK all these functions are defined with `defalias', so they should
> already be handled by their own entry in load-history.

You're right. So what's left to do is

    (setf (cl--find-class name) nil)))

If you don't object I would commit the patch then ('tho it's rather your patch).

>         Stefan

Best regards, Michael.