Can I improve/simplify my regex code for finding certain symbol names?

I want to look at a comp's symbol for a keyword indicating the symbol is a leadless SMT package like BGA, QFN, etc. I'm using the code:

unique(mapcar(lambda((x) rexMatchp(x comp->package)) list(".BGA." ".DFN." ".QFN."))) == list(nil)

I check the package against a list of keywords using a regex, then I eliminate duplicate elements of the list to return a list of only nil if none of the keywords are found in the symbol (makes it easier to add additional keywords). I'm safe with this because our symbol library has naming rules which guarantee this will work.

This works, but seems overly complicated and requires verbose commenting. Are there better ways to do this? Here were my thoughts:

1. I tried to wrap mapcar(...) inside dptr() but it appears dtpr() doesn't interpret list(nil ... nil), or even list(nil), as an empty list.

2. The regex engine of Allegro SKILL doesn't seem to support advaned regex features I'm used to with other languages, such as pipe symbols. rexMatchp(".BGA|DFN|QFN." comp->package) always returns nil. Am I correct that advanced regex features, like pipes for alternation, aren't available in Allegro SKILL? It appears IC SKILL might from http://www.cadence.com/forums/p/14771/25538.aspx.

3. I couldn't come up with a solution that didn't use a regex, but it doesn't mean there isn't one.