anchor.diff:  
   (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))
  
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: ;; 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           :cl-annot)
    "All the libraries currently supported by the test-grid.")
  
  
  