src/api-client.lisp

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