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: (defun excluded-pathname-p (pathname)
    "Identify an excluded pathname."
    (let ((exclusions (map 'list
  			 (lambda (path)
  			   (truename (make-pathname :directory (list :relative path))))
  			 *excluded-paths*)))
      (find (truename pathname) exclusions :test #'pathname-match-p)))
  
  (defun list-test-files (name)
  
negative.code:   (and (problems-p) (delete-all-problems))
    (dolist (package *test-packages* (problems-p))
      (handler-bind ((test-run-complete
                      (lambda (condition)
                        (handle-results (results condition)))))
        (signal-results)
        (inform (format nil "Running tests in ~S" package))
        (run-tests :all package))))
  