chickadee » low-level-macros » list-bind-case

(list-bind-case seq clause ....)syntax

where seq is a nested pseudolist expression and each clause is of one of two forms

(pat (where . fenders) xpr ....)
(pat xpr ....)

Matches seq against a series of patterns and executes the body of the first matching pattern satisfying fenders (if given).

Note, that non-symbol literals are accepted in seq and each pat and considered a match if they are equal.