anchor.diff:  ;; LIBTEST implementations for particular libraries
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
  -(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)
  +(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)
     "All the libraries currently supported by the test-grid.")
   
   
  
positive.code: 
    ;; s-xml test suite uses cl:assert, and all
    ;; the assertsions are top level, i.e. executed
    ;; immediatelly during system load
    (handler-case
        (progn
          (asdf:operate 'asdf:load-op :s-xml.test)
          :ok)
      (error (e)
        (format t "s-xml test suite failed with error: ~A" e)
  
negative.code: 
    ;; Workaround for the quicklisp bug #55
    ;; (https://github.com/quicklisp/quicklisp-client/issues/55)
    (ql:quickload :cffi)
    (let ((cffi-dir (make-pathname :name nil :type nil :defaults (ql-dist:find-asdf-system-file "cffi"))))
      (pushnew cffi-dir asdf:*central-registry* :test #'equal))
    ;; now (ql:quickload "cffi-tests") will work
  