Lisp的defun行正则匹配

匹配defun整行，不包括末尾空格
(?i)(\(defun|defun-q)\s+(.+)[^\s]
匹配defun整行，包括末尾空格
(?i)(\(defun|defun-q)\s+(.+)
匹配defun整行除"(defun"以外,后面的字符，不包括末尾空格
(?i)(?<=\(defun(-q)?[\s]+)[\S].+[^\s]
纯函数名
(?i)(?<=(defun|defun-q)\s+)([^'\s()]+)[^\s\(]+
函数参数
(?i)(?<=(defun|defun-q)\s+.+\(\s*)\S[^)/\n]+
局部变量
(?i)(?<=(defun|defun-q)\s+.+\(.+/\s+)[^)]+