anchor.diff:      (dolist (file *example-files*)
         (load file :verbose (verbosity-p 2) :print (verbosity-p 2)))
       (setf *example-packages*
  -	  (set-difference (list-all-packages) packages-before))))
  +          (set-difference (list-all-packages) packages-before))))
   
    
  
positive.code:     (dolist (file *test-files*)
        (load file :verbose t :print t))
      (setf *test-packages*
  	  (set-difference (list-all-packages) packages-before))))
  
  
  
negative.code: (defpackage #:xlisp-test
    (:use #:cl #:lisp-unit)
    (:export #:run-tests-all
             #:excluded-pathname-p
             #:example-packages-p
             #:test-packages-p
             #:problems-p))
  
  (in-package #:xlisp-test)
  
  