anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (defparameter *all-libs*
  -  '(:alexandria       :babel               :trivial-features    :cffi
  -    :cl-ppcre         :usocket             :flexi-streams       :bordeaux-threads
  -    :cl-base64        :cl-fad              :trivial-backtrace   :puri
  -    :anaphora         :parenscript         :trivial-garbage     :iterate
  -    :metabang-bind    :cl-json             :cl-containers       :metatilities-base
  -    :cl-cont          :moptilities         :trivial-timeout     :metatilities
  -    :named-readtables :arnesi              :local-time          :s-xml
  -    :iolib            :cl-oauth            :cl-routes           :cl-unicode
  -    :fiveam           :trivial-utf-8       :yason               :cl-annot
  -    :cl-openid        :split-sequence      :cl-closure-template :cl-interpol
  -    :trivial-shell    :let-plus            :data-sift           :cl-num-utils
  -    :ieee-floats      :cl-project          :trivial-http        :cl-store)
  +  '(:alexandria            :babel          :trivial-features    :cffi
  +    :cl-ppcre              :usocket        :flexi-streams       :bordeaux-threads
  +    :cl-base64             :cl-fad         :trivial-backtrace   :puri
  +    :anaphora              :parenscript    :trivial-garbage     :iterate
  +    :metabang-bind         :cl-json        :cl-containers       :metatilities-base
  +    :cl-cont               :moptilities    :trivial-timeout     :metatilities
  +    :named-readtables      :arnesi         :local-time          :s-xml
  +    :iolib                 :cl-oauth       :cl-routes           :cl-unicode
  +    :fiveam                :trivial-utf-8  :yason               :cl-annot
  +    :cl-openid             :split-sequence :cl-closure-template :cl-interpol
  +    :trivial-shell         :let-plus       :data-sift           :cl-num-utils
  +    :ieee-floats           :cl-project     :trivial-http        :cl-store
  +    :hu.dwim.stefil        :kmrcl          :cxml-stp            :hu.dwim.walker
  +    :hu.dwim.defclass-star :bknr.datastore :yaclml              :com.google.base
  +    :external-program)
     "All the libraries currently supported by the test-grid.")
   
   (defun clean-rt ()
  
positive.code:   (ql:quickload :cl-interpol-test)
    (funcall (read-from-string "cl-interpol-test:run-all-tests")))
  
  ;; Decided not to add Lift now. 
  ;; See coverage.org for details.
  ;;
  ;; (defmethod libtest ((library-name (eql :lift)))
  
negative.code:                   project-name line)
            (return-from running-cl-test-more-suite :fail))))
      :ok))
  
  (defun combine-extended-libresult (libresult-a libresult-b)
    (list :failed-tests (union (getf libresult-a :failed-tests)
                               (getf libresult-b :failed-tests)
                               :test #'string=)
          :known-to-fail (union (getf libresult-a :known-to-fail)
                                (getf libresult-b :known-to-fail)
                                :test #'string=)))
  
  (assert (let ((combined (combine-extended-libresult '(:failed-tests ("a" "b")
                                                        :known-to-fail ("c"))
                                                      '(:failed-tests ("a2" "c2")
                                                        :known-to-fail ("b2")))))
            (and (set= '("a" "b" "a2" "c2")
                       (getf combined :failed-tests)
                       :test #'string=)
                 (set= '("c" "b2")
                       (getf combined :known-to-fail)
                       :test #'string=))))
  
  (defmethod libtest ((library-name (eql :alexandria)))
  
  