common-lisp 使用 CL-PPCRE 绑定寄存器组
例子
CL-PPCRE:REGISTER-GROUPS-BIND将字符串与正则表达式匹配，如果匹配，则将正则表达式中的寄存器组绑定到变量。如果字符串不匹配，NIL则返回。
(defun parse-date-string (date-string)
(cl-ppcre:register-groups-bind
(year month day)
("(\\d{4})-(\\d{2})-(\\d{2})" date-string)
(list year month day)))
(parse-date-string "2016-07-23") ;=> ("2016" "07" "23")
(parse-date-string "foobar") ;=> NIL
(parse-date-string "2016-7-23") ;=> NIL