anchor.diff:                 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
  +  ------------------------ << I am here
       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)
  +    156 - fare-matcher (no test-op, but there is fare-matcher-test.asd with one test defined using stefil)
       148 - drakma
       144 + cl-cont
       143 - closure-common
  
positive.code:   
    ;; The test framework used: lift.
    
    ;; metabang-bind-test includes regular-expression
    ;; bindings and tests, which is only loaded if
    ;; cl-ppcre to be loaded first.
    (quicklisp:quickload :cl-ppcre)
    (quicklisp:quickload :metabang-bind-test)
  
    (run-lift-tests :metabang-bind-test))
  
  (defun run-libtest (lib)
    (let* ((orig-std-out *standard-output*)
  
negative.code:   (funcall (intern (symbol-name :run-all-tests)
                     (find-package :flexi-streams-test))))
  
  (defun run-fiveam-suite (fiveam-test-spec)
    "Runs the specified test suite created with the FiveAM 
  test framework. Returns T if all the tests succeeded and
  NIL otherwise. The FIVEAM-TEST-SPEC specifies the tests
  suite according to the FiveAM convention."
    (let ((run (intern (string '#:run) :fiveam))
          (explain (intern (string '#:explain) :fiveam))
          (detailed-text-explainer (intern (string '#:detailed-text-explainer) :fiveam))
          (test-failure-type (intern (string '#:test-failure) :fiveam)))
      
      (let ((results (funcall run fiveam-test-spec)))
        (funcall explain (make-instance detailed-text-explainer) results *standard-output*)
        (zerop (count-if (lambda (res)
                           (typep res test-failure-type))
                         results)))))
  
  (defmethod libtest ((library-name (eql :bordeaux-threads)))
  
    ;; The test framework used: fiveam.
    
    (quicklisp:quickload :bordeaux-threads-test)
  
    (run-fiveam-suite :bordeaux-threads))
  
  (defmethod libtest ((library-name (eql :cl-base64)))
  
  