Index: pwman2op.lisp ================================================================== --- pwman2op.lisp +++ pwman2op.lisp @@ -7,11 +7,11 @@ ; Load libraries ; Had parsing errors with xmls so use cxml instead (ql:quickload "cxml") (ql:quickload "cl-ppcre") -; "Escape" certain characters. Will replace back on cli call +; "Escape" certain characters. (defun escape-quotes (text) (cl-ppcre:regex-replace-all "\"" (cl-ppcre:regex-replace-all "'" text "\\u0027" :preserve-case t) "\\u0022" :preserve-case t)) ; Just assume two template types