kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index 6f8c03f..f872b02 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -32,6 +32,8 @@
           :accessor request-query%
           :type string)))
 
+(defvar *request*)
+
 (defun reset-request (&optional (request *request*))
   (declare (type request request))
   (setf (request-method% request) nil
@@ -42,8 +44,6 @@
   (clrhash (request-headers% request))
   request)
 
-(defvar *request*)
-
 (defun request-stream (&optional (request *request*))
   (declare (type request request))
   (request-stream% request))
@@ -206,6 +206,8 @@
            :accessor reply-stream%
            :type buffered-output-stream)))
 
+(defvar *reply*)
+
 (defun reset-reply (&optional (reply *reply*))
   (declare (type reply reply))
   (setf (reply-status% reply) nil
@@ -213,8 +215,6 @@
         (reply-headers-sent% reply) nil)
   reply)
 
-(defvar *reply*)
-
 (defun reply-status (&optional (reply *reply*))
   (declare (type reply reply))
   (reply-status% reply))