Пропустил эту пару символов, хотя по алфавиту в списке они рядом, но “лексический параметр“ сразу не сработал по “внешним признакам“, только когда стал смотреть “внутренние потроха“.
(case 'any (any1 . prg1) (any2 . prg2) ..) -> any
(casq 'any (any1 ...