anchor.diff:  	(head (title "SBCL Benchmarks"))
   	(body
            ((div :id "sidebar")
  -          ((form :method :post :action ,(urlstring *index-url*))
  +          ((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))))))
  +                         (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)
  
positive.code: 	    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)
  
negative.code: 
  (defun filesys-escape-name (name)
    "Escape name so that it is safe as a file name under unixoids and DOSoids."
    (declare (string name))
    (let ((output (make-array (length name) :fill-pointer 0 :element-type 'character :adjustable t)))
      (with-output-to-string (s output)
        (iterate (for c in-vector name)
                 (if (or (alphanumericp c) (member c '(#\- #\.)))
                     (write-char c s)
                     (progn (write-char #\_ s) (princ (char-code c) s)))))
      output))
  
  (defun sqlquote (str)
    (with-output-to-string (s)
  