A simple alist and an CL:ASSOC call were replaced with a more accurate solution analogous to the CL:CASE special form.
A simple alist and an CL:ASSOC call were replaced with a more accurate
solution analogous to the CL:CASE special form.

pefimo/gas