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: 	(head (title "SBCL Benchmarks"))
  	(body
           ((div :id "sidebar")
            ((form :method :post :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)
  
negative.code: (in-package :measure.web)
  
  (defparameter *site-name* "localhost")
  (defparameter *internal-port* 8000)
  
  (defparameter *base-url* (merge-url
  