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

Merge pull request #238 from fbmnds/main

Browse source 
Update clog-connection.lisp
This commit is contained in:
David Botton 2022-10-01 21:40:09 -04:00 • committed by GitHub
commit cafe9ba527
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
source/clog-connection.lisp
View file

@ -610,8 +610,8 @@ the contents sent to the brower."
(defun escape-string (str)
"Escape STR for sending to browser script."
(let ((res))
(setf res (ppcre:regex-replace-all "\\x5C" res "\\x5C")) ; \
(setf res (ppcre:regex-replace-all "\\x22" str "\\x22")) ; "
(setf res (ppcre:regex-replace-all "\\x5C" str "\\x5C")) ; \
(setf res (ppcre:regex-replace-all "\\x22" res "\\x22")) ; "
(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 "\\x0D" res "\\x0D")) ; \r