diff --git a/ansi-tests/pathname-match-p.lsp b/ansi-tests/pathname-match-p.lsp index 01b1dd6f96d13b49f19828f3192a3b34972afe89..6b51d980468d547f8eb609e847c707f099256ec0 100644 --- a/ansi-tests/pathname-match-p.lsp +++ b/ansi-tests/pathname-match-p.lsp @@ -36,15 +36,17 @@ (deftest pathname-match-p.5 (let ((pn1 (make-pathname :directory '(:relative :wild))) (pn2 (make-pathname :directory nil))) - (pathname-match-p pn1 pn2)) + (and (wild-pathname-p pn1) + (not (pathname-directory pn2)) + (not (pathname-match-p pn1 pn2)))) nil) (deftest pathname-match-p.6 (let ((pn1 (make-pathname :version :wild)) (pn2 (make-pathname))) (and (wild-pathname-p pn1) - (not (wild-pathname-p pn2)) - (pathname-match-p pn1 pn2))) + (not (pathname-version pn2)) + (not (pathname-match-p pn1 pn2)))) nil) ;;; Here are error tests