Wookie patch

From 4df6ebfc73aed0ae4cdf493047b46f20ff9b455f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sebastian=20=C5=BBmijewski?= <sebastian@szmijewski.pl>
Date: Mon, 4 Jul 2016 12:10:37 +0200
Subject: [PATCH] mm

---
 init.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/init.lisp b/init.lisp
index 473008a..4e79978 100644
--- a/init.lisp
+++ b/init.lisp
@@ -57,6 +57,11 @@
       (as:with-event-loop (:catch-app-errors (and *production-error-handling*
                                                   'error-handler))
         ;; set up the database schema
+        (vom:info "Applying Wookie Fix...")
+        (defvar *max-body-size* (* 1024 1024 32)
+          "The max HTTP body size in bytes that Wookie will store for each request,
+          assuming the request is set to store the body (see request-store-body).")
+
         (vom:info "Applying DB schema...")
         ;; call our setup function if we have one
         (when custom-setup (funcall custom-setup))
@@ -81,4 +86,3 @@
           (error (e) (vom:error "Error initializing: ~a" e)))))
     (when *pid-file*
       (delete-file *pid-file*))))
-
-- 
2.9.0