server.lisp

@@ -169,6 +169,7 @@
 
 (defun gemini-handler (stream)
   "The main Gemini request handler. Sets up TLS and sets up request and response"
+  (handler-case
       (let* ((cl+ssl::*ssl-global-context*
                (make-context :disabled-protocols (list +ssl-op-no-sslv2+ +ssl-op-no-sslv3+
                                                        +ssl-op-no-tlsv1+ +ssl-op-no-tlsv1-1+
@@ -184,7 +185,8 @@
          tls-stream)
         (force-output tls-stream)
         (write-sequence (nth 1 response) tls-stream)
-    (force-output tls-stream)))
+        (force-output tls-stream))
+    (error (c) (format *error-output* "gemini-handler error: ~A~%" c))))
 
 (defun gemini-serve-file-or-directory (request)
   "Given a gemini request (string), try to respond by serving a file or directory listing."