anchor.diff:         (pg-disconnect ,connection))))
   
   (defmethod handle-request-response ((handler index-handler) method request)
  -  (with-db-connection *dbconn*
  -    (let ((*latest-result* (first (pg-result (pg-exec *dbconn* "select max(date) from result") :tuple 0))))
  -      (request-send-headers request
  -                            :expires  (+ 1200 (get-universal-time))
  -                            :last-modified *latest-result*
  -                            :conditional t) 
  -      (let ((s (request-stream request)))
  -        (format s "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
  -        (param-bind ((host "baker")
  -                     (only-release nil)
  -                     (implementations (all-implementations-of-host host t) t)) request
  -          (emit-image-index s
  -                            :implementations implementations
  -                            :only-release only-release
  -                            :host host))))))
  +  (handler-bind ((sb-ext:timeout #'(lambda (c)
  +                                     (format *debug-io* "Caught timeout ~A. continuing...~%" c)
  +                                     (invoke-restart (find-restart 'continue c)))))
  +    (with-db-connection *dbconn*
  +      (let ((*latest-result* (first (pg-result (pg-exec *dbconn* "select max(date) from result") :tuple 0))))
  +        (request-send-headers request
  +                              :expires  (+ 1200 (get-universal-time))
  +                              :last-modified *latest-result*
  +                              :conditional t) 
  +        (let ((s (request-stream request)))
  +          (format s "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">")
  +          (param-bind ((host (list "baker") t)
  +                       (only-release nil)
  +                       (implementations (all-implementations-of-host host t) t)) request
  +            (emit-image-index s
  +                              :implementations implementations
  +                              :only-release only-release
  +                              :host host)))))))
   
   (defun make-select (name default options)
     `((select :name ,name)
  
positive.code:   (let ((filename (merge-pathnames (apply #'file-name-for conditions) *prefab-base*)))
      (unless (and (probe-file filename)
                   (probe-file (make-pathname :type "png" :defaults filename))
                   (>= (unix-time-to-universal-time (sb-posix:stat-mtime (sb-posix:stat filename)))
                       *latest-result*))
        (apply #'generate-image-for conditions))))
  
  (defun url-for-image (&rest conditions)
  
negative.code:                                                                         (where
                                                                           (join result benchmark
                                                                                 :on (= result.b_name benchmark.name))
                                                                           (in result.m-name ',host)))))) :tuples))
           (date-boundaries (apply #'date-boundaries args))
           (earliest (first date-boundaries))
           (latest (second date-boundaries)))
  