anchor.diff:               "~2,'0D~2,'0D~2,'0D~2,'0D~2,'0D~2,'0D" 
                year month date hour min sec)))
   
  +(defun pretty-fmt-time (universal-time &optional destination)
  +  "The human-readable time format, used in reports."
  +  (multiple-value-bind (sec min hour date month year)
  +      (decode-universal-time universal-time 0)
  +    (funcall #'format 
  +             destination 
  +             "~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."
  
positive.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>" 
                  (fmt-time (getf run-descr :time)) 
                  (getf run-descr :lib-world) 
                  (getf run-descr :lisp)
                  (getf (getf run-descr :contact) :email))
  
negative.code:     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 (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 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
  