Minor optimizations
authorMatthew Mondor <mmondor@pulsar-zone.net>
Sat, 13 Aug 2011 09:53:34 +0000 (09:53 +0000)
committerMatthew Mondor <mmondor@pulsar-zone.net>
Sat, 13 Aug 2011 09:53:34 +0000 (09:53 +0000)
mmsoftware/cl/server/test-httpd.lisp

index 8f77673..ee52466 100644 (file)
@@ -1,4 +1,4 @@
-;;; $Id: test-httpd.lisp,v 1.2 2011/08/13 09:15:19 mmondor Exp $
+;;; $Id: test-httpd.lisp,v 1.3 2011/08/13 09:53:34 mmondor Exp $
 ;;;
 ;;; Test/exemple minimal HTTP server
 
@@ -35,9 +35,10 @@ You sent the following information:
 (defun http-serve (client-stream address port)
   (multiple-value-bind (lines status)
       (loop
-        with max-time = (+ (server-time) *request-timeout*)
+        with max-time of-type integer = (+ (server-time) *request-timeout*)
+        with request-max-size of-type fixnum = *request-max-size*
         for line = (line-read client-stream)
-        while (< chars *request-max-size*)
+        while (< chars request-max-size)
         while (< (server-time) max-time)
         until (string= "" line)
         sum (length line) into chars of-type fixnum
@@ -46,7 +47,7 @@ You sent the following information:
           (return
             (values lines
                     (cond
-                      ((> chars *request-max-size*) :request-size-exceeded)
+                      ((> chars request-max-size) :request-size-exceeded)
                       ((>= (server-time) max-time) :request-timeout)
                       (t :success)))))