Хотя, скорее всего я чего-то не знаю :)
Есть такой код:
 (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




