common lisp 的正则库 cl-ppcre : http://weitz.de/cl-ppcre/
* (scan-to-strings "(([^b])*)b" "aaabd") "aaab" #("aaa" "a")
* (register-groups-bind (fname lname (#'parse-integer date month year)) ("(\\w+)\\s+(\\w+)\\s+(\\d{1,2})\\.(\\d{1,2})\\.(\\d{4})" "Frank Zappa 21.12.1940") (list fname lname (encode-universal-time 0 0 0 date month year 0))) ("Frank" "Zappa" 1292889600)
* (all-matches-as-strings "\\w*" "foo bar baz") ("foo" "" "bar" "" "baz" "")
* (split "(\\s+)" "foo bar baz") ("foo" "bar" "baz")
* (regex-replace "(?i)fo+" "FOO bar" "frob") "frob bar" T
* (regex-replace-all "(?i)f(o+)" "foo Fooo FOOOO bar" "fr\\1b" :preserve-case t) "froob Frooob FROOOOB bar"
* (quote-meta-chars "[a-z]*") "\\[a\\-z\\]\\*"