むしろ今までなかったのか
(setq lunch-price-alist
'((hamburger . 500)
(curry . 800)
(sushi . 1200)))
(assq 'curry lunch-price-alist)
;; => (curry . 800)
(alist-get 'sushi lunch-price-alist)
;; => 1200
(cdr (assq key alist))
すればいいだけの話だけど、少しだけ便利になりました。