mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

revert change on quotes

Browse source
This commit is contained in:
David Botton 2022-07-07 13:40:08 -04:00
parent 1b4db0c0d5
commit 8dd156ca79
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
source/clog-utilities.lisp
View file

@ -145,7 +145,6 @@ if str is NIL returns empty string otherwise returns nil."
nil nil
(let ((res)) (let ((res))
(setf res (format nil "~@[~A~]" str)) (setf res (format nil "~@[~A~]" str))
(setf res (ppcre:regex-replace-all "\\\\" res "\\\\\\\\")) ; \
(setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; " (setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; "
(setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; ' (setf res (ppcre:regex-replace-all "\\x27" res "\\x27")) ; '
(setf res (ppcre:regex-replace-all "\\x0A" res "\\x0A")) ; \n (setf res (ppcre:regex-replace-all "\\x0A" res "\\x0A")) ; \n