Хотя, скорее всего я чего-то не знаю :)
Есть такой код:
(loop for item in minor-mode-alist
do (if (listp (car item))
(message "List %s" (car item))
(message "Notlist %s" (car item))))
выдаёт:
... skipped ...
Notlist semantic-minor-modes-format
... skipped ...
Хотя
(listp semantic-minor-modes-format)
=> t