http://weitz.de/cl-ppcre/
(ql:quickload :cl-ppcre)
(if (cl-ppcre:scan "^[1-9]+$" "23-") (print "muh"))
(cl-ppcre:split "\\s" "a cow says mooh")
(cl-ppcre:regexp-replace-all "\\d" "h4llo" "a\\1")
Refactoring
Shell