bug#58396: 29.0.50; Optimization failure for add-to-list

[German Pacenza]

emacs -Q
(setq tab-always-indent 'complete)
(add-to-list pac ;; without the quote. Press TAB after the 'c'

Result:
Completion succeeds but I get the following in the echo area:
Warning: Optimization failure for add-to-list: Handler: add-to-list--anon-cmacro
(wrong-number-of-arguments #<subr add-to-list--anon-cmacro> 2)

With toggle-debug-on-error:

  Debugger entered--Lisp error: (wrong-number-of-arguments #<subr 
add-to-list--anon-cmacro> 2)
  add-to-list--anon-cmacro((add-to-list elisp--witness--lisp) 
elisp--witness--lisp)
  apply(add-to-list--anon-cmacro (add-to-list elisp--witness--lisp) 
elisp--witness--lisp)
  macroexp--compiler-macro(add-to-list--anon-cmacro (add-to-list 
elisp--witness--lisp))
  macroexp--expand-all((add-to-list elisp--witness--lisp))
  macroexpand-all((add-to-list elisp--witness--lisp))
  elisp--local-variables()
  #f(compiled-function (string) #<bytecode -0x5fa893eaaf40814>)(#("pac" 0 3 
(fontified t)))
  #f(compiled-function (string pred action) #<bytecode 
-0x14ed6e54e1050bfd>)(#("pac" 0 3 (fontified t)) nil nil)
  try-completion(#("pac" 0 3 (fontified t)) #f(compiled-function (string pred 
action) #<bytecode -0x14ed6e54e1050bfd>) nil)
  #f(compiled-function (table) #<bytecode 
0x163689b2ac80c2c2>)(#f(compiled-function (string pred action) #<bytecode 
-0x14ed6e54e1050bfd>))
  mapcar(#f(compiled-function (table) #<bytecode 0x163689b2ac80c2c2>) 
(#f(compiled-function (string pred action) #<bytecode -0x14ed6e54e1050bfd>) 
#f(compiled-function (&rest args2) #<bytecode -0x8019f0ea8564a64>)))
  #f(compiled-function (string pred action) #<bytecode 
-0x18f4dd5c4c465f31>)(#("pac" 0 3 (fontified t)) nil nil)
  completion-basic-try-completion(#("pac" 0 3 (fontified t)) 
#f(compiled-function (string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil 
3)
  #f(compiled-function (style) #<bytecode 0x178204c4fc0cae41>)(basic)
  completion--some(#f(compiled-function (style) #<bytecode 0x178204c4fc0cae41>) 
(basic partial-completion emacs22))
  completion--nth-completion(1 #("pac" 0 3 (fontified t)) #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil 3 (metadata))
  completion-try-completion(#("pac" 0 3 (fontified t)) #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil 3 (metadata))
  completion--do-completion(#<marker at 194 in *scratch*> 197)
  completion--in-region-1(#<marker at 194 in *scratch*> 197)
  #f(compiled-function (start end collection predicate) #<bytecode 
0x3790782fa7b3d68>)(#<marker at 194 in *scratch*> 197 #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil)
  apply(#f(compiled-function (start end collection predicate) #<bytecode 
0x3790782fa7b3d68>) (#<marker at 194 in *scratch*> 197 #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil))
  #f(compiled-function (funs global args) #<bytecode -0xf600c7e743d322>)(nil 
nil (#<marker at 194 in *scratch*> 197 #f(compiled-function (string pred 
action) #<bytecode -0x18f4dd5c4c465f31>) nil))
  completion--in-region(#<marker at 194 in *scratch*> 197 #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil)
  completion-in-region(#<marker at 194 in *scratch*> 197 #f(compiled-function 
(string pred action) #<bytecode -0x18f4dd5c4c465f31>) nil)
  completion-at-point()
  indent-for-tab-command(nil)
  funcall-interactively(indent-for-tab-command nil)
  command-execute(indent-for-tab-command)



In GNU Emacs 29.0.50 (build 15, x86_64-pc-linux-gnu, GTK+ Version
 3.24.34, cairo version 1.17.6) of 2022-10-08 built on KRONOS
Repository revision: 84945e86be6b8dc8237983de901eb677bee3ae8b
Repository branch: master
System Description: Manjaro Linux

Configured using:
 'configure --without-modules --without-libotf --without-m17n-flt
 --without-gconf --with-pgtk --with-sound=no --without-gpm
 --with-native-compilation --without-gsettings --without-libsystemd
 --without-sqlite3 --without-xim --without-compress-install
 --prefix=/home/german/.local/emacs'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS HARFBUZZ JPEG JSON LCMS2
LIBXML2 NATIVE_COMP NOTIFY INOTIFY PDUMPER PGTK PNG RSVG SECCOMP THREADS
TIFF TOOLKIT_SCROLL_BARS WEBP XIM GTK3 ZLIB

Important settings:
  value of $LC_MONETARY: es_AR.UTF-8
  value of $LC_NUMERIC: es_AR.UTF-8
  value of $LC_TIME: es_AR.UTF-8
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  savehist-mode: t
  electric-pair-mode: t
  vertico-multiform-mode: t
  vertico-mode: t
  popper-mode: t
  minibuffer-depth-indicate-mode: t
  delete-selection-mode: t
  straight-use-package-mode: t
  straight-package-neutering-mode: t
  straight-live-modifications-mode: t
  global-so-long-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  line-number-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
/home/german/.emacs.d/straight/build/transient/transient hides 
/home/german/.local/emacs/share/emacs/29.0.50/lisp/transient

Features:
(shadow sort mail-extr emacsbug smerge-mode diff face-remap mm-archive
mule-util edmacro kmacro notmuch notmuch-tree notmuch-jump notmuch-hello
wid-edit notmuch-show notmuch-print notmuch-crypto notmuch-mua
notmuch-message notmuch-draft notmuch-maildir-fcc notmuch-address
notmuch-company notmuch-parser format-spec notmuch-wash diff-mode coolj
goto-addr thingatpt icalendar diary-lib diary-loaddefs cal-menu calendar
cal-loaddefs notmuch-tag crm notmuch-lib notmuch-version notmuch-compat
hl-line message sendmail yank-media dired dired-loaddefs rfc822 mml
mailabbrev mail-utils gmm-utils mailheader mm-view mml-smime mml-sec epa
derived epg rfc6068 epg-config gnus-util text-property-search time-date
smime password-cache gnutls puny dig mm-decode mm-bodies mm-encode
mailcap mail-parse rfc2231 rfc2047 rfc2045 mm-util ietf-drums mail-prsvr
savehist comp comp-cstr warnings icons rx elec-pair vertico-flat
vertico-grid vertico-multiform pcase vertico helpful-autoloads
elisp-refs-autoloads f-autoloads s-autoloads popper popper-autoloads
magit-autoloads magit-section-autoloads git-commit-autoloads
with-editor-autoloads transient-autoloads dash-autoloads
agitate-autoloads elfeed-autoloads vertico-autoloads embark-autoloads
consult-autoloads compat-autoloads mb-depth orderless-autoloads info
delsel xah-fly-keys easy-mmode xah-fly-keys-autoloads
rainbow-mode-autoloads g3r-dark-theme straight-autoloads cl-seq cl-extra
help-mode straight subr-x cl-macs gv bytecomp byte-compile cconv so-long
cl-loaddefs cl-lib rmc iso-transl tooltip eldoc paren electric uniquify
ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/pgtk-win
pgtk-win term/common-win pgtk-dnd tool-bar dnd fontset image regexp-opt
fringe tabulated-list replace newcomment text-mode lisp-mode prog-mode
register page tab-bar menu-bar rfn-eshadow isearch easymenu timer select
scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors
frame minibuffer nadvice seq simple cl-generic indonesian philippine
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese composite emoji-zwj charscript
charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure
cl-preloaded button loaddefs faces cus-face macroexp files window
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget keymap hashtable-print-readable backquote threads dbusbind
inotify dynamic-setting font-render-setting cairo gtk pgtk lcms2
multi-tty make-network-process native-compile emacs)

Memory information:
((conses 16 149476 70469)
 (symbols 48 12413 2)
 (strings 32 37772 11828)
 (string-bytes 1 1409276)
 (vectors 16 22922)
 (vector-slots 8 456664 164114)
 (floats 8 64 237)
 (intervals 56 354 80)
 (buffers 1000 11))

-- 
German Pacenza