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

[Stefan Monnier]

> +    ;; 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.


        Stefan