Re: Towards a cleaner build: ieieo

[Stefan Monnier]

>     (pcase-let* ((`(,uses-cnm . ,fun) (cl--generic-lambda args body)))
>       `(progn
>          ,(and (get name 'byte-obsolete-info)
>                (or (not (fboundp 'byte-compile-warning-enabled-p))
>                    (byte-compile-warning-enabled-p 'obsolete))
>                (let* ((obsolete (get name 'byte-obsolete-info)))
>                  (macroexp--warn-and-return
>                   (macroexp--obsolete-warning name obsolete "generic 
> function")
>                   nil)))

IIUC, this is to emit a warning when a package defines a method for an
obsolete generic-function (e.g. a method for object-print) so that the
author is made aware of the need to port the method to the new
generic function (e.g. cl-print-object).


        Stefan