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