> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>   completion-pcm--all-completions("" ("defun" any " ") #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil)
>   completion-pcm--find-all-completions("defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6)
>   completion-pcm-all-completions("defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6)
>   #f(compiled-function (style) #<bytecode -0x187d1242906739bf>)(partial-completion)
>   completion--some(#f(compiled-function (style) #<bytecode -0x187d1242906739bf>) (backend basic partial-completion emacs22))
>   completion--nth-completion(2 "defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6 (metadata (display-sort-function . identity) (category . sly-completion)))
>   completion-all-completions("defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6 (metadata (display-sort-function . identity) (category . sly-completion)))
>   apply(completion-all-completions ("defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6 (metadata (display-sort-function . identity) (category . sly-completion))))
>   (cons (apply #'completion-all-completions args) hl)
>   (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler)) (let* ((vnew #'(lambda (pattern cands) (let (...) (setq hl ...)) cands)) (old (symbol-function 'orderless-highlight-matches))) (unwind-protect (progn (fset 'orderless-highlight-matches vnew) (cons (apply #'completion-all-completions args) hl)) (fset 'orderless-highlight-matches old))) (cons (apply #'completion-all-completions args) hl))
>   (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler)) (let* ((vnew #'(lambda (pattern cands) (let ... ...) cands)) (old (symbol-function 'orderless-highlight-matches))) (unwind-protect (progn (fset 'orderless-highlight-matches vnew) (cons (apply #'completion-all-completions args) hl)) (fset 'orderless-highlight-matches old))) (cons (apply #'completion-all-completions args) hl)))
>   (unwind-protect (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler)) (let* ((vnew #'(lambda ... ... cands)) (old (symbol-function 'orderless-highlight-matches))) (unwind-protect (progn (fset 'orderless-highlight-matches vnew) (cons (apply ... args) hl)) (fset 'orderless-highlight-matches old))) (cons (apply #'completion-all-completions args) hl))) (fset #'completion-pcm--hilit-commonality old))
>   (let* ((vnew #'(lambda (pattern cands) (setq hl #'(lambda ... ...)) cands)) (old (symbol-function #'completion-pcm--hilit-commonality))) (unwind-protect (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler)) (let* ((vnew #'...) (old (symbol-function ...))) (unwind-protect (progn (fset ... vnew) (cons ... hl)) (fset 'orderless-highlight-matches old))) (cons (apply #'completion-all-completions args) hl))) (fset #'completion-pcm--hilit-commonality old)))
>   (progn (fset #'completion-hilit-commonality vnew) (let* ((vnew #'(lambda (pattern cands) (setq hl #'...) cands)) (old (symbol-function #'completion-pcm--hilit-commonality))) (unwind-protect (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and (fboundp 'orderless-highlight-matches) (fboundp 'orderless-pattern-compiler)) (let* ((vnew ...) (old ...)) (unwind-protect (progn ... ...) (fset ... old))) (cons (apply #'completion-all-completions args) hl))) (fset #'completion-pcm--hilit-commonality old))))
>   (unwind-protect (progn (fset #'completion-hilit-commonality vnew) (let* ((vnew #'(lambda (pattern cands) (setq hl ...) cands)) (old (symbol-function #'completion-pcm--hilit-commonality))) (unwind-protect (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and (fboundp ...) (fboundp ...)) (let* (... ...) (unwind-protect ... ...)) (cons (apply ... args) hl))) (fset #'completion-pcm--hilit-commonality old)))) (fset #'completion-hilit-commonality old))
>   (let* ((vnew #'(lambda (cands prefix &optional base) (setq hl #'(lambda ... ...)) (and cands (nconc cands base)))) (old (symbol-function #'completion-hilit-commonality))) (unwind-protect (progn (fset #'completion-hilit-commonality vnew) (let* ((vnew #'(lambda ... ... cands)) (old (symbol-function #'completion-pcm--hilit-commonality))) (unwind-protect (progn (fset #'completion-pcm--hilit-commonality vnew) (if (and ... ...) (let* ... ...) (cons ... hl))) (fset #'completion-pcm--hilit-commonality old)))) (fset #'completion-hilit-commonality old)))
>   (let ((hl #'identity)) (let* ((vnew #'(lambda (cands prefix &optional base) (setq hl #'...) (and cands (nconc cands base)))) (old (symbol-function #'completion-hilit-commonality))) (unwind-protect (progn (fset #'completion-hilit-commonality vnew) (let* ((vnew #'...) (old (symbol-function ...))) (unwind-protect (progn (fset ... vnew) (if ... ... ...)) (fset #'completion-pcm--hilit-commonality old)))) (fset #'completion-hilit-commonality old))))
>   (progn (fset #'completion-flex-all-completions vnew) (let ((hl #'identity)) (let* ((vnew #'(lambda (cands prefix &optional base) (setq hl ...) (and cands ...))) (old (symbol-function #'completion-hilit-commonality))) (unwind-protect (progn (fset #'completion-hilit-commonality vnew) (let* ((vnew ...) (old ...)) (unwind-protect (progn ... ...) (fset ... old)))) (fset #'completion-hilit-commonality old)))))
>   (unwind-protect (progn (fset #'completion-flex-all-completions vnew) (let ((hl #'identity)) (let* ((vnew #'(lambda ... ... ...)) (old (symbol-function #'completion-hilit-commonality))) (unwind-protect (progn (fset #'completion-hilit-commonality vnew) (let* (... ...) (unwind-protect ... ...))) (fset #'completion-hilit-commonality old))))) (fset #'completion-flex-all-completions old))
>   (let* ((vnew #'(lambda (&rest args) (let* ((vnew orig-pcm) (old ...)) (unwind-protect (progn ... ...) (fset ... old))))) (old (symbol-function #'completion-flex-all-completions))) (unwind-protect (progn (fset #'completion-flex-all-completions vnew) (let ((hl #'identity)) (let* ((vnew #'...) (old (symbol-function ...))) (unwind-protect (progn (fset ... vnew) (let* ... ...)) (fset #'completion-hilit-commonality old))))) (fset #'completion-flex-all-completions old)))
>   (let ((orig-flex (symbol-function #'completion-flex-all-completions))) (let* ((vnew #'(lambda (&rest args) (let* (... ...) (unwind-protect ... ...)))) (old (symbol-function #'completion-flex-all-completions))) (unwind-protect (progn (fset #'completion-flex-all-completions vnew) (let ((hl #'identity)) (let* ((vnew ...) (old ...)) (unwind-protect (progn ... ...) (fset ... old))))) (fset #'completion-flex-all-completions old))))
>   (let ((orig-pcm (symbol-function #'completion-pcm--hilit-commonality))) (let ((orig-flex (symbol-function #'completion-flex-all-completions))) (let* ((vnew #'(lambda (&rest args) (let* ... ...))) (old (symbol-function #'completion-flex-all-completions))) (unwind-protect (progn (fset #'completion-flex-all-completions vnew) (let ((hl ...)) (let* (... ...) (unwind-protect ... ...)))) (fset #'completion-flex-all-completions old)))))
>   corfu--all-completions("defun " #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil 6 (metadata (display-sort-function . identity) (category . sly-completion)))
>   (let* ((before (substring str 0 pt)) (after (substring str pt)) (corfu--metadata (completion-metadata before table pred)) (bounds (or (condition-case nil (completion-boundaries before table pred after) (t (cons 0 (length after)))))) (field (substring str (car bounds) (+ pt (cdr bounds)))) (completing-file (eq (corfu--metadata-get 'category) 'file)) (val (corfu--all-completions str table pred pt corfu--metadata))) (progn (ignore (consp val)) (let* ((x48 (car-safe val)) (x49 (cdr-safe val))) (let ((all x48) (hl x49)) (let* ((base (or ... 0)) (corfu--base (substring str 0 base))) (progn (if completing-file (progn ...)) (setq all (delete-consecutive-dups ...)) (setq all (corfu--move-prefix-candidates-to-front field all)) (if (and completing-file ...) (progn ...)) (setq all (corfu--move-to-front field all)) (list (cons ... corfu--base) (cons ... corfu--metadata) (cons ... all) (cons ... ...) (cons ... hl) (cons ... ...))))))))
>   corfu--recompute("defun " 6 #f(compiled-function (string pred action) #<bytecode 0x547f49589f5c961>) nil)
>   (progn (corfu--recompute str pt table pred))
>   (or (input-pending-p) (progn (corfu--recompute str pt table pred)))
>   (setq val (or (input-pending-p) (progn (corfu--recompute str pt table pred))))
>   (let ((throw-on-input 'input) val) (setq val (or (input-pending-p) (progn (corfu--recompute str pt table pred)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil) t) (quit-flag nil) (t val)))
>   (catch 'input (let ((throw-on-input 'input) val) (setq val (or (input-pending-p) (progn (corfu--recompute str pt table pred)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil) t) (quit-flag nil) (t val))))
>   (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (or (input-pending-p) (progn (corfu--recompute str pt table pred)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil) t) (quit-flag nil) (t val)))))
>   (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (or (input-pending-p) (progn (corfu--recompute str pt table pred)))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil) t) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t)))
>   (if interruptible (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input 'input) val) (setq val (or (input-pending-p) (progn ...))) (cond ((eq quit-flag throw-on-input) (setq quit-flag nil) t) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t))) (corfu--recompute str pt table pred))
>   (condition-case err (if interruptible (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let ((throw-on-input ...) val) (setq val (or ... ...)) (cond (... ... t) (quit-flag nil) (t val))))) (quit (setq quit-flag t) (eval '(ignore nil) t))) (corfu--recompute str pt table pred)) (error (message "Corfu completion error: %s" (error-message-string err)) t))
>   (let ((non-essential t)) (condition-case err (if interruptible (condition-case nil (let ((inhibit-quit nil)) (catch 'input (let (... val) (setq val ...) (cond ... ... ...)))) (quit (setq quit-flag t) (eval '(ignore nil) t))) (corfu--recompute str pt table pred)) (error (message "Corfu completion error: %s" (error-message-string err)) t)))
>   (let* ((val (let ((non-essential t)) (condition-case err (if interruptible (condition-case nil (let ... ...) (quit ... ...)) (corfu--recompute str pt table pred)) (error (message "Corfu completion error: %s" (error-message-string err)) t))))) (cond ((null val) (let nil (keyboard-quit))) ((consp val) (let ((state val)) (let ((tail state)) (while tail (let (...) (set ... ...) (setq tail ...)))) (progn (setq corfu--input input) (setq corfu--index corfu--preselect))))))
>   (if (equal corfu--input input) nil (if interruptible (progn (redisplay))) (let* ((val (let ((non-essential t)) (condition-case err (if interruptible (condition-case nil ... ...) (corfu--recompute str pt table pred)) (error (message "Corfu completion error: %s" ...) t))))) (cond ((null val) (let nil (keyboard-quit))) ((consp val) (let ((state val)) (let ((tail state)) (while tail (let ... ... ...))) (progn (setq corfu--input input) (setq corfu--index corfu--preselect)))))))
>   (progn (if (equal corfu--input input) nil (if interruptible (progn (redisplay))) (let* ((val (let ((non-essential t)) (condition-case err (if interruptible ... ...) (error ... t))))) (cond ((null val) (let nil (keyboard-quit))) ((consp val) (let ((state val)) (let (...) (while tail ...)) (progn (setq corfu--input input) (setq corfu--index corfu--preselect))))))) input)
>   (let* ((pt (- (point) beg)) (str (buffer-substring-no-properties beg end)) (input (cons str pt))) (progn (if (equal corfu--input input) nil (if interruptible (progn (redisplay))) (let* ((val (let (...) (condition-case err ... ...)))) (cond ((null val) (let nil (keyboard-quit))) ((consp val) (let (...) (let ... ...) (progn ... ...)))))) input))
>   (let ((beg x50) (end x52) (table x54) (pred x56)) (let* ((pt (- (point) beg)) (str (buffer-substring-no-properties beg end)) (input (cons str pt))) (progn (if (equal corfu--input input) nil (if interruptible (progn (redisplay))) (let* ((val (let ... ...))) (cond ((null val) (let nil ...)) ((consp val) (let ... ... ...))))) input)))
>   (progn (ignore (null x57)) (let ((beg x50) (end x52) (table x54) (pred x56)) (let* ((pt (- (point) beg)) (str (buffer-substring-no-properties beg end)) (input (cons str pt))) (progn (if (equal corfu--input input) nil (if interruptible (progn (redisplay))) (let* ((val ...)) (cond (... ...) (... ...)))) input))))
>   (let* ((x56 (car-safe x55)) (x57 (cdr-safe x55))) (progn (ignore (null x57)) (let ((beg x50) (end x52) (table x54) (pred x56)) (let* ((pt (- (point) beg)) (str (buffer-substring-no-properties beg end)) (input (cons str pt))) (progn (if (equal corfu--input input) nil (if interruptible (progn ...)) (let* (...) (cond ... ...))) input)))))
>   (progn (ignore (consp x55)) (let* ((x56 (car-safe x55)) (x57 (cdr-safe x55))) (progn (ignore (null x57)) (let ((beg x50) (end x52) (table x54) (pred x56)) (let* ((pt (- ... beg)) (str (buffer-substring-no-properties beg end)) (input (cons str pt))) (progn (if (equal corfu--input input) nil (if interruptible ...) (let* ... ...)) input))))))
>   (let* ((x54 (car-safe x53)) (x55 (cdr-safe x53))) (progn (ignore (consp x55)) (let* ((x56 (car-safe x55)) (x57 (cdr-safe x55))) (progn (ignore (null x57)) (let ((beg x50) (end x52) (table x54) (pred x56)) (let* ((pt ...) (str ...) (input ...)) (progn (if ... nil ... ...) input)))))))
>   (progn (ignore (consp x53)) (let* ((x54 (car-safe x53)) (x55 (cdr-safe x53))) (progn (ignore (consp x55)) (let* ((x56 (car-safe x55)) (x57 (cdr-safe x55))) (progn (ignore (null x57)) (let ((beg x50) (end x52) (table x54) (pred x56)) (let* (... ... ...) (progn ... input))))))))
>   (let* ((x52 (car-safe x51)) (x53 (cdr-safe x51))) (progn (ignore (consp x53)) (let* ((x54 (car-safe x53)) (x55 (cdr-safe x53))) (progn (ignore (consp x55)) (let* ((x56 (car-safe x55)) (x57 (cdr-safe x55))) (progn (ignore (null x57)) (let (... ... ... ...) (let* ... ...))))))))
>   (progn (ignore (consp x51)) (let* ((x52 (car-safe x51)) (x53 (cdr-safe x51))) (progn (ignore (consp x53)) (let* ((x54 (car-safe x53)) (x55 (cdr-safe x53))) (progn (ignore (consp x55)) (let* ((x56 ...) (x57 ...)) (progn (ignore ...) (let ... ...))))))))
>   (let* ((x50 (car-safe completion-in-region--data)) (x51 (cdr-safe completion-in-region--data))) (progn (ignore (consp x51)) (let* ((x52 (car-safe x51)) (x53 (cdr-safe x51))) (progn (ignore (consp x53)) (let* ((x54 (car-safe x53)) (x55 (cdr-safe x53))) (progn (ignore (consp x55)) (let* (... ...) (progn ... ...))))))))
>   (progn (ignore (consp completion-in-region--data)) (let* ((x50 (car-safe completion-in-region--data)) (x51 (cdr-safe completion-in-region--data))) (progn (ignore (consp x51)) (let* ((x52 (car-safe x51)) (x53 (cdr-safe x51))) (progn (ignore (consp x53)) (let* ((x54 ...) (x55 ...)) (progn (ignore ...) (let* ... ...))))))))
>   corfu--update(interruptible)
>   (let ((x0 completion-in-region--data) (x1 (corfu--update 'interruptible))) (progn (ignore (consp x1)) (let* ((x92 (car-safe x1)) (x93 (cdr-safe x1))) (let ((str x92) (pt x93)) (progn (ignore (consp x0)) (let* ((x84 ...) (x85 ...)) (progn (ignore ...) (let* ... ...))))))))
>   (progn (let ((x0 completion-in-region--data) (x1 (corfu--update 'interruptible))) (progn (ignore (consp x1)) (let* ((x92 (car-safe x1)) (x93 (cdr-safe x1))) (let ((str x92) (pt x93)) (progn (ignore (consp x0)) (let* (... ...) (progn ... ...))))))))
>   corfu--exhibit()
>   (if (corfu--continue-p) (corfu--exhibit) (corfu-quit))
>   corfu--post-command()