anchor.diff:    ;; test framework used: cl-test-more
     (running-cl-test-more-suite "cl-project"
                                 #'(lambda ()
  +                                  (ql:quickload :cl-project)
                                     (ql:quickload :cl-project-test))))
   
   (defmethod libtest ((library-name (eql :trivial-http)))
     ;; The test framework used: lift.
  +  (ql:quickload :trivial-http)
     (ql:quickload :trivial-http-test)
     (run-lift-test-suite :trivial-http-test))
   
  
positive.code: 
  (defmethod libtest ((library-name (eql :cl-unicode)))
    ;; The test framework used: custom.
    (quicklisp:quickload :cl-unicode-test)
    (funcall (read-from-string "cl-unicode-test:run-all-tests")))
  
  
negative.code: 
  (defmethod libtest ((library-name (eql :named-readtables)))
    ;; test framework used: customized RT
    (quicklisp:quickload :named-readtables)
    (quicklisp:quickload :named-readtables-test)
    (funcall (intern (symbol-name '#:do-tests) '#:named-readtables-test))
    (list :failed-tests (funcall (intern (symbol-name '#:pending-tests)
  