anchor.diff:  (defun excluded-pathname-p (pathname)
     "Identify an excluded pathname."
     (let ((exclusions (map 'list
  -			 (lambda (path)
  -			   (truename (make-pathname :directory (list :relative path))))
  -			 *excluded-paths*)))
  +                         (lambda (path)
  +                           (truename (make-pathname :directory (list :relative path))))
  +                         *excluded-paths*)))
       (find (truename pathname) exclusions :test #'pathname-match-p)))
   
   (defun list-test-files (name)
  
positive.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)
  
  
negative.code:       (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))
  
  
  