From cb4735a813445a0096ca0c3003d86e2348d1e8ef Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 12 Jan 2005 14:14:46 +0000 Subject: [PATCH] Fix checking of pathname equality --- ansi-tests/rt.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 301e08e3..2ed4d86f 100644 --- a/ansi-tests/rt.lsp +++ b/ansi-tests/rt.lsp @@ -210,7 +210,8 @@ (loop for i from 0 below size always (equalp-with-case (my-row-major-aref x i) (my-row-major-aref y i)))))) - + ((typep x 'pathname) + (equal x y)) (t (eql x y)))) (defun do-entry (entry &optional -- GitLab