anchor.diff:  	    else
   	      collect `((option :value ,op) ,text))))
   
  -(define-condition form-value-not-entered (error)
  -  ((name :accessor form-value-not-entered-name :initarg :name)))
  -
   (install-handler (http-listener-handler *bench-listener*)
   		 (make-instance 'index-handler)
   		 (urlstring *index-url*) nil)
  
positive.code: 
  (defun url-for-image (&rest conditions)
    (urlstring (merge-url *webserver-url*
                            (namestring
                             (make-pathname :type "png"
                                            :defaults (apply #'file-name-for conditions))))))
  
  (defun emit-image-index (s &rest args &key only-release implementations &allow-other-keys)
    (let* ((benchmarks (pg-result (pg-exec *dbconn* "select distinct b_name from result order by b_name") :tuples))
  
negative.code: 	(head (title "SBCL Benchmarks"))
  	(body
           ((div :id "sidebar")
            ((form :method :get :action ,(urlstring *index-url*))
             ,(make-multi-select :implementations implementations
                                 (iterate (for (impl) in-relation
                                               (translate `(select (name) impl))
                                               on-connection *dbconn*)
                                          (collect `(,impl ,impl))))
             ,(make-select :only-release only-release
                           (cons '(nil "None")
                                 (iterate (for (version steps) in-relation
                                               (let ((subsel `(select ((count *))
                                                                      (where (as version v2)
                                                                             (like v2.version (++ v.version ".%"))))))
                                                 (translate `(select (version ,subsel)
                                                                     (where (as version v)
                                                                            (> ,subsel 0))))) 
                                               on-connection *dbconn*)
                                          (collect `(,version ,(format nil "~A (~A)" version steps))))))
             ((input :type :submit))))
           ((div :id benchmarks)
            ,@(iterate (for (benchmark) in benchmarks)
  