Computers fucking suck man

src/db.lisp

@@ -26,6 +26,7 @@ smart enough to make the database fields into (values rows columns)"
                                  :database-name (car conn-str)
                                  :username (nth 1 conn-str)
                                  :password (nth 2 conn-str))
+       (dbi:do-sql conn "set names 'utf8';") ;; I fucking hate computers
        ,@(cdr body))))
 
 (defun flag-id (flag)

src/main.lisp

@@ -5,7 +5,7 @@
                         :database-name (car conn-str)
                         :username (nth 1 conn-str)
                         :password (nth 2 conn-str)))
-  (ping) ;; test db conn
+  (ping) ;; test db conn  
   (set-boards)
   (set-flags)
   (defvar +serb+ (make-instance 'hunchentoot:easy-acceptor