anchor.diff:      386 - cl+ssl (thre is a test.lisp, but it's not automated, and no (asdf:operate (op asdf:test-op) ...)
       371 - chunga
       370 + cl-base64
  -    361 cl-fad
  -    339 md5
  -    327 quicklisp-slime-helper
  -    323 trivial-backtrace
  -    321 rfc2388
  +    361 - cl-fad
  +    339 - md5
  +    327 - quicklisp-slime-helper
  +    323 + trivial-backtrace
  +    321 - rfc2388 (there is a test.lisp, but there is no asdf:operate, and the code in test.lisp 
  +                   doesn't return fail/ok status, it jsut prints something to the console)
       317 hunchentoot
       293 salza2
       289 puri
  
positive.code:      libraries set (think quicklisp distro),
       the user contacts, total test run duration,
       etc.
   + more abstract accessor to parts of DB info instead of
     getf by properties: run-descr, run-results.
     1h
  
negative.code:   
    (funcall (intern (symbol-name '#:do-tests)
                     (find-package '#:cl-base64-tests))))
  
  (defmethod libtest ((library-name (eql :trivial-backtrace)))
    
    ;; The test framework used: lift.
    
    (quicklisp:quickload :trivial-backtrace-test)
    
    (let ((result 
           ;; copy/paste from trivial-backtrace.asd
           (funcall (intern (symbol-name '#:run-tests) :lift)
                           :suite :trivial-backtrace-test))
          (errors (intern (symbol-name '#:errors) :lift))
          (expected-errors (intern (symbol-name '#:expected-errors) :lift))
          (failures (intern (symbol-name '#:failures) :lift))
          (errors (intern (symbol-name '#:expected-failures) :lift)))
      (zerop
       (+ (length (set-difference (funcall errors result)
                                  (funcall expected-errors result)))
          (length (set-difference (funcall failures result)
                                  (funcall expected-failures result)))))))
  
  (defun run-libtest (lib)
    (let* ((orig-std-out *standard-output*)
  