anchor.diff:      224 + parenscript
       221 - cl-who
       207 + trivial-garbage
  -    201 iterate
  -    193 cl-vectors
  -    190 zpng
  -    177 asdf-system-connections
  -    174 zpb-ttf
  -    173 uffi
  -    173 metabang-bind
  -    170 split-sequence
  -    164 vecto
  -    163 cl-json
  -    162 cl-containers
  -    161 metatilities-base
  -    159 fare-utils
  -    156 weblocks
  -    156 fare-matcher
  -    148 drakma
  -    144 cl-cont
  -    143 closure-common
  -    140 moptilities
  -    138 f-underscore
  -    137 trivial-timeout
  -    136 metatilities
  -    135 clsql
  -    133 cxml
  +    201 + iterate
  +    193 - cl-vectors
  +    190 - zpng
  +    177 - asdf-system-connections
  +    174 - zpb-ttf
  +    173 + uffi But the test suite is non trivial (for example, it defines asdf:compile-op 
  +               for C files using make). Probably that's why quickisp does not
  +               make the uffi-tests.asd availabel for ql:quickload. A study is needed about 
  +               how to include this system, therefore I avoid it for now.
  +    173 + metabang-bind
  +  ------------------------ << I am here
  +    170 - split-sequence
  +    164 - vecto (there is a test.lisp, but it's not automated, intended for manual run and eye-testing of the resulting images)
  +    163 + cl-json
  +    162 + cl-containers
  +    161 + metatilities-base
  +    159 - fare-utils
  +    156 + weblocks (do these tests start hunchentoot? seems no, it creates mock objects for request, response, etc.)
  +    156 - fare-matcher (not test-op, but there is fare-matcher-test.asd with one test defined using stefil)
  +    148 - drakma
  +    144 + cl-cont
  +    143 - closure-common
  +    140 + moptilities
  +    138 - f-underscore
  +    137 + trivial-timeout
  +    136 + metatilities
  +    135 + clsql (big test suite, requires database server(s). Runs test on the 
  +                 DB servers you specified in the configiration. Therefore
  +                 we need to think how to represent results - we can't
  +                 just collect results under the same name "clsql", because 
  +                 different agents might have tested different servers).
  +    133 + cxml (but how to run it? seems like it requires some .xml 
  +                files which are not in the repository, so it probably
  +                is not fully automated).
   |#
  
positive.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))
          (expected-failures (intern (symbol-name '#:expected-failures) :lift)))
      (describe result *standard-output*)
      (zerop
       (+ (length (set-difference (funcall errors result)
                                  (funcall expected-errors result)))
          (length (set-difference (funcall failures result)
                                  (funcall expected-failures result)))))))
  
  (defmethod libtest ((library-name (eql :puri)))
  
  
negative.code:          (start-time (get-internal-real-time)))
  
      (format orig-std-out 
              "Running tests for ~A. *STANDARD-OUTPUT* and *ERROR-OUTPUT* are redirected.~%"
              lib)
      (finish-output orig-std-out)
      
  