有很多处理正则表达式的组件，这里介绍Common LISP安装包自带的package regexp。不同组件的实现方式略有不同，对正则表达式的支持程度不同，但对外接口是相似的，可以举一反三。

       直接匹配正则表达式的接口：(regexp:match pattern string ...)

       先编译后匹配的接口：(regexp:regexp-compile pattern ...) 和 (regexp:regexp-exec compiled-pattern string ...)

       匹配操作返回的结果为结构体regexp:match，操作此结构体的接口：(regexp:match-start match) 、(regexp-match-end match)  和 (regexp:match-string string match)

       对特殊字符进行转义的接口，配合match可以实现纯粹的字符串搜索功能：(regexp:regexp-quote string ...)

       分割字符串的接口：(regexp:regexp-split pattern string ...) 和 (regexp:with-loop-split ...)

       匹配操作只返回第一个匹配的位置，如果要找出所有匹配，可以将上次匹配的末尾作为下次匹配的开始。例如找出字符串中所有的整数：

(defun foo (str)

(let ((s 0))

    (loop :with compiled = (regexp:regexp-compile "[0-9][0-9]*")

     :for m = (regexp:regexp-exec compiled str :start s)

     :while m

     :collect (if m

                (regexp:match-string str m))

     :do (setq s (regexp:match-end m)))))

(foo "123 is 123, 321 is 321!")

       再看一个解析IP地址的例子，从字符串形式的IP地址中取出四个整数。

(defun ip-to-num (ip)

  (multiple-value-bind (ip0 ip1 ip2 ip3 ip4)

   (regexp:match "\\([0-9]*\\)\\.\\([0-9]*\\)\\.\\([0-9]*\\)\\.\\([0-9]*\\)" ip)

   (if ip4

       (mapcar #'(lambda (m) (parse-integer (regexp:match-string ip m)))

              (list ip1 ip2 ip3 ip4)))))

(ip-to-num “127.0.0.1”) 输出 (127 0 0 1)

       正则表达式中有 \\( XXX \\) 格式，注意两边的括号，它匹配的字符串和 XXX 是一样的，但返回的结果中会返回这个子串的起始、结束地址。例如，执行上面例子中的regexp:match语句，返回下面结果。multiple-value-bind用来接收返回的多个值。

#S(REGEXP:MATCH :START 0 :END 9) ;   整个匹配上的字符串

#S(REGEXP:MATCH :START 0 :END 3) ; 第一对括号对应的字串

#S(REGEXP:MATCH :START 4 :END 5) ; 第二对括号对应的字串

#S(REGEXP:MATCH :START 6 :END 7) ; 第三对括号对应的字串

#S(REGEXP:MATCH :START 8 :END 9)  第四对括号对应的字串

路径查找器，用完了，要取消组合

做个例子2003连在一起

cs5面板中没有椭圆工具--安住alt 来选择的

描边中有：平头圆头方头，描边中有虚线

对像中有个“拼合透明度，安Alt一切动”

ctrl+d,再次执行上次的操作