anchor.diff:        (setf name (pathname name))
         (setf name (make-pathname :name name :type "lisp")))
     (remove-if #'excluded-pathname-p
  -	     (directory (merge-pathnames
  -			 name
  -			 (make-pathname :directory '(:relative :wild))))
  -	     :key #'directory-namestring))
  +             (directory (merge-pathnames
  +                         name
  +                         (make-pathname :directory '(:relative :wild))))
  +             :key #'directory-namestring))
   
    
  
positive.code:     (dolist (file *test-files*)
        (load file :verbose t :print t))
      (setf *test-packages*
  	  (set-difference (list-all-packages) packages-before))))
  
  
  
negative.code:     (dolist (file *example-files*)
        (load file :verbose (verbosity-p 2) :print (verbosity-p 2)))
      (setf *example-packages*
            (set-difference (list-all-packages) packages-before))))
  
  
  