anchor.diff:  
     ;; The test framework used: ptester.
   
  +  ;; Load puri first, because puri-tests
  +  ;; is defined in puri.asd which confuses
  +  ;; quicklisp (some versions of, see issue #1)
  +  (quicklisp:quickload :puri)
  +
     (quicklisp:quickload :puri-tests)
     
     ;; copy/paste from puri.asd
  
positive.code:   (asdf:clear-system :iterate-tests)
    (asdf:clear-system :iterate)
  
    (quicklisp:quickload :iterate-tests)
    
    (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
  
negative.code:   ;; 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
  