anchor.diff:  
   (defmethod libtest ((library-name (eql :cl-unicode)))
     ;; The test framework used: custom.
  +  (quicklisp:quickload :cl-unicode)
     (quicklisp:quickload :cl-unicode-test)
     (funcall (read-from-string "cl-unicode-test:run-all-tests")))
   
  
positive.code: 
  (defmethod libtest ((library-name (eql :split-sequence)))
    ;; test framework used: FiveAM
    (ql:quickload :split-sequence-tests)
    (run-fiveam-test-suite :split-sequence))
  
  (defmethod libtest ((library-name (eql :cl-closure-template)))
    ;; The test framework used: lift.
    (ql:quickload :closure-template-test)
    (run-lift-test-suite (read-from-string "closure-template.test::closure-template-test")))
  
  (defmethod libtest ((library-name (eql :cl-interpol)))
    ;; The test framework used: custom.
    (ql:quickload :cl-interpol-test)
    (funcall (read-from-string "cl-interpol-test:run-all-tests")))
  
  (defmethod libtest ((library-name (eql :lift)))
    ;; The test framework used: lift.
    (ql:quickload :lift-test)
    (run-lift-test-suite (read-from-string "lift-test::lift-test")))
  
  
negative.code:   ;; 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))
  
  