Debugger entered--Lisp error: (wrong-type-argument listp word)
  car(word)
  (listp (car (symbol-value alist)))
  (if (listp (car ...)) nil (set alist (\` ...)))
  (unless (listp (car ...)) (set alist (\` ...)))
  (while --cl-dolist-temp-- (setq alist (car --cl-dolist-temp--)) (unless (listp ...) (set alist ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- ...) alist) (while --cl-dolist-temp-- (setq alist ...) (unless ... ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... alist) (while --cl-dolist-temp-- ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... alist) (while --cl-dolist-temp-- ... ... ...) nil))
  (dolist (alist (quote ...)) (unless (listp ...) (set alist ...)))
  (let ((syntax-alist ...) (override-alist ...) (global-syntax-alist ...) (global-override-alist ...) behaviour) (dolist (alist ...) (unless ... ...)) (setq behaviour (or ... ... ... ... ...)) (when (= ... 2) (setq behaviour ...)) behaviour)
  auto-completion-lookup-behaviour(72 119 predictive)
  (if no-syntax-override (auto-completion-lookup-behaviour nil syntax auto-completion-source) (auto-completion-lookup-behaviour char syntax auto-completion-source))
  (append (if no-syntax-override (auto-completion-lookup-behaviour nil syntax auto-completion-source) (auto-completion-lookup-behaviour char syntax auto-completion-source)) (list (completion-ui-overlay-at-point) nil nil nil))
  (let* ((--cl-rest-- ...) (resolve-behaviour ...) (complete-behaviour ...) (insert-behaviour ...) (overlay ...) (word-thing ...) (wordstart ...) (prefix ...)) (setq word-thing (completion-ui-source-word-thing auto-completion-source overlay)) (completion-ui-resolve-old overlay) (when (functionp resolve-behaviour) (setq resolve-behaviour ...)) (cond (...) (... ... ... ...) (... ... ... ...) (... ... ...) (t ...)) (when (functionp insert-behaviour) (setq insert-behaviour ...)) (when insert-behaviour (if ... ... ...) (when overlay ...)) (when (functionp complete-behaviour) (setq complete-behaviour ...)) (cond (...) (... ...) (... ... ...) (t ...)))
  (progn (let* (... ... ... ... ... ... ... ...) (setq word-thing ...) (completion-ui-resolve-old overlay) (when ... ...) (cond ... ... ... ... ...) (when ... ...) (when insert-behaviour ... ...) (when ... ...) (cond ... ... ... ...)))
  (destructuring-bind (resolve-behaviour complete-behaviour insert-behaviour overlay word-thing wordstart prefix) (append (if no-syntax-override ... ...) (list ... nil nil nil)) (setq word-thing (completion-ui-source-word-thing auto-completion-source overlay)) (completion-ui-resolve-old overlay) (when (functionp resolve-behaviour) (setq resolve-behaviour ...)) (cond (...) (... ... ... ...) (... ... ... ...) (... ... ...) (t ...)) (when (functionp insert-behaviour) (setq insert-behaviour ...)) (when insert-behaviour (if ... ... ...) (when overlay ...)) (when (functionp complete-behaviour) (setq complete-behaviour ...)) (cond (...) (... ...) (... ... ...) (t ...)))
  auto-completion-self-insert()
  call-interactively(auto-completion-self-insert nil nil)