Compiler-macro error for keymap-set: Handler: keymap-set--anon-cmacro

[Elilif]

Description

the error message always appears in the echo area when I use keymap-set:

Compiler-macro error for keymap-set: Handler: keymap-set--anon-cmacro
(wrong-number-of-arguments #<subr keymap-set--anon-cmacro> 2)

Steps to Reproduce

1. run emacs -Q
2. load the following config and M-x toggle-debug-on-error RET:

   (add-to-list 'load-path "~/.emacs.d/elpa/corfu-0.26")
   (require 'corfu)
   (setq corfu-auto t)
   (corfu-mode 1)

3. try to use keymap-set

   (keymap-set glo*  ;;  "*" is your cursor

4. you can see the backtrace

Backtrace

entered--Lisp error: (wrong-number-of-arguments #<subr keymap-set--anon-cmacro> 2)
  keymap-set--anon-cmacro((keymap-set elisp--witness--lisp) elisp--witness--lisp)
  apply(keymap-set--anon-cmacro (keymap-set elisp--witness--lisp) elisp--witness--lisp)
  macroexp--compiler-macro(keymap-set--anon-cmacro (keymap-set elisp--witness--lisp))
  macroexp--expand-all((keymap-set elisp--witness--lisp))
  macroexpand-all((keymap-set elisp--witness--lisp))
  elisp--local-variables()
  #f(compiled-function (string) #<bytecode -0x525d075e0e84e14>)("glo")
  #f(compiled-function (string pred action) #<bytecode 0xebd00b8f5d75fc3>)("glo" nil t)
  all-completions("glo" #f(compiled-function (string pred action) #<bytecode 0xebd00b8f5d75fc3>) nil)
  #f(compiled-function (table) #<bytecode 0x163681a45b160cc2>)(#f(compiled-function (string pred action) #<bytecode 0xebd00b8f5d75fc3>))
  mapcar(#f(compiled-function (table) #<bytecode 0x163681a45b160cc2>) (#f(compiled-function (string pred action) #<bytecode 0xebd00b8f5d75fc3>) #f(compiled-function (&rest args2) #<bytecode -0xd676405e661e164>)))
  #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>)("glo" nil t)
  completion-pcm--all-completions("" ("glo" point) #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil)
  completion-basic-all-completions("glo" #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil 3)
  #f(compiled-function (style) #<bytecode 0x178385ed3a641241>)(basic)
  completion--some(#f(compiled-function (style) #<bytecode 0x178385ed3a641241>) (basic partial-completion emacs22))
  completion--nth-completion(2 "glo" #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil 3 (metadata))
  completion-all-completions("glo" #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil 3 (metadata))
  corfu--all-completions("glo" #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil 3 (metadata))
  corfu--recompute-candidates("glo" 3 #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil)
  corfu--update-candidates("glo" 3 #f(compiled-function (string pred action) #<bytecode -0x1eaa717ecffa7701>) nil)
  corfu--update()
  corfu--auto-complete((#<buffer *scratch*> 777 252))
  apply(corfu--auto-complete (#<buffer *scratch*> 777 252))
  timer-event-handler([t 25342 2557 995938 nil corfu--auto-complete ((#<buffer *scratch*> 777 252)) nil 644000 nil])

Expected Results

no error appears

Environment

GNU Emacs 29.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.34, cairo version 1.17.6) of 2022-07-04 corfu-0.26

[minad]

This is not a Corfu issue. It seems like a complication issue which should be reported upstream via report-emacs-bug.