anchor.diff:    ;; we need to clean the :anaphora system too
     (asdf:clear-system :anaphora)
   
  +  ;; Load anaphora first, because anaphora-tests
  +  ;; is defined in anaphora.asd which confuses
  +  ;; quicklisp (some versions of, see issue #1)
  +  (quicklisp:quickload :anaphora)
     (quicklisp:quickload :anaphora-test)
   
     ;; copy/paste from anaphora.asd
  
positive.code: 
    ;; The test framework used: ptester.
    
    (quicklisp:quickload :cl-base64-tests)
    
    (funcall (intern (symbol-name '#:do-tests)
  
negative.code: (defmethod libtest ((library-name (eql :cl-json)))
    ;; The test framework used: fiveam.
    (let ((*trace-output* *standard-output*))
  
      ;; Load cl-json first, because cl-json.tests
      ;; is defined in cl-json.asd which confuses
      ;; quicklisp (some versions of, see issue #1)
      (quicklisp:quickload :cl-json)
  
      (quicklisp:quickload :cl-json.test)
      (run-fiveam-suite (intern (symbol-name '#:json) :json-test))))
  
  