kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index cbd534a..361d327 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -554,7 +554,7 @@ The requested url "
 (defvar *stop* nil)
 
 (defvar *main-loop* #'main-loop)
-(declaim (type function *acceptor-loop*))
+(declaim (type function *main-loop*))
 
 (defvar *host*)