anchor.diff:      323 + trivial-backtrace
       321 - rfc2388 (there is a test.lisp, but there is no asdf:test-op, and the code in test.lisp 
                      doesn't return fail/ok status, it jsut prints something to the console)
  -    317 - hunchentoot (thre are tests and asdf:test-op, but I am affrait it might take
  +    317 - hunchentoot (there are tests and asdf:test-op, but I am affrait it might take
                          lot of work to automate it: test-op starts server and doesn't
  -                       stop. I am also affraid i might hang sometimes; Implementation
  +                       stop; I am also afraid it might hang sometimes; implementation
                          would also require checking for single-threaded lisps
                          (by hunchentoot::*supports-threadss-p* ?)
                          and returning :no-resource. Leave hunchentoot for a later
  
positive.code:              "~2,'0D~2,'0D~2,'0D~2,'0D~2,'0D~2,'0D" 
               year month date hour min sec)))
  
  (defun make-run-descr () 
    "Generate a description for a test run which might be 
  performed in the current lisp system."
  
negative.code:       (let ((run-descr (run-descr run))
              (lib-statuses (run-results run)))
          (format out "<tr><td>~A</td><td>~A</td><td>~A</td><td>~A</td>" 
                  (pretty-fmt-time (getf run-descr :time)) 
                  (getf run-descr :lib-world) 
                  (getf run-descr :lisp)
                  (getf (getf run-descr :contact) :email))
  