S11001001 / weblocks-dev (http://common-lisp.net/project/cl-weblocks/)

Weblocks is a continuations-based web framework written in Common Lisp. This is a development branch that may contain unstable code.

commit 1545: 967e8372b248
parent 1544: 3f21962fcd26
branch: default
Disable timeouts on CCL, something seems to be broken in TRIVIAL-TIMEOUT.
Leslie P. Polzer
9 months ago

Changed (Δ73 bytes):

raw changeset »

src/request-handler.lisp (2 lines added, 1 lines removed)

Up to file-list src/request-handler.lisp:

…… @@ -70,7 +70,8 @@ customize behavior.")) 
70
 
70
 
  (handler-bind ((timeout-error (lambda (c)
 
71
 
71
 
                                  ;; TODO: let the user customize this
 
72
 
72
 
                                  (error "Your request timed out."))))
 
73
 
    (with-timeout (*request-timeout*)
 
73
 
    (#+ccl progn ; TRIVIAL-TIMEOUT seems to be broken on CCL
 
74
 
     #-ccl with-timeout #-ccl (*request-timeout*)
 
74
 
75
 
      (webapp-update-thread-status "Request prelude")
 
75
 
76
 
      (unwind-protect
 
76
 
77
 
        (let* ((timings nil)