@@ -28,6 +28,7 @@ connection-close) (without-call/cc (flet ((handle-header (name value) + (declare (type simple-byte-vector name value)) (unless (zerop (length value)) (case-match-fold-ascii-case name ("content-length" @@ -37,7 +38,7 @@ ("connection" (match-bind ( (+ word (or (+ (space)) (last)) - '(case-match-fold-ascii-case word + '(case-match-fold-ascii-case (the simple-byte-vector word) ("close" (setf connection-close t)) ("keep-alive" (setf connection-close nil))))) value)) src/http/serve.lisp @@ -37,9 +37,7 @@ (defun-speedy max-timeout-period () (length (quick-queue-entries *timeouts*))) -(declaim (inline time-for-delay)) -(defun time-for-delay (delay) - (declare (optimize speed)) +(defun-speedy time-for-delay (delay) (let ((delay (floor delay))) (debug-assert (> (max-timeout-period) (* delay 2)) (delay)) (+ (get-timeout-time) delay))) src/lib/timeout.lisp 7291fb6e03707beb827837acfc84213645c48044 John Fremlin john@fremlin.org http://github.com/vii/teepeedee2/commit/f1581a6aedad916ffc37eafce79c8b0f4663a189 f1581a6aedad916ffc37eafce79c8b0f4663a189 2009-11-06T03:30:32-08:00 2009-11-06T03:30:32-08:00 a few minor optimisations 479fb254b2bbb09aef11e0513ac6b39dcdc5a533 John Fremlin john@fremlin.org