diff --git a/ansi-tests/rt.lsp b/ansi-tests/rt.lsp index 301e08e3fb5c2325cf224859cbac9a653f9d9c53..2ed4d86f88186e2f1eafc4a10f0bacb7b6e5e5b6 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