bug#54079: 29.0.50; Method dispatching eratically fails

[Michael Heerdegen <michael_heerdegen@web.de>]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> So I'm not sure if symbols with positions are related.

Dunno if and how this is related: I found out that when I byte-compile
cl-generic.el in current Emacs session, trying to M-x gnus suddenly
gives me:

| Debugger entered--Lisp error: (invalid-function #<symbol let at 15662>)
|   (#<symbol let at 15662> ((#<symbol plain-args at 15668> nil) (#<symbol specializers at 15694> nil) (#<symbol mandatory at 15723> #<symbol t at 15733>)) (let ((--dolist-tail-- #<symbol args at 15756>)) (while --dolist-tail-- (let ((#<symbol arg at 15752> (car --dolist-tail--))) (setq #<symbol plain-args at 16815> (cons (cond (... ...) (... ...) (t ...)) #<symbol plain-args at 16815>)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (#<symbol cons at 16835> (#<symbol nreverse at 16841> #<symbol specializers at 16850>) (#<symbol nreverse at 16877> (#<symbol delq at 16887> nil #<symbol plain-args at 16896>))))
|   (cl--generic-split-args (engine artlist criteria))
|   (cl-generic-define gnus-search-grep-search (engine artlist criteria) nil)
|   (byte-code "\300\301\302\301\303\304#\305#\210\306\301\304\307\304\310%\210\300\311\312\313!\"\210\300\314\315\313!\"\210\300\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313..." [defalias gnus-search-grep-search cl-generic-define (engine artlist criteria) nil "Run a secondary grep search over a list of prelimi..." cl-generic-define-method ((engine gnus-search-grep) artlist criteria) #f(compiled-function (engine artlist criteria) #<bytecode -0x1d311dd1a946ba32>) gnus-search-process-p eieio-make-class-predicate gnus-search-process gnus-search-process--eieio-childp eieio-make-child-predicate gnus-search-process-child-p make-obsolete "use (cl-typep ... 'gnus-search-process) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((proc-buffer :initarg :p
 roc-buffer :type buffer :documentation "A temporary buffer this engine uses for its\n    se...")) (:abstract t :documentation "A mixin class for engines that do their searching ...")] 6)
|   (require gnus-search)
|   (eval-buffer #<buffer  *load*> nil "/home/micha/gnu-emacs/.gnus.el" nil t)  ; Reading at buffer position 231
|   (load-with-code-conversion "/home/micha/gnu-emacs/.gnus.el" "/home/micha/gnu-emacs/.gnus.el" nil t)
|   (load "/home/micha/gnu-emacs/.gnus.el" nil t)
|   (gnus-read-init-file)
|   (gnus-1 nil nil nil)
|   (gnus nil)

Never saw this until now.  No problem when I do not compile
cl-generic.el in the session.

Michael.