cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

don't unnecessarly bind *output-stream*

This commit is contained in:
Omar Polo 2021-05-22 11:10:13 +00:00
parent 84437eccc2
commit b0ad8361d5
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/api-client.lisp
View File

@ -152,13 +152,12 @@ This function perfom the latest of this actions."
(if matched (if matched
(prog1 (prog1
(first (cl-ppcre:split "(&)|(\\p{White_Space})" (first-elt query-string))) (first (cl-ppcre:split "(&)|(\\p{White_Space})" (first-elt query-string)))
(let ((*standard-output* stream) (let ((endline (format nil "~C~C" #\return #\linefeed)))
(endline (format nil "~C~C" #\return #\linefeed))) (format stream "HTTP/1.1 200 OK~a" endline)
(format t "HTTP/1.1 200 OK~a" endline) (format stream "Content-Type: text/html; charset=UTF-8~a" endline)
(format t "Content-Type: text/html; charset=UTF-8~a" endline) (format stream "Connection: close~a" endline)
(format t "Connection: close~a" endline) (format stream "~a" endline)
(format t "~a" endline) (format stream "<p>~a</p>"
(format t "<p>~a</p>"
(_ "Tinmop has been successfully authorized, you can close this tab.")))) (_ "Tinmop has been successfully authorized, you can close this tab."))))
nil))) nil)))
(usocket:socket-close client-socket))) (usocket:socket-close client-socket)))