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
  -                           :cl-oauth      :cl-routes       :cl-unicode        :fiveam
  -                           :trivial-utf-8 :yason)
  +(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)
     "All the libraries currently supported by the test-grid.")
   
   
  
positive.code:   (when (find-package :json-temp-uinuque-name)
      (rename-package :json-temp-uinuque-name :json))
  
    ;; nor run the tests. It returns a boolean
    (funcall (read-from-string "unit-test:run-all-tests") :unit :yason))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Utils
  
negative.code: 
  (defun set= (set-a set-b &key (test #'eql) key)
    (null (set-exclusive-or set-a set-b :test test :key key)))
  
  (defun starts-with (str prefix &key (test #'char=))
    (let ((mismatch (mismatch str prefix :test test)))
      (or (null mismatch)
          (>= mismatch (length prefix)))))
  
  (defun do-plist-impl (plist handler)
    (do* ((cur-pos plist (cddr cur-pos))
  