anchor.diff:  
     ;; s-xml test suite uses cl:assert, and all
     ;; the assertsions are top level, i.e. executed
  -  ;; immediatelly during system load
  +  ;; immediatelly during the system load
     (handler-case
         (progn
  -        (asdf:operate 'asdf:load-op :s-xml.test)
  +        (asdf:operate 'asdf:load-op :s-xml.test :force t)
           :ok)
       (error (e)
         (format t "s-xml test suite failed with error: ~A" e)
  
positive.code: ;; 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)
    "All the libraries currently supported by the test-grid.")
  
  
  
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
  